hydra.el (defhydra): Re-throw a caught error when debug-on-error

* hydra.el (defhydra): Update.
11 years ago · aeaabd3c8a
parent 60ce25698b
commit aeaabd3c8a
1 changed files with 3 additions and 1 deletions
--- a/hydra.el
+++ b/hydra.el
@ -941,7 +941,9 @@ result of `defhydra'."
               (or body-body-pre body-pre) body-before-exit
               '(setq prefix-arg current-prefix-arg)))))
    (error
-     (message "Error in defhydra %S: %s" name (cdr err))
+     (if debug-on-error
+         (signal (car err) (cdr err))
+       (message "Error in defhydra %S: %s" name (cdr err)))
     nil)))

 (defmacro defhydradio (name _body &rest heads)