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) |