[elpa] externals/transient 4477555b17 2/2: transient--post-exit: Deal with unbound transient slot properly

[Jonas Bernoulli]

branch: externals/transient
commit 4477555b17506ca47a6ef1c8d5420b53372781a7
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    transient--post-exit: Deal with unbound transient slot properly
---
 lisp/transient.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index db5d0f828e..9f068e7222 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2170,8 +2170,9 @@ value.  Otherwise return CHILDREN as is."
                    ;; uses the minibuffer and the user aborted
                    ;; that.
                    (prog1 nil
-                     (if (with-demoted-errors "transient--post-exit: %S"
-                           (oref (transient-suffix-object command) transient))
+                     (if (let ((obj (transient-suffix-object command)))
+                           (and (slot-boundp obj 'transient)
+                                (oref obj transient)))
                          ;; This sub-prefix is a transient suffix;
                          ;; go back to outer prefix, by calling
                          ;; `transient--stack-pop' further down.