[nongnu] elpa/multiple-cursors 5fcc69c 139/434: Skip keyboard macros

[ELPA Syncer]

branch: elpa/multiple-cursors
commit 5fcc69cc549224eec41425a3db0ff3a0a2a2626b
Author: Magnar Sveen <magnars@gmail.com>
Commit: Magnar Sveen <magnars@gmail.com>

    Skip keyboard macros
    
     - since they will generate actual commands that are also run in the
       command loop - we'll handle those later instead.
---
 multiple-cursors-core.el | 54 +++++++++++++++++++++++++++---------------------
 1 file changed, 30 insertions(+), 24 deletions(-)

diff --git a/multiple-cursors-core.el b/multiple-cursors-core.el
index 12f3f48..c24a9f5 100644
--- a/multiple-cursors-core.el
+++ b/multiple-cursors-core.el
@@ -274,31 +274,37 @@ it will prompt for the proper action and then save that 
preference.
 
 Some commands are so unsupported that they are even prevented for
 the original cursor, to inform about the lack of support."
-  (if (eq 1 (mc/num-cursors)) ;; no fake cursors? disable mc-mode
-      (multiple-cursors-mode 0)
+  (unless mc--executing-command-for-fake-cursor
 
-    (when this-original-command
-      (let ((original-command (or mc--this-command
-                                  (command-remapping this-original-command)
-                                  this-original-command)))
-
-        ;; if it's a lambda, we can't know if it's supported or not
-        ;; - so go ahead and assume it's ok, because we're just optimistic 
like that
-        (if (not (symbolp original-command))
-            (mc/execute-command-for-all-fake-cursors original-command)
-
-          ;; otherwise it's a symbol, and we can be more thorough
-          (if (get original-command 'mc--unsupported)
-              (message "%S is not supported with multiple cursors%s"
-                       original-command
-                       (get original-command 'mc--unsupported))
-            (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))))))))
+   (if (eq 1 (mc/num-cursors)) ;; no fake cursors? disable mc-mode
+       (multiple-cursors-mode 0)
+
+     (when this-original-command
+       (let ((original-command (or mc--this-command
+                                   (command-remapping this-original-command)
+                                   this-original-command)))
+
+         ;; skip keyboard macros, since they will generate actual commands 
that are
+         ;; also run in the command loop - we'll handle those later instead.
+         (when (functionp original-command)
+
+           ;; if it's a lambda, we can't know if it's supported or not
+           ;; - so go ahead and assume it's ok, because we're just optimistic 
like that
+           (if (not (symbolp original-command))
+               (mc/execute-command-for-all-fake-cursors original-command)
+
+             ;; otherwise it's a symbol, and we can be more thorough
+             (if (get original-command 'mc--unsupported)
+                 (message "%S is not supported with multiple cursors%s"
+                          original-command
+                          (get original-command 'mc--unsupported))
+               (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 ()
   "Remove all fake cursors.