wilderjds
/
hydra
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

hydra.el (hydra--handle-nonhead): Fix bug

Browse Source
master
Oleh Krehel 11 years ago
parent e962ff16a9
commit ef1f61d12d
1 changed files with 2 additions and 0 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 2
      hydra.el

2
hydra.el
Unescape View File

@ -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) (defun hydra--handle-nonhead (body heads keymap hint-name)
(let ((body-color (hydra--body-color body)) (let ((body-color (hydra--body-color body))
(body-post (plist-get (cddr body) :post))) (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)) (when (memq body-color '(amaranth pink teal))
(if (cl-some `(lambda (h) (if (cl-some `(lambda (h)
(eq (hydra--head-color h body) 'blue)) (eq (hydra--head-color h body) 'blue))

Write Preview
Loading…
Cancel
Save