[elpa] master f0f7a84 1/2: Use `condition-case-unless-debug'

[Oleh Krehel]

branch: master
commit f0f7a844b0c423365020113c022110d899e8c1eb
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    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)