[elpa] externals/el-search e522b71 305/332: [el-search] Enhance docstring of el-search-occur-mode

[Stefan Monnier]

branch: externals/el-search
commit e522b719a4c826c664fb423b8d108655bc6494da
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>

    [el-search] Enhance docstring of el-search-occur-mode
    
    * packages/el-search/el-search.el (el-search-occur-mode-map-1): New
    helper variable holding only the non-inherited bindings.
    (el-search-occur-mode-map): Use it.
    (el-search-occur-mode): Add docstring.  Use
    'el-search-occur-mode-map-1' to describe the essential key bindings.
---
 el-search.el | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/el-search.el b/el-search.el
index d671e0c..7328ec7 100644
--- a/el-search.el
+++ b/el-search.el
@@ -3608,7 +3608,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)
@@ -3625,10 +3625,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)