branch: master
commit bb386412601166167559225fee2f4c2a50d0494f
Author: Oleh Krehel <[email protected]>
Commit: Oleh Krehel <[email protected]>
hydra.el (hydra--make-defun): simplify
---
hydra-test.el | 10 +++++-----
hydra.el | 2 +-
2 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/hydra-test.el b/hydra-test.el
index f2311ab..028f510 100644
--- a/hydra-test.el
+++ b/hydra-test.el
@@ -49,7 +49,7 @@ Call the head: `first-error'."
(hydra-disable)
(catch (quote hydra-disable)
(condition-case err (prog1 t (call-interactively (function
first-error)))
- ((debug error)
+ (error
(message "%S" err)
(sit-for 0.8)
nil))
@@ -99,7 +99,7 @@ Call the head: `next-error'."
(hydra-disable)
(catch (quote hydra-disable)
(condition-case err (prog1 t (call-interactively (function
next-error)))
- ((debug error)
+ (error
(message "%S" err)
(sit-for 0.8)
nil))
@@ -149,7 +149,7 @@ Call the head: `previous-error'."
(hydra-disable)
(catch (quote hydra-disable)
(condition-case err (prog1 t (call-interactively (function
previous-error)))
- ((debug error)
+ (error
(message "%S" err)
(sit-for 0.8)
nil))
@@ -384,7 +384,7 @@ Call the head: `next-line'."
(hydra-disable)
(catch (quote hydra-disable)
(condition-case err (prog1 t (call-interactively (function
next-line)))
- ((debug error)
+ (error
(message "%S" err)
(sit-for 0.8)
nil))
@@ -445,7 +445,7 @@ Call the head: `previous-line'."
(hydra-disable)
(catch (quote hydra-disable)
(condition-case err (prog1 t (call-interactively (function
previous-line)))
- ((debug error)
+ (error
(message "%S" err)
(sit-for 0.8)
nil))
diff --git a/hydra.el b/hydra.el
index fd24d0c..94347ea 100644
--- a/hydra.el
+++ b/hydra.el
@@ -297,7 +297,7 @@ BODY-COLOR, BODY-PRE, BODY-POST, and OTHER-POST are used as
well."
`(condition-case err
(prog1 t
(call-interactively #',cmd))
- ((debug error)
+ (error
(message "%S" err)
(sit-for 0.8)
nil)))
