Mercurial > emacs
comparison lisp/finder.el @ 2716:acd678e58602
* finder.el: Bind finder-exit to 'q', not 'x'; the former is the
conventional way to get out of such a package.
(finder-summary): Use substitute-command-keys.
(finder-mode): Use \\<...> to make sure we get the right keymap.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sun, 09 May 1993 23:52:39 +0000 |
| parents | 93015b63b041 |
| children | 358fe58ae153 |
comparison
equal
deleted
inserted
replaced
| 2715:9caee9338229 | 2716:acd678e58602 |
|---|---|
| 75 ;(if finder-mode-map | 75 ;(if finder-mode-map |
| 76 ; nil | 76 ; nil |
| 77 (setq finder-mode-map (make-sparse-keymap)) | 77 (setq finder-mode-map (make-sparse-keymap)) |
| 78 (define-key finder-mode-map " " 'finder-select) | 78 (define-key finder-mode-map " " 'finder-select) |
| 79 (define-key finder-mode-map "?" 'finder-summary) | 79 (define-key finder-mode-map "?" 'finder-summary) |
| 80 (define-key finder-mode-map "x" 'finder-exit) | 80 (define-key finder-mode-map "q" 'finder-exit) |
| 81 (define-key finder-mode-map "f" 'finder-list-keywords) | 81 (define-key finder-mode-map "f" 'finder-list-keywords) |
| 82 ; ) | 82 ; ) |
| 83 | 83 |
| 84 ;;; Code for regenerating the keyword list. | 84 ;;; Code for regenerating the keyword list. |
| 85 | 85 |
| 225 (finder-mode) | 225 (finder-mode) |
| 226 (finder-list-keywords)) | 226 (finder-list-keywords)) |
| 227 | 227 |
| 228 (defun finder-mode () | 228 (defun finder-mode () |
| 229 "Major mode for browsing package documentation. | 229 "Major mode for browsing package documentation. |
| 230 | 230 \\<finder-mode-map> |
| 231 \\[finder-select] more help for the item on the current line | 231 \\[finder-select] more help for the item on the current line |
| 232 \\[finder-exit] exit Finder mode and fill the Finder buffer. | 232 \\[finder-exit] exit Finder mode and fill the Finder buffer. |
| 233 " | 233 " |
| 234 (interactive) | 234 (interactive) |
| 235 (pop-to-buffer "*Finder*") | 235 (pop-to-buffer "*Finder*") |
| 245 | 245 |
| 246 (defun finder-summary () | 246 (defun finder-summary () |
| 247 "Summarize basic Finder commands." | 247 "Summarize basic Finder commands." |
| 248 (interactive) | 248 (interactive) |
| 249 (message | 249 (message |
| 250 "SPC = select, f = back to Finder, x = eXit, ? = help")) | 250 (substitute-command-keys |
| 251 "\\<finder-mode-map>\\[finder-select] = select, \\[finder-list-keywords] = back to finder, \\[finder-exit] = quit, \\[finder-summary] = help"))) | |
| 251 | 252 |
| 252 (defun finder-exit () | 253 (defun finder-exit () |
| 253 "Exit Finder mode and kill the buffer" | 254 "Exit Finder mode and kill the buffer" |
| 254 (interactive) | 255 (interactive) |
| 255 (delete-window) | 256 (delete-window) |