# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 736991559 0
# Node ID acd678e5860279d080252399b1d5b16973cbc75e
# Parent  9caee9338229ac92775a275a6de0fb82121f8247
	* finder.el: Bind finder-exit to 'q', not 'x'; the former is the
	conventional way to get out of such a package.
	(finder-summary): Use substitute-command-keys.
	(finder-mode): Use \\<...> to make sure we get the right keymap.

diff -r 9caee9338229 -r acd678e58602 lisp/finder.el
--- a/lisp/finder.el	Sun May 09 23:48:41 1993 +0000
+++ b/lisp/finder.el	Sun May 09 23:52:39 1993 +0000
@@ -77,7 +77,7 @@
   (setq finder-mode-map (make-sparse-keymap))
   (define-key finder-mode-map " "	'finder-select)
   (define-key finder-mode-map "?"	'finder-summary)
-  (define-key finder-mode-map "x"	'finder-exit)
+  (define-key finder-mode-map "q"	'finder-exit)
   (define-key finder-mode-map "f"	'finder-list-keywords)
 ;  )
 
@@ -227,7 +227,7 @@
 
 (defun finder-mode ()
   "Major mode for browsing package documentation.
-
+\\<finder-mode-map>
 \\[finder-select]	more help for the item on the current line
 \\[finder-exit]	exit Finder mode and fill the Finder buffer.
 "
@@ -247,7 +247,8 @@
   "Summarize basic Finder commands."
   (interactive)
   (message
-   "SPC = select, f = back to Finder, x = eXit, ? = help"))
+   (substitute-command-keys
+    "\\<finder-mode-map>\\[finder-select] = select, \\[finder-list-keywords] = back to finder, \\[finder-exit] = quit, \\[finder-summary] = help")))
 
 (defun finder-exit ()
   "Exit Finder mode and kill the buffer"