branch: master
commit f0f7a844b0c423365020113c022110d899e8c1eb
Author: Oleh Krehel <[email protected]>
Commit: Oleh Krehel <[email protected]>
Use `condition-case-unless-debug'
---
hydra.el | 6 ++----
1 files changed, 2 insertions(+), 4 deletions(-)
diff --git a/hydra.el b/hydra.el
index 86f4883..7fc9d7e 100644
--- a/hydra.el
+++ b/hydra.el
@@ -817,7 +817,7 @@ result of `defhydra'."
(setq docstring "hydra")))
(when (keywordp (car body))
(setq body (cons nil (cons nil body))))
- (condition-case err
+ (condition-case-unless-debug err
(let* ((keymap (copy-keymap hydra-base-map))
(keymap-name (intern (format "%S/keymap" name)))
(body-name (intern (format "%S/body" name)))
@@ -951,9 +951,7 @@ result of `defhydra'."
(or body-body-pre body-pre) body-before-exit
'(setq prefix-arg current-prefix-arg)))))
(error
- (if debug-on-error
- (signal (car err) (cdr err))
- (message "Error in defhydra %S: %s" name (cdr err)))
+ (message "Error in defhydra %S: %s" name (cdr err))
nil)))
(defmacro defhydradio (name _body &rest heads)
