[elpa] externals/transient cbc078d84c 215/366: transient--with-emergency-exit: Re-signal errors directly

[Jonas Bernoulli]

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

    transient--with-emergency-exit: Re-signal errors directly
    
    No longer hide that away in `transient--emergency-exit'
    Doing that just obfuscated matters and it also wasn't documented.
---
 lisp/transient.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index ff02bdf702..46884a2e19 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -93,7 +93,9 @@
   (declare (indent defun))
   `(condition-case err
        ,(macroexp-progn body)
-     (error (transient--emergency-exit err))))
+     (error
+      (transient--emergency-exit)
+      (signal (car err) (cdr err)))))
 
 ;;; Options
 
@@ -2005,7 +2007,7 @@ value.  Otherwise return CHILDREN as is."
                  arg this-command transient--exitp)
       (apply #'message arg args))))
 
-(defun transient--emergency-exit (&optional err)
+(defun transient--emergency-exit ()
   "Exit the current transient command after an error occurred.
 
 Beside being used with `condition-case', this function also has
@@ -2021,9 +2023,7 @@ nil, then do nothing."
     (setq transient--stack nil)
     (setq transient--exitp t)
     (transient--pre-exit)
-    (transient--post-command))
-  (when err
-    (signal (car err) (cdr err))))
+    (transient--post-command)))
 
 (add-hook 'debugger-mode-hook 'transient--emergency-exit)