Skip to content

Commit

Permalink
Move mc/mark-more-like-this-extended-keymap defvar location
Browse files Browse the repository at this point in the history
  • Loading branch information
LaurenceWarne committed Feb 13, 2024
1 parent 25b0dca commit ba7852f
Showing 1 changed file with 7 additions and 7 deletions.
14 changes: 7 additions & 7 deletions mc-mark-more.el
Expand Up @@ -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)
Expand Down Expand Up @@ -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.
Expand Down Expand Up @@ -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
Expand Down

0 comments on commit ba7852f

Please sign in to comment.