emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/isearch-mb 5805f13 07/20: Add keybinding for newline


From: Stefan Monnier
Subject: [elpa] externals/isearch-mb 5805f13 07/20: Add keybinding for newline
Date: Sun, 16 May 2021 17:21:13 -0400 (EDT)

branch: externals/isearch-mb
commit 5805f13635c7816f0082993700cc32c64e38b3fc
Author: Augusto Stoffel <arstoffel@gmail.com>
Commit: Augusto Stoffel <arstoffel@gmail.com>

    Add keybinding for newline
---
 isearch-mb.el | 37 +++++++++++++++++++------------------
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/isearch-mb.el b/isearch-mb.el
index c1b576f..b6cf073 100644
--- a/isearch-mb.el
+++ b/isearch-mb.el
@@ -32,24 +32,25 @@
 (defvar isearch-mb-minibuffer-map
   (let ((map (make-sparse-keymap)))
     (set-keymap-parent map minibuffer-local-map)
-    (define-key map (kbd "C-s") 'isearch-repeat-forward)
-    (define-key map (kbd "<down>") 'isearch-repeat-forward)
-    (define-key map (kbd "C-r") 'isearch-repeat-backward)
-    (define-key map (kbd "<up>") 'isearch-repeat-backward)
-    (define-key map (kbd "M-%") 'isearch-query-replace)
-    (define-key map (kbd "C-M-%") 'isearch-query-replace-regexp)
-    (define-key map (kbd "M-<") 'isearch-beginning-of-buffer)
-    (define-key map (kbd "M->") 'isearch-end-of-buffer)
-    (define-key map (kbd "M-s '") 'isearch-toggle-char-fold)
-    (define-key map (kbd "M-s SPC") 'isearch-toggle-lax-whitespace)
-    (define-key map (kbd "M-s _") 'isearch-toggle-symbol)
-    (define-key map (kbd "M-s c") 'isearch-toggle-case-fold)
-    (define-key map (kbd "M-s h r") 'isearch-highlight-regexp)
-    (define-key map (kbd "M-s h l") 'isearch-highlight-lines-matching-regexp)
-    (define-key map (kbd "M-s i") 'isearch-toggle-invisible)
-    (define-key map (kbd "M-s o") 'isearch-occur)
-    (define-key map (kbd "M-s r") 'isearch-toggle-regexp)
-    (define-key map (kbd "M-s w") 'isearch-toggle-word)
+    (define-key map "\C-j" 'newline)
+    (define-key map "\C-s" 'isearch-repeat-forward)
+    (define-key map [down] 'isearch-repeat-forward)
+    (define-key map "\C-r" 'isearch-repeat-backward)
+    (define-key map [up] '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)
     map)
   "Minibuffer keymap used by Isearch-Mb.")
 



reply via email to

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