Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-menu.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 8619ce7e4c50
children 34a5b81f86ba
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
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/18 00:45:01 3 ;; Created: 1997/03/22 17:31:47
4 ;; Version: 1.34 4 ;; Version: 1.35
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.
43 (defvar w3-menu-fsfemacs-search-menu nil) 43 (defvar w3-menu-fsfemacs-search-menu nil)
44 (defvar w3-menu-w3-menubar nil) 44 (defvar w3-menu-w3-menubar nil)
45 (defvar w3-links-menu nil "Menu for w3-mode in XEmacs.") 45 (defvar w3-links-menu nil "Menu for w3-mode in XEmacs.")
46 (make-variable-buffer-local 'w3-links-menu) 46 (make-variable-buffer-local 'w3-links-menu)
47 47
48 (defvar w3-use-menus '(file edit view go bookmark options buffers style 48 (defcustom w3-use-menus '(file edit view go bookmark options buffers style
49 emacs nil help) 49 emacs nil help)
50 "*Non-nil value causes W3 to provide a menu interface. 50 "*Non-nil value causes W3 to provide a menu interface.
51 A value that is a list causes W3 to install its own menubar. 51 A value that is a list causes W3 to install its own menubar.
52 A value of 1 causes W3 to install a \"W3\" item in the Emacs menubar. 52 A value of 1 causes W3 to install a \"W3\" item in the Emacs menubar.
53 53
54 If the value of w3-use-menus is a list, it should be a list of symbols. 54 If the value of w3-use-menus is a list, it should be a list of symbols.
73 menus after nil in the list will be displayed flushright in the 73 menus after nil in the list will be displayed flushright in the
74 menubar. 74 menubar.
75 75
76 NOTE! The current port of Emacs to Windows NT/95 does not support 76 NOTE! The current port of Emacs to Windows NT/95 does not support
77 buttons in the menubar, so the 'emacs' keyword is currently ignored 77 buttons in the menubar, so the 'emacs' keyword is currently ignored
78 on that platform.") 78 on that platform."
79 :group 'w3-menus
80 :type '(set (const :tag "File related commands" :value file)
81 (const :tag "Standard editing commands" :value edit)
82 (const :tag "View document information" :value view)
83 (const :tag "Navigation" :value go)
84 (const :tag "Bookmarks" :value bookmark)
85 (const :tag "Options" :value options)
86 (const :tag "Buffer list" :value buffers)
87 (const :tag "Stylesheet information" :value style)
88 (const :tag "Search engines" :value search)
89 (const :tag "Toggle to default menus" :value emacs)
90 (const :tag "Separator" :value nil)
91 (const :tag "Help" :value help)))
79 92
80 (defun w3-menu-hotlist-constructor (menu-items) 93 (defun w3-menu-hotlist-constructor (menu-items)
81 (or (cdr w3-html-bookmarks) 94 (or (cdr w3-html-bookmarks)
82 (let ((hot-menu nil) 95 (let ((hot-menu nil)
83 (hot w3-hotlist)) 96 (hot w3-hotlist))