branch: externals/embark
commit fe17440a0f538db0851c9436ed2a69291dfa951c
Author: Omar Antolín <omar.anto...@gmail.com>
Commit: Omar Antolín <omar.anto...@gmail.com>
When embark-quit-after-action is boolean we can compute quitting
For the alist case we're stuck with obey/disobey.
---
embark.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/embark.el b/embark.el
index 695e5ada95..3e766b524a 100644
--- a/embark.el
+++ b/embark.el
@@ -3258,8 +3258,12 @@ Return the category metadatum as the type of the target."
(interactive)
(when (minibufferp)
(setq embark--toggle-quit (not embark--toggle-quit))
- (message "Will %sobey embark-quit-after-action."
- (if embark--toggle-quit "dis" ""))))
+ (if (consp embark-quit-after-action)
+ (message "Will %sobey embark-quit-after-action."
+ (if embark--toggle-quit "dis" ""))
+ (message
+ "Will %squit minibuffer after action"
+ (if (eq embark--toggle-quit embark-quit-after-action) "not " "")))))
(defun embark-insert (string &optional multiline)
"Insert STRING at point.
