diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-08-12 14:51:36 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-08-12 15:08:19 +0200 |
| commit | f947b20a1926ffc5b0553297dfc26d8390bcb328 (patch) | |
| tree | 0b04069dde2f9530ccfcae75b6a34f92df3f2363 | |
| parent | dc2879864536d89491af7f830881ecf5505cee07 (diff) | |
| download | emacs-f947b20a1926ffc5b0553297dfc26d8390bcb328.tar.gz | |
Make finder-mode inherit special-mode
* lisp/finder.el (finder-mode): Inherit special-mode.
(finder-mode-map): Inherit special-mode-map.
| -rw-r--r-- | lisp/finder.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/finder.el b/lisp/finder.el index 869c5b4b77d..08d20963b46 100644 --- a/lisp/finder.el +++ b/lisp/finder.el @@ -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 () |