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

Extend advising functions for read-char and quoted-read-char w/ macro

Browse Source 
Add register-read-with-preview and read-char-from-minibuffer to cover
insert-register and zap-to-char, respectively.

Also add mc--reset-read-variables to for mc--reset-read-prompts to use
dynamically so these can be further extended via the macro.
This commit is contained in:
Ryan Davis 2022-06-13 13:27:39 -07:00 committed by Magnar Sveen
parent fd8441bfc8
commit 225fc0e889
1 changed files with 28 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
multiple-cursors-core.el
View File

@ -52,6 +52,11 @@ rendered or shift text."
:type '(boolean) :type '(boolean)
:group 'multiple-cursors) :group 'multiple-cursors)
(defcustom mc--reset-read-variables '()
"A list of cache variable names to reset by multiple-cursors."
:type '(list symbol)
:group 'multiple-cursors)
(defface mc/region-face (defface mc/region-face
'((t :inherit region)) '((t :inherit region))
"The face used for fake regions" "The face used for fake regions"
@ -317,26 +322,32 @@ cursor with updated info."
;; Intercept some reading commands so you won't have to ;; Intercept some reading commands so you won't have to
;; answer them for every single cursor ;; answer them for every single cursor
(defvar mc--read-char nil)
(defvar multiple-cursors-mode nil) (defvar multiple-cursors-mode nil)
(defadvice read-char (around mc-support activate)
(if (not multiple-cursors-mode)
ad-do-it
(unless mc--read-char
(setq mc--read-char ad-do-it))
(setq ad-return-value mc--read-char)))
(defvar mc--read-quoted-char nil)
(defadvice read-quoted-char (around mc-support activate)
(if (not multiple-cursors-mode)
ad-do-it
(unless mc--read-quoted-char
(setq mc--read-quoted-char ad-do-it))
(setq ad-return-value mc--read-quoted-char)))
(defun mc--reset-read-prompts () (defun mc--reset-read-prompts ()
(setq mc--read-char nil) (mapc (lambda (var) (set var nil))
(setq mc--read-quoted-char nil)) mc--reset-read-variables))
(defmacro mc--cache-input-function (fn-name)
"Advise FN-NAME to cache its value in a private variable. Cache
is to be used by mc/execute-command-for-all-fake-cursors and
caches will be reset by mc--reset-read-prompts."
(let ((mc-name (intern (concat "mc--" (symbol-name fn-name)))))
`(progn
(defvar ,mc-name nil)
(defun ,mc-name (orig-fun &rest args)
(if (not multiple-cursors-mode)
(apply orig-fun args)
(unless ,mc-name
(setq ,mc-name (apply orig-fun args)))
,mc-name))
(advice-add ',fn-name :around #',mc-name)
(add-to-list 'mc--reset-read-variables ',mc-name))))
(mc--cache-input-function read-char)
(mc--cache-input-function read-quoted-char)
(mc--cache-input-function register-read-with-preview) ; used by insert-register
(mc--cache-input-function read-char-from-minibuffer) ; used by zap-to-char
(mc--reset-read-prompts) (mc--reset-read-prompts)