[elpa] externals/transient 2243650b95 183/366: transient--emergency-exit: Signal the error

[Jonas Bernoulli]

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

    transient--emergency-exit: Signal the error
---
 lisp/transient.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 75c32bf6df..b18cd03ed2 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1958,7 +1958,7 @@ EDIT may be non-nil."
                  arg this-command transient--exitp)
       (apply #'message arg args))))
 
-(defun transient--emergency-exit ()
+(defun transient--emergency-exit (&optional err)
   "Exit the current transient command after an error occurred.
 
 Beside being used with `condition-case', this function also has
@@ -1974,15 +1974,17 @@ nil, then do nothing."
     (setq transient--stack nil)
     (setq transient--exitp t)
     (transient--pre-exit)
-    (transient--post-command)))
+    (transient--post-command)
+    (when err
+      (signal (car err) (cdr err)))))
 
 (add-hook 'debugger-mode-hook 'transient--emergency-exit)
 
 (defmacro transient--with-emergency-exit (&rest body)
   (declare (indent defun))
-  `(condition-case nil
+  `(condition-case err
        ,(macroexp-progn body)
-     (error (transient--emergency-exit))))
+     (error (transient--emergency-exit err))))
 
 ;;; Pre-Commands