[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/embark bc405f0e48: Enable actions that assume (this-command-keys) is non-empty,
ELPA Syncer <=