emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 1a54e09 05/45: hydra.el (hydra--make-funcall): Update loca


From: Oleh Krehel
Subject: [elpa] master 1a54e09 05/45: hydra.el (hydra--make-funcall): Update location
Date: Thu, 16 Apr 2015 12:45:40 +0000

branch: master
commit 1a54e09bce6dee649222a1808e57deda046f3f3f
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]