branch: scratch/mheerdegen-preview
commit 009dc4d3f80139505637d3edc328f2b53f36bc4e
Author: Michael Heerdegen <michael_heerde...@web.de>
Commit: Michael Heerdegen <michael_heerde...@web.de>
WIP: [el-search] Enhance doc of el-search-occur-mode
---
packages/el-search/el-search.el | 15 ++++++++++++++-
1 file changed, 14 insertions(+), 1 deletion(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 8d09fa9..bf8d067 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -3471,7 +3471,7 @@ Prompt for a new pattern and revert."
#'hs-toggle-hiding
#'outline-toggle-children)))
-(defvar el-search-occur-mode-map
+(defvar el-search-occur-mode-map-1
(let ((map (make-sparse-keymap)))
(define-key map [tab] #'el-search-occur-tab-command)
(define-key map "\t" #'el-search-occur-tab-command)
@@ -3488,10 +3488,23 @@ Prompt for a new pattern and revert."
(define-key map [?c ?d] #'el-search-occur-defun-context)
(define-key map [?c ?a] #'el-search-occur-defun-context)
(define-key map [?c ?s] #'el-search-occur-some-context)
+ map))
+
+(defvar el-search-occur-mode-map
+ (let ((map (copy-keymap el-search-occur-mode-map-1)))
(set-keymap-parent map (make-composed-keymap special-mode-map
emacs-lisp-mode-map))
map))
(define-derived-mode el-search-occur-mode emacs-lisp-mode "El-Occur"
+ "Major mode for El-Occur buffers.
+
+This mode provides the following key bindings:
+
+\\{el-search-occur-mode-map-1}
+The mode's keymap inherits from `emacs-lisp-mode-map' and in
+addition from `special-mode-map':
+
+\\{special-mode-map}"
(setq-local revert-buffer-function #'el-search-occur-revert-function)
(setq buffer-read-only t)
(setq-local hs-hide-comments-when-hiding-all nil)
