Mercurial > emacs
changeset 2134:b275e1b50542
Added autoload, binding and menu line for new finder feature (P).
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Thu, 11 Mar 1993 07:55:27 +0000 |
| parents | 63d15b0e048e |
| children | 0634d08c28d1 |
| files | lisp/help.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Thu Mar 11 07:54:22 1993 +0000 +++ b/lisp/help.el Thu Mar 11 07:55:27 1993 +0000 @@ -56,6 +56,9 @@ (define-key help-map "\C-n" 'view-emacs-news) (define-key help-map "n" 'view-emacs-news) +(define-key help-map "p" 'finder-by-keyword) +(autoload 'finder-by-keyword "finder.el") + (define-key help-map "s" 'describe-syntax) (define-key help-map "t" 'help-with-tutorial) @@ -216,6 +219,7 @@ M describe-mode. Print documentation of current major mode, which describes the commands peculiar to it. N view-emacs-news. Shows emacs news file. +P finder-by-keyword. Find packages matching a given topic keyword. S describe-syntax. Display contents of syntax table, plus explanations T help-with-tutorial. Select the Emacs learn-by-doing tutorial. V describe-variable. Type name of a variable; @@ -228,7 +232,7 @@ C-w print information on absence of warranty for GNU Emacs." (interactive) (message (substitute-command-keys - "A B C F I K L M N S T V W C-c C-d C-n C-w. Type \\[help-for-help] again for more help: ")) + "A B C F I K L M N P S T V W C-c C-d C-n C-w. Type \\[help-for-help] again for more help: ")) (let ((char (read-char))) (if (or (= char help-char) (= char ??)) (save-window-excursion @@ -242,7 +246,7 @@ (scroll-up)) (if (memq char '(?\177 ?\M-v)) (scroll-down)) - (message "A B C F I K L M N S T V W C-c C-d C-n C-w%s: " + (message "A B C F I K L M N P S T V W C-c C-d C-n C-w%s: " (if (pos-visible-in-window-p (point-max)) "" " or Space to scroll")) (let ((cursor-in-echo-area t))