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 | 07c7ed501fb6330e2ccd07591d3e8be622316f44 (patch) | |
| tree | 7cd3c0936d20d73836df3c1d528772f980c54d23 /lisp/finder.el | |
| parent | c4aa9d002114033af1f0afa3267d6fca5cbff83e (diff) | |
| download | emacs-07c7ed501fb6330e2ccd07591d3e8be622316f44.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" |