[elpa] externals/transient 0c2255a 8/9: transient-get-value: Add an emergency exit

[Jonas Bernoulli]

branch: externals/transient
commit 0c2255a29636bf828da34291ffbebdbdb294c96f
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>

    transient-get-value: Add an emergency exit
---
 lisp/transient.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index a48d019..16e0745 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2744,11 +2744,12 @@ the set, saved or default value for PREFIX."
        (transient--init-suffixes prefix)))))
 
 (defun transient-get-value ()
-  (delq nil (mapcar (lambda (obj)
-                      (and (or (not (slot-exists-p obj 'unsavable))
-                               (not (oref obj unsavable)))
-                           (transient-infix-value obj)))
-                    transient-current-suffixes)))
+  (transient--with-emergency-exit
+    (delq nil (mapcar (lambda (obj)
+                        (and (or (not (slot-exists-p obj 'unsavable))
+                                 (not (oref obj unsavable)))
+                             (transient-infix-value obj)))
+                      transient-current-suffixes))))
 
 (cl-defgeneric transient-infix-value (obj)
   "Return the value of the suffix object OBJ.