[elpa] externals/embark 5a74f42bd0: setq this-command so last-command points to action (fix #460)

[ELPA Syncer]

branch: externals/embark
commit 5a74f42bd0031b28ee30b64fcb24717ceae8a030
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>

    setq this-command so last-command points to action (fix #460)
---
 embark.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/embark.el b/embark.el
index b16d30972f..ab11ac92b5 100644
--- a/embark.el
+++ b/embark.el
@@ -1842,7 +1842,6 @@ minibuffer before executing the action."
                         (with-selected-window action-window
                           (let ((enable-recursive-minibuffers t)
                                 (embark--command command)
-                                (this-command action)
                                 (prefix-arg prefix)
                                 ;; the next two avoid mouse dialogs
                                 (use-dialog-box nil)
@@ -1856,6 +1855,7 @@ minibuffer before executing the action."
                                  (if (characterp last-command-event)
                                      (string last-command-event)
                                    (kbd "RET"))))
+                              (setq this-command action)
                               (command-execute action)))
                           (setq final-window (selected-window)))
                       (embark--run-action-hooks embark-post-action-hooks
@@ -2355,10 +2355,9 @@ point."
          (lambda ()
            (delete-minibuffer-contents)
            (insert input))
-       (let ((this-command command)
-             ;; the next two avoid mouse dialogs
-             (use-dialog-box nil)
+       (let ((use-dialog-box nil) ;; avoid mouse dialogs
              (last-nonmenu-event 13))
+         (setq this-command command)
          (command-execute command))))))
 
 (defmacro embark-define-keymap (name doc &rest bindings)