branch: master
commit ef1f61d12dca1022d7e5334d004613bc0a1926fa
Author: Oleh Krehel <[email protected]>
Commit: Oleh Krehel <[email protected]>
hydra.el (hydra--handle-nonhead): Fix bug
---
hydra.el | 2 ++
1 files changed, 2 insertions(+), 0 deletions(-)
diff --git a/hydra.el b/hydra.el
index 696157e..6e8ae00 100644
--- a/hydra.el
+++ b/hydra.el
@@ -470,6 +470,8 @@ BODY-COLOR, BODY-PRE, BODY-POST, and OTHER-POST are used as
well."
(defun hydra--handle-nonhead (body heads keymap hint-name)
(let ((body-color (hydra--body-color body))
(body-post (plist-get (cddr body) :post)))
+ (when (and body-post (symbolp body-post))
+ (setq body-post `(funcall #',body-post)))
(when (memq body-color '(amaranth pink teal))
(if (cl-some `(lambda (h)
(eq (hydra--head-color h body) 'blue))
