Mercurial > emacs
comparison lisp/finder.el @ 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 | 8053544ffe30 |
| children | d9ec5322d181 |
comparison
equal
deleted
inserted
replaced
| 9199:712e13833ad8 | 9200:e48652e64736 |
|---|---|
| 77 (vms . "support code for vms") | 77 (vms . "support code for vms") |
| 78 (wp . "word processing") | 78 (wp . "word processing") |
| 79 )) | 79 )) |
| 80 | 80 |
| 81 (defvar finder-mode-map nil) | 81 (defvar finder-mode-map nil) |
| 82 ;(if finder-mode-map | 82 (or finder-mode-map |
| 83 ; nil | 83 (let ((map (make-sparse-keymap))) |
| 84 (setq finder-mode-map (make-sparse-keymap)) | 84 (define-key map " " 'finder-select) |
| 85 (define-key finder-mode-map " " 'finder-select) | 85 (define-key map "f" 'finder-select) |
| 86 (define-key finder-mode-map "?" 'finder-summary) | 86 (define-key map "\C-m" 'finder-select) |
| 87 (define-key finder-mode-map "q" 'finder-exit) | 87 (define-key map "?" 'finder-summary) |
| 88 (define-key finder-mode-map "f" 'finder-list-keywords) | 88 (define-key map "q" 'finder-exit) |
| 89 ; ) | 89 (define-key map "d" 'finder-list-keywords) |
| 90 (setq finder-mode-map map))) | |
| 91 | |
| 90 | 92 |
| 91 ;;; Code for regenerating the keyword list. | 93 ;;; Code for regenerating the keyword list. |
| 92 | 94 |
| 93 (defvar finder-package-info nil | 95 (defvar finder-package-info nil |
| 94 "Assoc list mapping file names to description & keyword lists.") | 96 "Assoc list mapping file names to description & keyword lists.") |
| 269 (defun finder-summary () | 271 (defun finder-summary () |
| 270 "Summarize basic Finder commands." | 272 "Summarize basic Finder commands." |
| 271 (interactive) | 273 (interactive) |
| 272 (message | 274 (message |
| 273 (substitute-command-keys | 275 (substitute-command-keys |
| 274 "\\<finder-mode-map>\\[finder-select] = select, \\[finder-list-keywords] = back to finder, \\[finder-exit] = quit, \\[finder-summary] = help"))) | 276 "\\<finder-mode-map>\\[finder-select] = select, \\[finder-list-keywords] = to finder directory, \\[finder-exit] = quit, \\[finder-summary] = help"))) |
| 275 | 277 |
| 276 (defun finder-exit () | 278 (defun finder-exit () |
| 277 "Exit Finder mode and kill the buffer" | 279 "Exit Finder mode and kill the buffer" |
| 278 (interactive) | 280 (interactive) |
| 279 (delete-window) | 281 (delete-window) |