[nongnu] elpa/keycast 81bad0faa8 08/10: keycast--tree-member: Move definition

[ELPA Syncer]

branch: elpa/keycast
commit 81bad0faa87fb0efd87921dc39a2084c161fc0c4
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    keycast--tree-member: Move definition
---
 keycast.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/keycast.el b/keycast.el
index 38bb519769..0cb0697a86 100644
--- a/keycast.el
+++ b/keycast.el
@@ -408,6 +408,14 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
          (eq (window-frame) (window-frame powerline-selected-window)))
         (t t)))
 
+(defun keycast--tree-member (elt tree)
+  (or (member elt tree)
+      (catch 'found
+        (dolist (sub tree)
+          (when-let ((found (and (listp sub)
+                                 (keycast--tree-member elt sub))))
+            (throw 'found found))))))
+
 ;;; Mode-Line
 
 (defvar keycast--mode-line-removed-tail nil)
@@ -464,14 +472,6 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
       (remove-hook 'post-command-hook #'keycast--update)
       (remove-hook 'minibuffer-exit-hook #'keycast--minibuffer-exit)))))
 
-(defun keycast--tree-member (elt tree)
-  (or (member elt tree)
-      (catch 'found
-        (dolist (sub tree)
-          (when-let ((found (and (listp sub)
-                                 (keycast--tree-member elt sub))))
-            (throw 'found found))))))
-
 (defvar keycast-mode-line
   '(:eval
     (and (funcall keycast-mode-line-window-predicate)