# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 780985496 0
# Node ID e48652e6473687860dfdb4d0d2a13190793cec9b
# Parent  712e13833ad87404dc6fabc853bd57c92e10198e
(finder-mode-map): Change key bindings:
RET or f to select, d to go back to directory.
(finder-summary): Fix the help summary.

diff -r 712e13833ad8 -r e48652e64736 lisp/finder.el
--- a/lisp/finder.el	Sat Oct 01 03:53:40 1994 +0000
+++ b/lisp/finder.el	Sat Oct 01 04:24:56 1994 +0000
@@ -79,14 +79,16 @@
     ))
 
 (defvar finder-mode-map nil)
-;(if finder-mode-map
-;    nil
-  (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 "q"	'finder-exit)
-  (define-key finder-mode-map "f"	'finder-list-keywords)
-;  )
+(or finder-mode-map
+    (let ((map (make-sparse-keymap)))
+      (define-key map " "	'finder-select)
+      (define-key map "f"	'finder-select)
+      (define-key map "\C-m"	'finder-select)
+      (define-key map "?"	'finder-summary)
+      (define-key map "q"	'finder-exit)
+      (define-key map "d"	'finder-list-keywords)
+      (setq finder-mode-map map)))
+
 
 ;;; Code for regenerating the keyword list.
 
@@ -271,7 +273,7 @@
   (interactive)
   (message
    (substitute-command-keys
-    "\\<finder-mode-map>\\[finder-select] = select, \\[finder-list-keywords] = back to finder, \\[finder-exit] = quit, \\[finder-summary] = help")))
+    "\\<finder-mode-map>\\[finder-select] = select, \\[finder-list-keywords] = to finder directory, \\[finder-exit] = quit, \\[finder-summary] = help")))
 
 (defun finder-exit ()
   "Exit Finder mode and kill the buffer"