branch: externals/transient
commit be97d617f75006ed96aebb6416d3281eca5c5ad2
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
transient--history-init: Ensure the live value is used
Usually the value stored in the prefix's `value' slot is still the
same at this time, but that is not guaranteed. In particular if a
suffix has a non-nil `init-value' slot, it likely is not.
---
lisp/transient.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 168bcffbf6..5b766569c6 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -4302,8 +4302,8 @@ have a history of their own.")
(cl-defmethod transient--history-init ((obj transient-prefix))
"Initialize OBJ's `history' slot from the variable `transient-history'."
- (let ((val (oref obj value)))
- (oset obj history
+ (oset obj history
+ (let ((val (transient--get-extended-value)))
(cons val (delete val (alist-get (transient--history-key obj)
transient-history))))))
