hydra.el (hydra--hint-from-matrix): Adjust for "%" in key

Fixes #269
8 years ago · e228432bb6
parent 49611c1509
commit e228432bb6
1 changed files with 2 additions and 1 deletions
--- a/hydra.el
+++ b/hydra.el
@ -1078,7 +1078,8 @@ Each head must have a property max-key-len and max-doc-len."
                 (mapconcat (lambda (head)
                              (funcall hydra-key-doc-function
                                       (hydra-fontify-head head body) ;; key
-                                       (hydra--head-property head :max-key-len)
+                                       (let ((n (hydra--head-property head :max-key-len)))
+                                         (+ n (cl-count ?% (car head))))
                                       (nth 2 head) ;; doc
                                       (hydra--head-property head :max-doc-len)))
                            heads-in-row "| "))