mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

* finder.el: Bind finder-exit to 'q', not 'x'; the former is the

Browse Source 
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.
This commit is contained in:
Jim Blandy 1993-05-09 23:52:39 +00:00
parent f0138172cd
commit 527da10641
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/finder.el
View File

@ -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 @@ arguments compiles from `load-path'."
(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 @@ arguments compiles from `load-path'."
"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"