[Top][All Lists]

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

[elpa] scratch/mheerdegen-preview 9cfe823 32/33: WIP: [el-search] Enhanc

From: Michael Heerdegen
Subject: [elpa] scratch/mheerdegen-preview 9cfe823 32/33: WIP: [el-search] Enhance doc of el-search-occur-mode
Date: Wed, 24 Oct 2018 18:30:53 -0400 (EDT)

branch: scratch/mheerdegen-preview
commit 9cfe823c7598300dd6f00d042128be3649663b81
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 e968fc8..ba8c84d 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."
-(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 
 (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]