branch: externals/transient
commit 3657117b147b589fe3e27d2a8e6d24fcb0fc1137
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
transient--parse-suffix: Detect when mandatory command is missing
This is the only value that must be specified using a positional
value as opposed to a keyword value.
Closes #234.
---
lisp/transient.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 8beb5577b8..f5a7992907 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1051,12 +1051,13 @@ example, sets a variable, use `transient-define-infix'
instead.
(eq (car-safe car) 'lambda))
(setq args (plist-put args :description pop)))
((and (symbolp car)
+ (not (keywordp car))
(not (commandp car))
(commandp (cadr spec)))
(setq args (plist-put args :description (macroexp-quote pop)))))
(cond
((keywordp car)
- (error "Need command, got %S" car))
+ (error "Need command, got `%s'" car))
((symbolp car)
(setq args (plist-put args :command (macroexp-quote pop))))
((and (commandp car)
