branch: master
commit 6524a2c24c882d82b0a4339682950d477474d754
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>
hydra.el (hydra-fontify-head-default): Fixup
* hydra.el (hydra-fontify-head-default): Use head-exit. The heads have
been pre-processed to have it always set.
* hydra-test.el (hydra-format-4): Update test. The heads are passed to
`hydra--format' in the pre-processed state now (color and hint expanded).
---
hydra-test.el | 2 +-
hydra.el | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/hydra-test.el b/hydra-test.el
index 1c1ab2b..0fc82a1 100644
--- a/hydra-test.el
+++ b/hydra-test.el
@@ -1040,7 +1040,7 @@ _f_ auto-fill-mode: %`auto-fill-function
nil
'(nil nil :hint nil)
"\n_j_,_k_"
- '(("j" nil) ("k" nil)))
+ '(("j" nil nil :exit t) ("k" nil nil :exit t)))
'(concat (format "%s,%s"
#("j" 0 1 (face hydra-face-blue))
#("k" 0 1 (face hydra-face-blue))) ""))))
diff --git a/hydra.el b/hydra.el
index edc24a2..33ba508 100644
--- a/hydra.el
+++ b/hydra.el
@@ -441,7 +441,7 @@ HEAD's binding is returned as a string with a colored face."
(run 'pink)
(t 'red)))))
(when (and (null (cadr head))
- (not (eq head-color 'blue)))
+ (not head-exit))
(hydra--complain "nil cmd can only be blue"))
(propertize (car head) 'face
(cl-case head-color
