[Top][All Lists]

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

[elpa] externals/consult dbc6ab2 1/2: consult-isearch-map: Use remapping

From: ELPA Syncer
Subject: [elpa] externals/consult dbc6ab2 1/2: consult-isearch-map: Use remapping
Date: Thu, 22 Jul 2021 06:57:08 -0400 (EDT)

branch: externals/consult
commit dbc6ab2e38ab6d910861ef036ed3e891b6774a13
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    consult-isearch-map: Use remapping
 consult.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/consult.el b/consult.el
index a8cd7e3..259bee9 100644
--- a/consult.el
+++ b/consult.el
@@ -3299,15 +3299,15 @@ In order to select from a specific HISTORY, pass the 
history variable as argumen
   (setq isearch-new-forward (not reverse) isearch-new-nonincremental nil)
   (funcall (or (command-remapping #'exit-minibuffer) #'exit-minibuffer)))
-(defun consult-isearch-reverse (&optional reverse)
+(defun consult-isearch-backward (&optional reverse)
   "Continue isearch backward optionally in REVERSE."
   (consult-isearch-forward (not reverse)))
 (defvar consult-isearch-map
   (let ((map (make-sparse-keymap)))
-    (define-key map "\C-s" #'consult-isearch-forward)
-    (define-key map "\C-r" #'consult-isearch-reverse)
+    (define-key map [remap isearch-forward] #'consult-isearch-forward)
+    (define-key map [remap isearch-backward] #'consult-isearch-backward)
   "Additional keymap used by `consult-isearch'.")

reply via email to

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