Mercurial > emacs
comparison lisp/menu-bar.el @ 99781:4f6e2e2864be
Stylistic consistency fixes for various menu and help texts.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 22 Nov 2008 03:24:10 +0000 |
| parents | 4d51e5623235 |
| children | 24e48b0174fa |
comparison
equal
deleted
inserted
replaced
| 99780:02293738a6f4 | 99781:4f6e2e2864be |
|---|---|
| 439 (define-key menu-bar-edit-menu [separator-search] | 439 (define-key menu-bar-edit-menu [separator-search] |
| 440 '(menu-item "--")) | 440 '(menu-item "--")) |
| 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 |
| 448 (not buffer-read-only) | 448 (not buffer-read-only) |
| 449 (not (mouse-region-match))) | 449 (not (mouse-region-match))) |
| 450 :help | 450 :help |
| 451 "Delete the text in region between mark and current position")) | 451 "Delete the text in region between mark and current position")) |
| 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] |
| 459 '(menu-item "Paste" yank | 459 '(menu-item "Paste" yank |
| 460 :enable (and | 460 :enable (and |
| 949 :help "Turn menu-bar on/off" | 949 :help "Turn menu-bar on/off" |
| 950 :button (:toggle . (> (frame-parameter nil 'menu-bar-lines) 0)))) | 950 :button (:toggle . (> (frame-parameter nil 'menu-bar-lines) 0)))) |
| 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 |
| 958 (define-key menu-bar-options-menu [showhide] | 958 (define-key menu-bar-options-menu [showhide] |
| 959 (list 'menu-item "Show/Hide" menu-bar-showhide-menu)) | 959 (list 'menu-item "Show/Hide" menu-bar-showhide-menu)) |
| 1048 (customize-mark-as-set 'text-mode-hook)) | 1048 (customize-mark-as-set 'text-mode-hook)) |
| 1049 | 1049 |
| 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))))) |
| 1057 | 1057 |
| 1058 | 1058 |
| 1360 (define-key menu-bar-describe-menu [separator-desc-mule] | 1360 (define-key menu-bar-describe-menu [separator-desc-mule] |
| 1361 '("--")) | 1361 '("--")) |
| 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")) |
| 1369 (define-key menu-bar-describe-menu [describe-face] | 1369 (define-key menu-bar-describe-menu [describe-face] |
| 1370 '(menu-item "Describe Face..." describe-face | 1370 '(menu-item "Describe Face..." describe-face |
| 1456 '("--")) | 1456 '("--")) |
| 1457 (define-key menu-bar-manuals-menu [order-emacs-manuals] | 1457 (define-key menu-bar-manuals-menu [order-emacs-manuals] |
| 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 |
| 1465 :help "Read any of the installed manuals")) | 1465 :help "Read any of the installed manuals")) |
| 1466 (define-key menu-bar-manuals-menu [emacs-lisp-reference] | 1466 (define-key menu-bar-manuals-menu [emacs-lisp-reference] |
| 1484 (define-key menu-bar-help-menu [describe-copying] | 1484 (define-key menu-bar-help-menu [describe-copying] |
| 1485 '(menu-item "Copying Conditions" describe-copying | 1485 '(menu-item "Copying Conditions" describe-copying |
| 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) |
| 1493 (let (enable-local-variables) | 1493 (let (enable-local-variables) |
| 1494 (view-file (expand-file-name "MORE.STUFF" | 1494 (view-file (expand-file-name "MORE.STUFF" |