From ba7852f192c149b4639cefdeff860331a63bf99d Mon Sep 17 00:00:00 2001 From: Laurence Warne Date: Tue, 13 Feb 2024 21:00:51 +0000 Subject: [PATCH] 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 3bc4b9c..51f867e 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 "") 'mc/mmlte--up) +(define-key mc/mark-more-like-this-extended-keymap (kbd "") 'mc/mmlte--down) +(define-key mc/mark-more-like-this-extended-keymap (kbd "") 'mc/mmlte--left) +(define-key mc/mark-more-like-this-extended-keymap (kbd "") '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 "") 'mc/mmlte--up) -(define-key mc/mark-more-like-this-extended-keymap (kbd "") 'mc/mmlte--down) -(define-key mc/mark-more-like-this-extended-keymap (kbd "") 'mc/mmlte--left) -(define-key mc/mark-more-like-this-extended-keymap (kbd "") 'mc/mmlte--right) - (defvar mc--restrict-mark-all-to-symbols nil) ;;;###autoload