[elpa] master 6524a2c 19/24: hydra.el (hydra-fontify-head-default): Fixup

[Oleh Krehel]

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

    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