branch: externals/transient
commit f88cbbc57cb1b808ac7ba708ac437bb17656b1f1
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
transient--parse-suffix: Differentiate command and desc lambda
---
lisp/transient.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index f5a7992907..b7965e4688 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1048,7 +1048,8 @@ example, sets a variable, use `transient-define-infix'
instead.
(setq args (plist-put args :key pop)))
(cond
((or (stringp car)
- (eq (car-safe car) 'lambda))
+ (and (eq (car-safe car) 'lambda)
+ (not (commandp car))))
(setq args (plist-put args :description pop)))
((and (symbolp car)
(not (keywordp car))
