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

[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



reply via email to

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