diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-10-01 04:24:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-10-01 04:24:56 +0000 |
| commit | e141acb3f441298d3f444d92ae4974b5992f2148 (patch) | |
| tree | c60767007d7ba4e1eece9f3db8c57c8e0841fd1c /lisp/finder.el | |
| parent | 7470b9b6022250f803c953a01aa9b2e5857c041d (diff) | |
| download | emacs-e141acb3f441298d3f444d92ae4974b5992f2148.tar.gz | |
(finder-mode-map): Change key bindings:
RET or f to select, d to go back to directory.
(finder-summary): Fix the help summary.
Diffstat (limited to 'lisp/finder.el')
| -rw-r--r-- | lisp/finder.el | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/lisp/finder.el b/lisp/finder.el index c13be5c9206..aaac9df29d5 100644 --- a/lisp/finder.el +++ b/lisp/finder.el @@ -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 @@ arguments compiles from `load-path'." (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" |