Mercurial > emacs

comparison lisp/menu-bar.el @ 4114:5746e25610f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(revert-buffer): Make menu-enable form more accurate using revert-buffer-function and verify-visited-file-modtime. (menu-bar-help-menu): Put back under global-map. (menu-bar-final-items): Set it.
author Richard M. Stallman <rms@gnu.org>
date Sat, 17 Jul 1993 01:43:00 +0000
parents e7f74dc81c7f
children 4c4910d66232
comparison
equal deleted inserted replaced
4113:93d42767e2ec 4114:5746e25610f8
23 23
24 ;;; Code: 24 ;;; Code:
25 25
26 (define-key global-map [menu-bar] (make-sparse-keymap "menu-bar")) 26 (define-key global-map [menu-bar] (make-sparse-keymap "menu-bar"))
27 (defvar menu-bar-help-menu (make-sparse-keymap "Help")) 27 (defvar menu-bar-help-menu (make-sparse-keymap "Help"))
28 ;; Put Help item in help-menu-bar-map so it always goes last. 28 ;; Put Help item last.
29 (setq help-menu-bar-map (make-sparse-keymap)) 29 (setq menu-bar-final-items '(help))
30 (define-key help-menu-bar-map [help] (cons "Help" menu-bar-help-menu)) 30 (define-key global-map [menu-bar help] (cons "Help" menu-bar-help-menu))
31 (defvar menu-bar-edit-menu (make-sparse-keymap "Edit")) 31 (defvar menu-bar-edit-menu (make-sparse-keymap "Edit"))
32 (define-key global-map [menu-bar edit] (cons "Edit" menu-bar-edit-menu)) 32 (define-key global-map [menu-bar edit] (cons "Edit" menu-bar-edit-menu))
33 (defvar menu-bar-file-menu (make-sparse-keymap "File")) 33 (defvar menu-bar-file-menu (make-sparse-keymap "File"))
34 (define-key global-map [menu-bar file] (cons "File" menu-bar-file-menu)) 34 (define-key global-map [menu-bar file] (cons "File" menu-bar-file-menu))
35 35
101 (setq count (1+ count))) 101 (setq count (1+ count)))
102 (setq buffers (cdr buffers))) 102 (setq buffers (cdr buffers)))
103 (> count 1))) 103 (> count 1)))
104 104
105 (put 'save-buffer 'menu-enable '(buffer-modified-p)) 105 (put 'save-buffer 'menu-enable '(buffer-modified-p))
106 (put 'revert-buffer 'menu-enable '(and (buffer-modified-p) (buffer-file-name))) 106 (put 'revert-buffer 'menu-enable
107 '(or revert-buffer-function revert-buffer-insert-file-contents-function
108 (and (buffer-file-name)
109 (not (verify-visited-file-modtime (current-buffer))))))
107 (put 'delete-frame 'menu-enable '(cdr (visible-frame-list))) 110 (put 'delete-frame 'menu-enable '(cdr (visible-frame-list)))
108 (put 'kill-this-buffer 'menu-enable '(kill-this-buffer-enabled-p)) 111 (put 'kill-this-buffer 'menu-enable '(kill-this-buffer-enabled-p))
109 112
110 (put 'advertised-undo 'menu-enable 113 (put 'advertised-undo 'menu-enable
111 '(and (not (eq t buffer-undo-list)) 114 '(and (not (eq t buffer-undo-list))