Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-menu.el @ 134:34a5b81f86ba r20-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b1
author cvs
date Mon, 13 Aug 2007 09:30:11 +0200
parents 9f59509498e1
children 5a88923fcbfe
comparison
equal deleted inserted replaced
133:b27e67717092 134:34a5b81f86ba
1 ;;; w3-menu.el --- Menu functions for emacs-w3 1 ;;; w3-menu.el --- Menu functions for emacs-w3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/22 17:31:47 3 ;; Created: 1997/04/17 15:50:07
4 ;; Version: 1.35 4 ;; Version: 1.37
5 ;; Keywords: menu, hypermedia 5 ;; Keywords: menu, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
259 ["Cut" kill-region nil] 259 ["Cut" kill-region nil]
260 ["Copy" copy-region-as-kill t] 260 ["Copy" copy-region-as-kill t]
261 "----" 261 "----"
262 ["Search..." w3-search-forward t] 262 ["Search..." w3-search-forward t]
263 ["Search Again..." w3-search-again w3-last-search-item] 263 ["Search Again..." w3-search-again w3-last-search-item]
264 "----"
265 (list
266 "Preferences"
267 (if (fboundp 'custom-menu-create)
268 (custom-menu-create 'w3)
269 ["W3" ignore nil])
270 (if (fboundp 'custom-menu-create)
271 (custom-menu-create 'url)
272 ["URL" ignore nil])
273 )
264 ) 274 )
265 "W3 edit menu list.") 275 "W3 edit menu list.")
266 276
267 (defconst w3-menu-view-menu 277 (defconst w3-menu-view-menu
268 (list 278 (list