ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2025-10-13 05:03:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

Move mc/mark-more-like-this-extended-keymap defvar location

Browse Source
This commit is contained in:
Laurence Warne 2024-02-13 21:00:51 +00:00
parent 25b0dca82e
commit ba7852f192
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
mc-mark-more.el
View File

@ -31,8 +31,6 @@
(require 'thingatpt) (require 'thingatpt)
(require 'sgml-mode) (require 'sgml-mode)
(defvar mc/mark-more-like-this-extended-keymap (make-sparse-keymap))
(defun mc/cursor-end (cursor) (defun mc/cursor-end (cursor)
(if (overlay-get cursor 'mark-active) (if (overlay-get cursor 'mark-active)
(max (overlay-get cursor 'point) (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)))) (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 ;;;###autoload
(defun mc/mark-more-like-this-extended () (defun mc/mark-more-like-this-extended ()
"Like mark-more-like-this, but then lets you adjust with arrow keys. "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/skip-to-next-like-this))
(mc/mmlte--message)) (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) (defvar mc--restrict-mark-all-to-symbols nil)
;;;###autoload ;;;###autoload