andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make finder-mode inherit special-mode

Browse source 
* lisp/finder.el (finder-mode): Inherit special-mode.
(finder-mode-map): Inherit special-mode-map.
This commit is contained in:
Stefan Kangas 2022-08-12 14:51:36 +02:00
parent dc28798645
commit f947b20a19
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/finder.el
View file

@ -77,6 +77,7 @@ Each element has the form (KEYWORD . DESCRIPTION).")
(defvar-keymap finder-mode-map
:doc "Keymap used in `finder-mode'."
:parent special-mode-map
"SPC" #'finder-select
"f" #'finder-select
"<follow-link>" 'mouse-face
@ -420,15 +421,14 @@ FILE should be in a form suitable for passing to `locate-library'."
(interactive)
(finder-list-keywords))
(define-derived-mode finder-mode nil "Finder"
(define-derived-mode finder-mode special-mode "Finder"
"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 kill the Finder buffer."
:syntax-table finder-mode-syntax-table
\\[finder-exit] exit Finder mode and kill the Finder buffer.
\\{finder-mode-map}"
:interactive nil
(setq buffer-read-only t
buffer-undo-list t)
(setq-local finder-headmark nil))
(defun finder-summary ()