[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/isearch-mb c6fc566 18/20: Use remapping in minibuffer k
From: |
Stefan Monnier |
Subject: |
[elpa] externals/isearch-mb c6fc566 18/20: Use remapping in minibuffer keymap |
Date: |
Sun, 16 May 2021 17:21:15 -0400 (EDT) |
branch: externals/isearch-mb
commit c6fc5660fce8cacad978b13de26892644ec20a31
Author: Augusto Stoffel <arstoffel@gmail.com>
Commit: Augusto Stoffel <arstoffel@gmail.com>
Use remapping in minibuffer keymap
Additionally remap next/previous-line-or-history-element to forward/backward
Closes https://github.com/astoff/isearch-mb/issues/5
See also https://github.com/astoff/isearch-mb/pull/8
---
isearch-mb.el | 39 ++++++++++++++++++++-------------------
1 file changed, 20 insertions(+), 19 deletions(-)
diff --git a/isearch-mb.el b/isearch-mb.el
index 6d5e441..bf4cf89 100644
--- a/isearch-mb.el
+++ b/isearch-mb.el
@@ -69,25 +69,26 @@
"List of commands that shouldn't trigger a search.")
(defvar isearch-mb-minibuffer-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map minibuffer-local-map)
- (define-key map "\C-j" 'newline)
- (define-key map "\C-s" 'isearch-repeat-forward)
- (define-key map "\C-r" 'isearch-repeat-backward)
- (define-key map "\M-%" 'isearch-query-replace)
- (define-key map [?\C-\M-%] 'isearch-query-replace-regexp)
- (define-key map "\M-<" 'isearch-beginning-of-buffer)
- (define-key map "\M->" 'isearch-end-of-buffer)
- (define-key map "\M-s'" 'isearch-toggle-char-fold)
- (define-key map "\M-s " 'isearch-toggle-lax-whitespace)
- (define-key map "\M-s_" 'isearch-toggle-symbol)
- (define-key map "\M-sc" 'isearch-toggle-case-fold)
- (define-key map "\M-shr" 'isearch-highlight-regexp)
- (define-key map "\M-shl" 'isearch-highlight-lines-matching-regexp)
- (define-key map "\M-si" 'isearch-toggle-invisible)
- (define-key map "\M-so" 'isearch-occur)
- (define-key map "\M-sr" 'isearch-toggle-regexp)
- (define-key map "\M-sw" 'isearch-toggle-word)
+ (let ((map (make-composed-keymap nil minibuffer-local-map)))
+ (define-key map [remap next-line-or-history-element]
#'isearch-repeat-forward)
+ (define-key map [remap previous-line-or-history-element]
#'isearch-repeat-backward)
+ (define-key map [remap minibuffer-beginning-of-buffer]
#'isearch-beginning-of-buffer)
+ (define-key map [remap end-of-buffer] #'isearch-end-of-buffer)
+ (define-key map [remap query-replace] #'isearch-query-replace)
+ (define-key map [remap query-replace-regexp]
#'isearch-query-replace-regexp)
+ (define-key map "\C-j" #'newline)
+ (define-key map "\C-s" #'isearch-repeat-forward)
+ (define-key map "\C-r" #'isearch-repeat-backward)
+ (define-key map "\M-s#'" #'isearch-toggle-char-fold)
+ (define-key map "\M-s " #'isearch-toggle-lax-whitespace)
+ (define-key map "\M-s_" #'isearch-toggle-symbol)
+ (define-key map "\M-sc" #'isearch-toggle-case-fold)
+ (define-key map "\M-shr" #'isearch-highlight-regexp)
+ (define-key map "\M-shl" #'isearch-highlight-lines-matching-regexp)
+ (define-key map "\M-si" #'isearch-toggle-invisible)
+ (define-key map "\M-so" #'isearch-occur)
+ (define-key map "\M-sr" #'isearch-toggle-regexp)
+ (define-key map "\M-sw" #'isearch-toggle-word)
map)
"Minibuffer keymap used by Isearch-Mb.")
- [elpa] branch externals/isearch-mb created (now c270809), Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb 1c16403 15/20: Keep advices only for the duration of a search session, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb ce41e00 12/20: Add a Readme, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb c6fc566 18/20: Use remapping in minibuffer keymap,
Stefan Monnier <=
- [elpa] externals/isearch-mb 5d5b0e9 17/20: Replace advices by let-bindings where possible, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb a663c22 16/20: Better place to check if Isearch is still active, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb dc603a9 03/20: Lazily highlight the whole buffer, to avoid missing overlays, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb 40add97 01/20: Initial commit, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb 8566108 02/20: Many changes, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb 223b1b9 04/20: Introduce a buffer-local minor mode, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb 5805f13 07/20: Add keybinding for newline, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb d075efe 06/20: Rename minor modes, move a test to the timer function, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb 9f11fda 05/20: Several improvements, reorganization, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb a8d2a15 10/20: Provide future history, Stefan Monnier, 2021/05/16