Clean up el-search-read-expression-map; add some doc

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 2d032e62237c3616139b5c3f3a90d223105177c0..77faf7bfa53904f6f90d41e5b155642374526b5a 100644 (file)
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -162,8 +162,12 @@
 ;;    (define-key isearch-mode-map [(control ?S)] #'el-search-search-from-isearch)
 ;;    (define-key isearch-mode-map [(control ?%)] #'el-search-replace-from-isearch)
 ;;
 ;;    (define-key isearch-mode-map [(control ?S)] #'el-search-search-from-isearch)
 ;;    (define-key isearch-mode-map [(control ?%)] #'el-search-replace-from-isearch)
 ;;

+;;    (define-key el-search-read-expression-map [(control ?S)] #'exit-minibuffer)
+;;

 ;; The bindings in `isearch-mode-map' let you conveniently switch to
 ;; The bindings in `isearch-mode-map' let you conveniently switch to

-;; "el-search" searching from isearch.
+;; "el-search" searching from isearch.  The binding in
+;; `el-search-read-expression-map' allows you to hit C-S twice to
+;; start a search for the last search pattern.

 ;;
 ;;
 ;; Bugs, Known Limitations
 ;;
 ;;
 ;; Bugs, Known Limitations


@@ -303,8 +307,7 @@ error."
     (define-key map [(control ?g)] #'abort-recursive-edit)
     (define-key map [up]   nil)
     (define-key map [down] nil)
     (define-key map [(control ?g)] #'abort-recursive-edit)
     (define-key map [up]   nil)
     (define-key map [down] nil)

-    (define-key map [(control meta backspace)] #'backward-kill-sexp)
-    (define-key map [(control ?S)] #'exit-minibuffer)
+    (define-key map [(control ?j)] #'newline)

     map)
   "Map for reading input with `el-search-read-expression'.")
 
     map)
   "Map for reading input with `el-search-read-expression'.")
 


@@ -950,6 +953,12 @@ Search current buffer for expressions that are matched by `pcase'
 PATTERN.  Use `read' to transform buffer contents into
 expressions.
 
 PATTERN.  Use `read' to transform buffer contents into
 expressions.
 

+Use `emacs-lisp-mode' for reading input.  Some keys in the
+minibuffer have a special binding: to make it possible to edit
+multi line input, C-j inserts a newline, and up and down move the
+cursor vertically - see `el-search-read-expression-map' for more
+details.
+

 
 Additional `pcase' pattern types to be used with this command can
 be defined with `el-search-defpattern'.
 
 Additional `pcase' pattern types to be used with this command can
 be defined with `el-search-defpattern'.