diff options
| -rw-r--r-- | lisp/menu-bar.el | 14 |
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) |