From f947b20a1926ffc5b0553297dfc26d8390bcb328 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Fri, 12 Aug 2022 14:51:36 +0200 Subject: [PATCH] Make finder-mode inherit special-mode * lisp/finder.el (finder-mode): Inherit special-mode. (finder-mode-map): Inherit special-mode-map. --- lisp/finder.el | 10 +++++----- 1 file 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 "" '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-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 () -- 2.39.5