]> code.delx.au - gnu-emacs-elpa/commitdiff
hydra.el (hydra--make-funcall): Update location
authorOleh Krehel <ohwoeowho@gmail.com>
Sat, 28 Mar 2015 18:17:52 +0000 (19:17 +0100)
committerOleh Krehel <ohwoeowho@gmail.com>
Sat, 28 Mar 2015 18:17:52 +0000 (19:17 +0100)
Fixes #99

hydra.el

index 91a154e09dfd440af580545d0a563b2f19eae22a..f6c83a149c71a1fe596bb741bcb19fcf0d6ad0d2 100644 (file)
--- 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.