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

Prompt for inclusion in white/black-lists when met with an unknown command

Browse Source
This commit is contained in:
Magnar Sveen 2012-07-19 15:55:52 +02:00
parent 700db99d66
commit 466d03607d
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
multiple-cursors-core.el
View File

@ -121,6 +121,12 @@ cursor with updated info."
(save-excursion ,@forms) (save-excursion ,@forms)
(mc/pop-state-from-overlay current-state))) (mc/pop-state-from-overlay current-state)))
(defun mc/prompt-for-inclusion-in-whitelist (original-command)
(if (y-or-n-p (format "Do %S for all cursors?" original-command))
(add-to-list 'mc--cmds original-command)
(add-to-list 'mc--cmds-run-once original-command)
nil))
(defun mc/execute-this-command-for-all-cursors () (defun mc/execute-this-command-for-all-cursors ()
"Used with post-command-hook to execute supported commands for "Used with post-command-hook to execute supported commands for
all cursors. It also checks a list of explicitly unsupported all cursors. It also checks a list of explicitly unsupported
@ -143,9 +149,10 @@ cursors."
(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))
(if (not (memq original-command mc--cmds)) (when (and original-command
(when (and original-command (not (memq original-command mc--cmds-run-once))) (not (memq original-command mc--cmds-run-once))
(message "Skipping %S" original-command)) (or (memq original-command mc--cmds)
(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))))))
(defun mc/remove-fake-cursors () (defun mc/remove-fake-cursors ()
@ -230,7 +237,10 @@ from being executed if in multiple-cursors-mode."
undo-tree-redo undo-tree-redo
universal-argument universal-argument
universal-argument-other-key universal-argument-other-key
mc/switch-from-mark-multiple-to-cursors)) mc/switch-from-mark-multiple-to-cursors
mc/edit-lines
mc/edit-ends-of-lines
mc/edit-beginnings-of-lines))
;; Commands that should be mirrored by all cursors ;; Commands that should be mirrored by all cursors
(setq mc--cmds '(mc/keyboard-quit (setq mc--cmds '(mc/keyboard-quit