emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/embark bc405f0e48: Enable actions that assume (this-com


From: ELPA Syncer
Subject: [elpa] externals/embark bc405f0e48: Enable actions that assume (this-command-keys) is non-empty
Date: Mon, 14 Feb 2022 14:57:29 -0500 (EST)

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

    Enable actions that assume (this-command-keys) is non-empty
    
    This is @jakanakaevangeli's fix to #182.
---
 embark.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/embark.el b/embark.el
index 84656650e1..2f90209d08 100644
--- a/embark.el
+++ b/embark.el
@@ -1817,6 +1817,12 @@ minibuffer before executing the action."
                             (embark--run-action-hooks embark-pre-action-hooks
                                                       action target quit)
                             (minibuffer-with-setup-hook inject
+                              ;; pacify commands that use (this-command-keys)
+                              (when (= (length (this-command-keys)) 0)
+                                (set--this-command-keys
+                                 (if (characterp last-command-event)
+                                     (string last-command-event)
+                                   (kbd "RET"))))
                               (command-execute action)))
                           (setq final-window (selected-window)))
                       (embark--run-action-hooks embark-post-action-hooks



reply via email to

[Prev in Thread] Current Thread [Next in Thread]