# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 731836527 0
# Node ID b275e1b50542ed6016272585da316d0f7050f6eb
# Parent  63d15b0e048ee8cd15ffe1b8cb02b03aa4614d10
Added autoload, binding and menu line for new finder feature (P).

diff -r 63d15b0e048e -r b275e1b50542 lisp/help.el
--- 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))