[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/transient 79d1426de1: transient-prompt(lisp-variable):
From: |
Jonas Bernoulli |
Subject: |
[elpa] externals/transient 79d1426de1: transient-prompt(lisp-variable): Fallback to generic prompt |
Date: |
Sat, 19 Nov 2022 10:05:53 -0500 (EST) |
branch: externals/transient
commit 79d1426de173312bd6a3091731675bb010d804ec
Author: Psionik K <73710933+psionic-k@users.noreply.github.com>
Commit: Jonas Bernoulli <jonas@bernoul.li>
transient-prompt(lisp-variable): Fallback to generic prompt
Teach `transient-prompt' to fall back to a generic prompt for
`transient-lisp-variable'. If a prompt is explicitly provided, then
continue to use that.
(The method for `transient-infix', which is currently being used for
all other types, already falls back to a generic prompt in most cases,
but may in some cases use a prompt that warns that a prompt should be
given explicitly.)
Signed-off-by: Psionik K <73710933+psionic-k@users.noreply.github.com>
---
lisp/transient.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 23b6039d54..ab51e6c37a 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -4124,7 +4124,10 @@ we stop there."
'face 'transient-value))
(cl-defmethod transient-prompt ((obj transient-lisp-variable))
- (format "Set %s: " (oref obj variable)))
+ (if (and (slot-boundp obj 'prompt)
+ (oref obj prompt))
+ (cl-call-next-method obj)
+ (format "Set %s: " (oref obj variable))))
(defun transient-lisp-variable--reader (prompt initial-input _history)
(read--expression prompt initial-input))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/transient 79d1426de1: transient-prompt(lisp-variable): Fallback to generic prompt,
Jonas Bernoulli <=