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

try to implement blacklist

Browse Source
This commit is contained in:
bb2020 2016-05-12 14:41:38 +03:00
parent 6a62e60bf2
commit 1686630fd6
1 changed files with 26 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
multiple-cursors-core.el
View File

@ -310,6 +310,19 @@ cursor with updated info."
(mc/pop-state-from-overlay mc--stored-state-for-undo) (mc/pop-state-from-overlay mc--stored-state-for-undo)
(setq mc--stored-state-for-undo nil))) (setq mc--stored-state-for-undo nil)))
(defcustom mc/black-list-prefer nil
"Disables whitelist mechanism and executes commands that are defined
in mc/black-list only once. If you are a novice multiple-cursors or
Emacs user, it is benefitical to stick to whitelists."
:type '(boolean)
:group 'multiple-cursors)
(defcustom mc/black-list nil
"Commands to execute once while using multiple-cursors. Requires
mc/black-list-prefer to be non-nil."
:type '(repeat function)
:group 'multiple-cursors)
(defun mc/prompt-for-inclusion-in-whitelist (original-command) (defun mc/prompt-for-inclusion-in-whitelist (original-command)
"Asks the user, then adds the command either to the once-list or the all-list." "Asks the user, then adds the command either to the once-list or the all-list."
(let ((all-p (y-or-n-p (format "Do %S for all cursors?" original-command)))) (let ((all-p (y-or-n-p (format "Do %S for all cursors?" original-command))))
@ -396,13 +409,19 @@ the original cursor, to inform about the lack of support."
(message "%S is not supported with multiple cursors%s" (message "%S is not supported with multiple cursors%s"
original-command original-command
(get original-command 'mc--unsupported)) (get original-command 'mc--unsupported))
(when (and original-command (if mc/black-list-prefer
(not (memq original-command mc--default-cmds-to-run-once)) (when (and original-command
(not (memq original-command mc/cmds-to-run-once)) (not (memq original-command mc--default-cmds-to-run-once))
(or (memq original-command mc--default-cmds-to-run-for-all) (or (memq original-command mc--default-cmds-to-run-for-all)
(memq original-command mc/cmds-to-run-for-all) (not (memq original-command mc/black-list))))
(mc/prompt-for-inclusion-in-whitelist original-command))) (mc/execute-command-for-all-fake-cursors original-command))
(mc/execute-command-for-all-fake-cursors original-command)))))))))) (when (and original-command
(not (memq original-command mc--default-cmds-to-run-once))
(not (memq original-command mc/cmds-to-run-once))
(or (memq original-command mc--default-cmds-to-run-for-all)
(memq original-command mc/cmds-to-run-for-all)
(mc/prompt-for-inclusion-in-whitelist original-command)))
(mc/execute-command-for-all-fake-cursors original-command)))))))))))
(defun mc/remove-fake-cursors () (defun mc/remove-fake-cursors ()
"Remove all fake cursors. "Remove all fake cursors.