[nongnu] elpa/keycast d02165806b 1/2: keycast--tree-member: Handle non-list root element

[ELPA Syncer]

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

    keycast--tree-member: Handle non-list root element
    
    A top-level mode line construct may itself be something
    other than a list (most likely a string).
---
 keycast.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/keycast.el b/keycast.el
index 8706c51815..c72907888e 100644
--- a/keycast.el
+++ b/keycast.el
@@ -462,12 +462,13 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
         (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))))))
+  ;; Also known as auto-compile--tree-member.
+  (and (listp sub)
+       (or (member elt tree)
+           (catch 'found
+             (dolist (sub tree)
+               (when-let ((found (keycast--tree-member elt sub)))
+                 (throw 'found found)))))))
 
 ;;; Mode-Line