[elpa] externals/transient 8859863c41 6/9: transient--parse-child: Use dedicated error message

[Jonas Bernoulli via]

branch: externals/transient
commit 8859863c41b135cca49ca23042ac8b6942fa14ee
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>

    transient--parse-child: Use dedicated error message
---
 lisp/transient.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index fa5edf9ffb..97812c3ccf 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1085,7 +1085,7 @@ commands are aliases for."
             args))))
 
 (defun transient--parse-child (prefix spec)
-  (cl-etypecase spec
+  (cl-typecase spec
     (symbol  (let ((value (symbol-value spec)))
                (if (and (listp value)
                         (or (listp (car value))
@@ -1094,7 +1094,8 @@ commands are aliases for."
                  (transient--parse-child prefix value))))
     (vector  (and-let* ((c (transient--parse-group  prefix spec))) (list c)))
     (list    (and-let* ((c (transient--parse-suffix prefix spec))) (list c)))
-    (string  (list spec))))
+    (string  (list spec))
+    (t       (error "Invalid transient--parse-child spec: %s" spec))))
 
 (defun transient--parse-group (prefix spec)
   (setq spec (append spec nil))