aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/menu-bar.el14
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 93dd551fdd8..862a52e25d5 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -441,7 +441,7 @@
441 441
442(define-key menu-bar-edit-menu [mark-whole-buffer] 442(define-key menu-bar-edit-menu [mark-whole-buffer]
443 '(menu-item "Select All" mark-whole-buffer 443 '(menu-item "Select All" mark-whole-buffer
444 :help "Mark the whole buffer for a subsequent cut/copy.")) 444 :help "Mark the whole buffer for a subsequent cut/copy"))
445(define-key menu-bar-edit-menu [clear] 445(define-key menu-bar-edit-menu [clear]
446 '(menu-item "Clear" delete-region 446 '(menu-item "Clear" delete-region
447 :enable (and mark-active 447 :enable (and mark-active
@@ -452,7 +452,7 @@
452(defvar yank-menu (cons "Select Yank" nil)) 452(defvar yank-menu (cons "Select Yank" nil))
453(fset 'yank-menu (cons 'keymap yank-menu)) 453(fset 'yank-menu (cons 'keymap yank-menu))
454(define-key menu-bar-edit-menu [paste-from-menu] 454(define-key menu-bar-edit-menu [paste-from-menu]
455 '(menu-item "Paste from kill menu" yank-menu 455 '(menu-item "Paste From Kill Menu" yank-menu
456 :enable (and (cdr yank-menu) (not buffer-read-only)) 456 :enable (and (cdr yank-menu) (not buffer-read-only))
457 :help "Choose a string from the kill ring and paste it")) 457 :help "Choose a string from the kill ring and paste it"))
458(define-key menu-bar-edit-menu [paste] 458(define-key menu-bar-edit-menu [paste]
@@ -951,7 +951,7 @@ mail status in mode line"))
951 951
952(define-key menu-bar-showhide-menu [showhide-tool-bar] 952(define-key menu-bar-showhide-menu [showhide-tool-bar]
953 (list 'menu-item "Tool-bar" 'toggle-tool-bar-mode-from-frame 953 (list 'menu-item "Tool-bar" 'toggle-tool-bar-mode-from-frame
954 :help "Toggle tool-bar on/off" 954 :help "Turn tool-bar on/off"
955 :visible `(display-graphic-p) 955 :visible `(display-graphic-p)
956 :button `(:toggle . (> (frame-parameter nil 'tool-bar-lines) 0)))) 956 :button `(:toggle . (> (frame-parameter nil 'tool-bar-lines) 0))))
957 957
@@ -1050,7 +1050,7 @@ mail status in mode line"))
1050(define-key menu-bar-options-menu [auto-fill-mode] 1050(define-key menu-bar-options-menu [auto-fill-mode]
1051 '(menu-item "Auto Fill in Text Modes" 1051 '(menu-item "Auto Fill in Text Modes"
1052 menu-bar-text-mode-auto-fill 1052 menu-bar-text-mode-auto-fill
1053 :help "Automatically fill text while typing (Auto Fill Mode)" 1053 :help "Automatically fill text while typing (Auto Fill mode)"
1054 :button (:toggle . (if (listp text-mode-hook) 1054 :button (:toggle . (if (listp text-mode-hook)
1055 (member 'turn-on-auto-fill text-mode-hook) 1055 (member 'turn-on-auto-fill text-mode-hook)
1056 (eq 'turn-on-auto-fill text-mode-hook))))) 1056 (eq 'turn-on-auto-fill text-mode-hook)))))
@@ -1362,7 +1362,7 @@ mail status in mode line"))
1362 1362
1363(define-key menu-bar-describe-menu [list-keybindings] 1363(define-key menu-bar-describe-menu [list-keybindings]
1364 '(menu-item "List Key Bindings" describe-bindings 1364 '(menu-item "List Key Bindings" describe-bindings
1365 :help "Display all current keybindings (keyboard shortcuts)")) 1365 :help "Display all current key bindings (keyboard shortcuts)"))
1366(define-key menu-bar-describe-menu [describe-current-display-table] 1366(define-key menu-bar-describe-menu [describe-current-display-table]
1367 '(menu-item "Describe Display Table" describe-current-display-table 1367 '(menu-item "Describe Display Table" describe-current-display-table
1368 :help "Describe the current display table")) 1368 :help "Describe the current display table"))
@@ -1458,7 +1458,7 @@ key, a click, or a menu-item"))
1458 '(menu-item "Ordering Manuals" view-order-manuals 1458 '(menu-item "Ordering Manuals" view-order-manuals
1459 :help "How to order manuals from the Free Software Foundation")) 1459 :help "How to order manuals from the Free Software Foundation"))
1460(define-key menu-bar-manuals-menu [lookup-subject-in-all-manuals] 1460(define-key menu-bar-manuals-menu [lookup-subject-in-all-manuals]
1461 '(menu-item "Lookup Subject in all manuals..." info-apropos 1461 '(menu-item "Lookup Subject in all Manuals..." info-apropos
1462 :help "Find description of a subject in all installed manuals")) 1462 :help "Find description of a subject in all installed manuals"))
1463(define-key menu-bar-manuals-menu [other-manuals] 1463(define-key menu-bar-manuals-menu [other-manuals]
1464 '(menu-item "All Other Manuals (Info)" Info-directory 1464 '(menu-item "All Other Manuals (Info)" Info-directory
@@ -1486,7 +1486,7 @@ key, a click, or a menu-item"))
1486 :help "Show the Emacs license (GPL)")) 1486 :help "Show the Emacs license (GPL)"))
1487(define-key menu-bar-help-menu [getting-new-versions] 1487(define-key menu-bar-help-menu [getting-new-versions]
1488 '(menu-item "Getting New Versions" describe-distribution 1488 '(menu-item "Getting New Versions" describe-distribution
1489 :help "How to get latest versions of Emacs")) 1489 :help "How to get the latest version of Emacs"))
1490(defun menu-bar-help-extra-packages () 1490(defun menu-bar-help-extra-packages ()
1491 "Display help about some additional packages available for Emacs." 1491 "Display help about some additional packages available for Emacs."
1492 (interactive) 1492 (interactive)