Mercurial > emacs
changeset 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 | 9caee9338229 |
| children | 67f34b0bc2d1 |
| files | lisp/finder.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/finder.el Sun May 09 23:48:41 1993 +0000 +++ b/lisp/finder.el Sun May 09 23:52:39 1993 +0000 @@ -77,7 +77,7 @@ (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 "x" 'finder-exit) + (define-key finder-mode-map "q" 'finder-exit) (define-key finder-mode-map "f" 'finder-list-keywords) ; ) @@ -227,7 +227,7 @@ (defun finder-mode () "Major mode for browsing package documentation. - +\\<finder-mode-map> \\[finder-select] more help for the item on the current line \\[finder-exit] exit Finder mode and fill the Finder buffer. " @@ -247,7 +247,8 @@ "Summarize basic Finder commands." (interactive) (message - "SPC = select, f = back to Finder, x = eXit, ? = help")) + (substitute-command-keys + "\\<finder-mode-map>\\[finder-select] = select, \\[finder-list-keywords] = back to finder, \\[finder-exit] = quit, \\[finder-summary] = help"))) (defun finder-exit () "Exit Finder mode and kill the buffer"