[elpa] externals/transient 342164c2b0 5/7: transient--parse-suffix: Avoid using desc lambda in command name

[Jonas Bernoulli]

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

    transient--parse-suffix: Avoid using desc lambda in command name
---
 lisp/transient.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 4939c8ed5e..57ed9b6894 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1066,10 +1066,13 @@ example, sets a variable, use `transient-define-infix' 
instead.
        ((and (commandp car)
              (not (stringp car)))
         (let ((cmd pop)
-              (sym (intern (format "transient:%s:%s"
-                                   prefix
-                                   (or (plist-get args :description)
-                                       (plist-get args :key))))))
+              (sym (intern
+                    (format "transient:%s:%s"
+                            prefix
+                            (let ((desc (plist-get args :description)))
+                              (if (and desc (or (stringp desc) (symbolp desc)))
+                                  desc
+                                (plist-get args :key)))))))
           (defalias sym cmd)
           (setq args (plist-put args :command (macroexp-quote sym)))))
        ((or (stringp car)