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

Add message about delete-char vs delete-forward-char

Browse Source
This commit is contained in:
Magnar Sveen 2012-07-02 08:40:51 +02:00
parent 759391e04d
commit 9182897918
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
multiple-cursors-core.el
View File

@ -126,7 +126,9 @@ Commands that are neither supported nor explicitly unsupported
is executed normally for point, but skipped for the fake is executed normally for point, but skipped for the fake
cursors." cursors."
(if (memq this-original-command mc--unsupported-cmds) (if (memq this-original-command mc--unsupported-cmds)
(message "%S is not supported with multiple cursors" this-original-command) (message "%S is not supported with multiple cursors. %s"
this-original-command
(get this-original-command 'mc--unsupported-msg))
(if (not (memq this-original-command mc--cmds)) (if (not (memq this-original-command mc--cmds))
(when (not (memq this-original-command mc--cmds-run-once)) (when (not (memq this-original-command mc--cmds-run-once))
(message "Skipping %S" this-original-command)) (message "Skipping %S" this-original-command))
@ -168,19 +170,21 @@ multiple cursors editing.")
"List of commands that does not work well with multiple cursors. "List of commands that does not work well with multiple cursors.
Set up with the unsupported-cmd macro.") Set up with the unsupported-cmd macro.")
(defmacro unsupported-cmd (cmd) (defmacro unsupported-cmd (cmd msg)
"Adds command to list of unsupported commands and prevents it "Adds command to list of unsupported commands and prevents it
from being executed if in multiple-cursors-mode." from being executed if in multiple-cursors-mode."
`(progn `(progn
(push (quote ,cmd) mc--unsupported-cmds) (push (quote ,cmd) mc--unsupported-cmds)
(put (quote ,cmd) 'mc--unsupported-msg ,msg)
(defadvice ,cmd (around unsupported-advice activate) (defadvice ,cmd (around unsupported-advice activate)
"command isn't supported with multiple cursors" "command isn't supported with multiple cursors"
(unless multiple-cursors-mode (unless (and multiple-cursors-mode (called-interactively-p 'any))
ad-do-it)))) ad-do-it))))
;; Commands that does not work with multiple-cursors ;; Commands that does not work with multiple-cursors
(unsupported-cmd isearch-forward) (unsupported-cmd isearch-forward ". Feel free to add a multiple-cursors friendly version.")
(unsupported-cmd isearch-backward) (unsupported-cmd isearch-backward ". Feel free to add a multiple-cursors friendly version.")
(unsupported-cmd delete-char ", delete-forward-char is preferred for interactive use.")
;; Commands to run only once (not yet in use) ;; Commands to run only once (not yet in use)
(setq mc--cmds-run-once '(mark-next-like-this (setq mc--cmds-run-once '(mark-next-like-this
@ -219,7 +223,7 @@ from being executed if in multiple-cursors-mode."
kill-whole-line kill-whole-line
backward-kill-word backward-kill-word
backward-delete-char-untabify backward-delete-char-untabify
delete-char c-electric-delete-forward delete-forward-char c-electric-delete-forward
delete-backward-char c-electric-backspace delete-backward-char c-electric-backspace
c-electric-paren c-electric-paren
c-electric-semi&comma c-electric-semi&comma