Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-menu.el @ 44:8d2a9b52c682 r19-15prefinal

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents c53a95d3c46d
children 131b0175ea99
comparison
equal deleted inserted replaced
43:23cafc5d2038 44:8d2a9b52c682
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))