[Top][All Lists]

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

[elpa] master ef1f61d 40/72: hydra.el (hydra--handle-nonhead): Fix bug

From: Oleh Krehel
Subject: [elpa] master ef1f61d 40/72: hydra.el (hydra--handle-nonhead): Fix bug
Date: Fri, 06 Mar 2015 13:04:15 +0000

branch: master
commit ef1f61d12dca1022d7e5334d004613bc0a1926fa
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    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 
 (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))

reply via email to

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