Mercurial > emacs
changeset 9200:e48652e64736
(finder-mode-map): Change key bindings:
RET or f to select, d to go back to directory.
(finder-summary): Fix the help summary.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 01 Oct 1994 04:24:56 +0000 |
| parents | 712e13833ad8 |
| children | 3af00d95faac |
| files | lisp/finder.el |
| diffstat | 1 files changed, 11 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- 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"