Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-menu.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 7d55a9ba150c
children 1370575f1259
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
42 ;;; along with this program; if not, write to the Free Software 42 ;;; along with this program; if not, write to the Free Software
43 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 43 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
44 44
45 (provide 'vm-menu) 45 (provide 'vm-menu)
46 46
47 ;; makeu sure the emacs/xemacs version variables are set, as they
48 ;; are needed below at load time.
49 (vm-note-emacs-version)
50
47 (defun vm-menu-fsfemacs-menus-p () 51 (defun vm-menu-fsfemacs-menus-p ()
48 (and (vm-fsfemacs-19-p) 52 (and vm-fsfemacs-19-p
49 (fboundp 'menu-bar-mode))) 53 (fboundp 'menu-bar-mode)))
50 54
51 (defun vm-menu-xemacs-menus-p () 55 (defun vm-menu-xemacs-menus-p ()
52 (and (vm-xemacs-p) 56 (and vm-xemacs-p
53 (fboundp 'set-buffer-menubar))) 57 (fboundp 'set-buffer-menubar)))
54 58
55 ;; defined again in vm-misc.el but we need it here for some
56 ;; initializations. The "noautoload" vm.elc won't work without
57 ;; this.
58 (defun vm-fsfemacs-19-p () 59 (defun vm-fsfemacs-19-p ()
59 (and (string-match "^19" emacs-version) 60 (and (string-match "^19" emacs-version)
60 (not (string-match "XEmacs\\|Lucid" emacs-version)))) 61 (not (string-match "XEmacs\\|Lucid" emacs-version))))
61 62
62 (defvar vm-menu-folders-menu 63 (defvar vm-menu-folders-menu
65 "VM folder menu list.") 66 "VM folder menu list.")
66 67
67 (defconst vm-menu-folder-menu 68 (defconst vm-menu-folder-menu
68 (list 69 (list
69 "Folder" 70 "Folder"
70 (if (vm-fsfemacs-19-p) 71 (if vm-fsfemacs-19-p
71 ["Manipulate Folders" ignore (ignore)] 72 ["Manipulate Folders" ignore (ignore)]
72 vm-menu-folders-menu) 73 vm-menu-folders-menu)
73 "---" 74 "---"
74 ["Display Summary" vm-summarize t] 75 ["Display Summary" vm-summarize t]
75 ["Toggle Threading" vm-toggle-threads-display t] 76 ["Toggle Threading" vm-toggle-threads-display t]