branch: master commit 1a54e09bce6dee649222a1808e57deda046f3f3f Author: Oleh Krehel <ohwoeo...@gmail.com> Commit: Oleh Krehel <ohwoeo...@gmail.com>
hydra.el (hydra--make-funcall): Update location Fixes #99 --- hydra.el | 10 +++++----- 1 files changed, 5 insertions(+), 5 deletions(-) diff --git a/hydra.el b/hydra.el index 91a154e..f6c83a1 100644 --- a/hydra.el +++ b/hydra.el @@ -659,6 +659,11 @@ OTHER-POST is an optional extension to the :post key of BODY." (recur (cdr map))))))) (recur keymap))) +(defmacro hydra--make-funcall (sym) + "Transform SYM into a `funcall' that calls it." + `(when (and ,sym (symbolp ,sym)) + (setq ,sym `(funcall #',,sym)))) + (defun hydra--handle-nonhead (keymap name body heads) "Setup KEYMAP for intercepting non-head bindings. NAME, BODY and HEADS are parameters to `defhydra'." @@ -985,11 +990,6 @@ result of `defhydra'." (or body-body-pre body-pre) body-post '(setq prefix-arg current-prefix-arg)))))) -(defmacro hydra--make-funcall (sym) - "Transform SYM into a `funcall' that calls it." - `(when (and ,sym (symbolp ,sym)) - (setq ,sym `(funcall #',,sym)))) - (defmacro defhydradio (name _body &rest heads) "Create radios with prefix NAME. _BODY specifies the options; there are none currently.