From fca06858e946bbe8a6299c24cc014edaa2334382 Mon Sep 17 00:00:00 2001 From: Magnar Sveen Date: Wed, 18 Jul 2012 12:54:25 +0200 Subject: [PATCH] Use symbol properties on commands instead of maintaining a list of unsupported commands. --- multiple-cursors-core.el | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/multiple-cursors-core.el b/multiple-cursors-core.el index b293947..1e675e9 100644 --- a/multiple-cursors-core.el +++ b/multiple-cursors-core.el @@ -132,10 +132,10 @@ is executed normally for point, but skipped for the fake cursors." (let ((original-command (or (command-remapping this-original-command) this-original-command))) - (if (memq original-command mc--unsupported-cmds) + (if (get original-command 'mc--unsupported) (message "%S is not supported with multiple cursors%s" original-command - (get original-command 'mc--unsupported-msg)) + (get original-command 'mc--unsupported)) (if (not (memq original-command mc--cmds)) (when (not (memq original-command mc--cmds-run-once)) (message "Skipping %S" original-command)) @@ -173,16 +173,11 @@ multiple cursors editing.") (remove-hook 'post-command-hook 'mc/execute-this-command-for-all-cursors t) (mc/remove-fake-cursors))) -(defvar mc--unsupported-cmds '() - "List of commands that does not work well with multiple cursors. -Set up with the unsupported-cmd macro.") - (defmacro unsupported-cmd (cmd msg) "Adds command to list of unsupported commands and prevents it from being executed if in multiple-cursors-mode." `(progn - (push (quote ,cmd) mc--unsupported-cmds) - (put (quote ,cmd) 'mc--unsupported-msg ,msg) + (put (quote ,cmd) 'mc--unsupported ,msg) (defadvice ,cmd (around unsupported-advice activate) "command isn't supported with multiple cursors" (unless (and multiple-cursors-mode (called-interactively-p 'any))