aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1995-04-02 05:46:12 +0000
committerRichard M. Stallman1995-04-02 05:46:12 +0000
commite17267228e4ca361823e962227f1e7b36749ca9c (patch)
treefebd3928f0bc4abae96a384f0bb8c1fd2147623b
parentfa8afe42175686e84905dbed30ff7a9518512ee4 (diff)
downloademacs-e17267228e4ca361823e962227f1e7b36749ca9c.tar.gz
emacs-e17267228e4ca361823e962227f1e7b36749ca9c.zip
(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.
-rw-r--r--lisp/menu-bar.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index a7e0fbc5967..01c65a07c67 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -44,7 +44,7 @@
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
@@ -212,7 +212,7 @@
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))
@@ -307,7 +307,7 @@ Do the same for the keys of the same name."
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