summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/transient.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/transient.el b/lisp/transient.el
index eda4265..cea49bb 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -135,7 +135,9 @@ from Emacs commit e680827e814e155cf79175d87ff7c6ee3a08b69a."
,(macroexp-progn body))
((debug error)
(transient--emergency-exit ,id)
- (signal (car err) (cdr err)))))
+ (static-if (fboundp 'error-type-p) ; since Emacs 31.1
+ (signal err)
+ (signal (car err) (cdr err))))))
(defun transient--exit-and-debug (&rest args)
(transient--emergency-exit :debugger)