diff options
| author | Eli Zaretskii | 2006-05-26 20:01:16 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2006-05-26 20:01:16 +0000 |
| commit | e7682d9261da6de546550672362e5d4cee8d852e (patch) | |
| tree | bcd1b7cf51df48b5ca07fd59635eaf1e1e15621d | |
| parent | 6f39188a8c61e02b9438eddc7967d498d9de3527 (diff) | |
| download | emacs-e7682d9261da6de546550672362e5d4cee8d852e.tar.gz emacs-e7682d9261da6de546550672362e5d4cee8d852e.zip | |
(menu-bar-apropos-menu): Move "Find Key in Manual" and "Find Command in Manual"
to here.
| -rw-r--r-- | lisp/menu-bar.el | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 53939231238..cc1351b9032 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -1302,6 +1302,12 @@ key, a click, or a menu-item")) | |||
| 1302 | :help "Find commands whose names match a regexp")) | 1302 | :help "Find commands whose names match a regexp")) |
| 1303 | (define-key menu-bar-apropos-menu [sep1] | 1303 | (define-key menu-bar-apropos-menu [sep1] |
| 1304 | '("--")) | 1304 | '("--")) |
| 1305 | (define-key menu-bar-apropos-menu [emacs-command-node] | ||
| 1306 | '(menu-item "Look Up Command in User Manual..." Info-goto-emacs-command-node | ||
| 1307 | :help "Display manual section that describes a command")) | ||
| 1308 | (define-key menu-bar-apropos-menu [emacs-key-command-node] | ||
| 1309 | '(menu-item "Look Up Key in User Manual..." Info-goto-emacs-key-command-node | ||
| 1310 | :help "Display manual section that describes a key")) | ||
| 1305 | (define-key menu-bar-apropos-menu [elisp-index-search] | 1311 | (define-key menu-bar-apropos-menu [elisp-index-search] |
| 1306 | '(menu-item "Look Up Subject in ELisp Manual..." elisp-index-search | 1312 | '(menu-item "Look Up Subject in ELisp Manual..." elisp-index-search |
| 1307 | :help "Find description of a subject in Emacs Lisp manual")) | 1313 | :help "Find description of a subject in Emacs Lisp manual")) |
| @@ -1334,14 +1340,6 @@ key, a click, or a menu-item")) | |||
| 1334 | (define-key menu-bar-manuals-menu [info-elintro] | 1340 | (define-key menu-bar-manuals-menu [info-elintro] |
| 1335 | '(menu-item "Introduction to Emacs Lisp" menu-bar-read-lispintro | 1341 | '(menu-item "Introduction to Emacs Lisp" menu-bar-read-lispintro |
| 1336 | :help "Read the Introduction to Emacs Lisp Programming")) | 1342 | :help "Read the Introduction to Emacs Lisp Programming")) |
| 1337 | (define-key menu-bar-manuals-menu [sep3] | ||
| 1338 | '("--")) | ||
| 1339 | (define-key menu-bar-manuals-menu [command] | ||
| 1340 | '(menu-item "Find Command in Manual..." Info-goto-emacs-command-node | ||
| 1341 | :help "Display manual section that describes a command")) | ||
| 1342 | (define-key menu-bar-manuals-menu [key] | ||
| 1343 | '(menu-item "Find Key in Manual..." Info-goto-emacs-key-command-node | ||
| 1344 | :help "Display manual section that describes a key")) | ||
| 1345 | 1343 | ||
| 1346 | (define-key menu-bar-help-menu [eliza] | 1344 | (define-key menu-bar-help-menu [eliza] |
| 1347 | '(menu-item "Emacs Psychotherapist" doctor | 1345 | '(menu-item "Emacs Psychotherapist" doctor |