[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/multiple-cursors ba7852f192 2/3: Move mc/mark-more-like-th
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/multiple-cursors ba7852f192 2/3: Move mc/mark-more-like-this-extended-keymap defvar location |
Date: |
Fri, 23 Feb 2024 07:00:16 -0500 (EST) |
branch: elpa/multiple-cursors
commit ba7852f192c149b4639cefdeff860331a63bf99d
Author: Laurence Warne <laurencewarne@gmail.com>
Commit: Laurence Warne <laurencewarne@gmail.com>
Move mc/mark-more-like-this-extended-keymap defvar location
---
mc-mark-more.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/mc-mark-more.el b/mc-mark-more.el
index 3bc4b9cfec..51f867e971 100644
--- a/mc-mark-more.el
+++ b/mc-mark-more.el
@@ -31,8 +31,6 @@
(require 'thingatpt)
(require 'sgml-mode)
-(defvar mc/mark-more-like-this-extended-keymap (make-sparse-keymap))
-
(defun mc/cursor-end (cursor)
(if (overlay-get cursor 'mark-active)
(max (overlay-get cursor 'point)
@@ -500,6 +498,13 @@ remove the keymap depends on user input and KEEP-PRED:
(push alist emulation-mode-map-alists))))
+(defvar mc/mark-more-like-this-extended-keymap (make-sparse-keymap))
+
+(define-key mc/mark-more-like-this-extended-keymap (kbd "<up>") 'mc/mmlte--up)
+(define-key mc/mark-more-like-this-extended-keymap (kbd "<down>")
'mc/mmlte--down)
+(define-key mc/mark-more-like-this-extended-keymap (kbd "<left>")
'mc/mmlte--left)
+(define-key mc/mark-more-like-this-extended-keymap (kbd "<right>")
'mc/mmlte--right)
+
;;;###autoload
(defun mc/mark-more-like-this-extended ()
"Like mark-more-like-this, but then lets you adjust with arrow keys.
@@ -561,11 +566,6 @@ are we working on the next or previous cursors?")
(mc/skip-to-next-like-this))
(mc/mmlte--message))
-(define-key mc/mark-more-like-this-extended-keymap (kbd "<up>") 'mc/mmlte--up)
-(define-key mc/mark-more-like-this-extended-keymap (kbd "<down>")
'mc/mmlte--down)
-(define-key mc/mark-more-like-this-extended-keymap (kbd "<left>")
'mc/mmlte--left)
-(define-key mc/mark-more-like-this-extended-keymap (kbd "<right>")
'mc/mmlte--right)
-
(defvar mc--restrict-mark-all-to-symbols nil)
;;;###autoload