[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] scratch/mheerdegen-preview 237c2c6 33/35: WIP: [el-search] Enhanc

From: Michael Heerdegen
Subject: [elpa] scratch/mheerdegen-preview 237c2c6 33/35: WIP: [el-search] Enhance doc of el-search-occur-mode
Date: Mon, 29 Oct 2018 22:24:09 -0400 (EDT)

branch: scratch/mheerdegen-preview
commit 237c2c637916473386d1a2afb0a25cf5cd6d3689
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    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 8739425..799446b 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -3481,7 +3481,7 @@ Prompt for a new pattern and revert."
-(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)
@@ -3498,10 +3498,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 
 (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:
+The mode's keymap inherits from `emacs-lisp-mode-map' and in
+addition from `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)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]