comparison lisp/menu-bar.el @ 11182:9fdd7498250f

(menu-bar-edit-menu): Capitalize an item name. (menu-bar-tools-menu): Add verb to Calendar item. (menu-bar-help-menu): Rename Info to Browse Manuals.
author Richard M. Stallman <rms@gnu.org>
date Sun, 02 Apr 1995 05:46:12 +0000
parents 238b3b5adefd
children e6bdaaa6ce1b
comparison
equal deleted inserted replaced
11181:67a8c8274784 11182:9fdd7498250f
42 (defvar menu-bar-files-menu (make-sparse-keymap "Files")) 42 (defvar menu-bar-files-menu (make-sparse-keymap "Files"))
43 (define-key global-map [menu-bar files] (cons "Files" menu-bar-files-menu)) 43 (define-key global-map [menu-bar files] (cons "Files" menu-bar-files-menu))
44 44
45 (defvar vc-menu-map (make-sparse-keymap "Version Control")) 45 (defvar vc-menu-map (make-sparse-keymap "Version Control"))
46 46
47 (define-key menu-bar-tools-menu [calendar] '("Calendar" . calendar)) 47 (define-key menu-bar-tools-menu [calendar] '("Display Calendar" . calendar))
48 (define-key menu-bar-tools-menu [rmail] '("Read Mail" . rmail)) 48 (define-key menu-bar-tools-menu [rmail] '("Read Mail" . rmail))
49 (define-key menu-bar-tools-menu [gnus] '("Read Net News" . gnus)) 49 (define-key menu-bar-tools-menu [gnus] '("Read Net News" . gnus))
50 50
51 (define-key menu-bar-tools-menu [separator-vc] 51 (define-key menu-bar-tools-menu [separator-vc]
52 '("--")) 52 '("--"))
210 (define-key menu-bar-edit-menu [separator-edit] 210 (define-key menu-bar-edit-menu [separator-edit]
211 '("--")) 211 '("--"))
212 212
213 (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region)) 213 (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region))
214 214
215 (define-key menu-bar-edit-menu [paste] '("Paste most recent" . yank)) 215 (define-key menu-bar-edit-menu [paste] '("Paste Most Recent" . yank))
216 216
217 (defvar yank-menu (cons "Select Yank" nil)) 217 (defvar yank-menu (cons "Select Yank" nil))
218 (fset 'yank-menu (cons 'keymap yank-menu)) 218 (fset 'yank-menu (cons 'keymap yank-menu))
219 (define-key menu-bar-edit-menu [select-paste] '("Select and Paste" . yank-menu)) 219 (define-key menu-bar-edit-menu [select-paste] '("Select and Paste" . yank-menu))
220 (define-key menu-bar-edit-menu [copy] '("Copy" . menu-bar-kill-ring-save)) 220 (define-key menu-bar-edit-menu [copy] '("Copy" . menu-bar-kill-ring-save))
305 '("List Keybindings" . describe-bindings)) 305 '("List Keybindings" . describe-bindings))
306 (define-key menu-bar-help-menu [command-apropos] 306 (define-key menu-bar-help-menu [command-apropos]
307 '("Command Apropos..." . command-apropos)) 307 '("Command Apropos..." . command-apropos))
308 (define-key menu-bar-help-menu [describe-mode] 308 (define-key menu-bar-help-menu [describe-mode]
309 '("Describe Mode" . describe-mode)) 309 '("Describe Mode" . describe-mode))
310 (define-key menu-bar-help-menu [info] '("Info" . info)) 310 (define-key menu-bar-help-menu [info] '("Browse Manuals" . info))
311 (define-key menu-bar-help-menu [emacs-faq] '("Emacs FAQ" . view-emacs-FAQ)) 311 (define-key menu-bar-help-menu [emacs-faq] '("Emacs FAQ" . view-emacs-FAQ))
312 (define-key menu-bar-help-menu [emacs-news] '("Emacs News" . view-emacs-news)) 312 (define-key menu-bar-help-menu [emacs-news] '("Emacs News" . view-emacs-news))
313 313
314 (defun kill-this-buffer () ; for the menubar 314 (defun kill-this-buffer () ; for the menubar
315 "Kills the current buffer." 315 "Kills the current buffer."