[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master bb38641 05/72: hydra.el (hydra--make-defun): simplify
|
From: |
Oleh Krehel |
|
Subject: |
[elpa] master bb38641 05/72: hydra.el (hydra--make-defun): simplify |
|
Date: |
Fri, 06 Mar 2015 13:04:00 +0000 |
branch: master
commit bb386412601166167559225fee2f4c2a50d0494f
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>
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)))
- [elpa] master updated (ffa5405 -> 3222b0c), Oleh Krehel, 2015/03/06
- [elpa] master bb38641 05/72: hydra.el (hydra--make-defun): simplify,
Oleh Krehel <=
- [elpa] master 614e1f7 07/72: `defhydra' should be indented as `defun', Oleh Krehel, 2015/03/06
- [elpa] master 8bca51b 04/72: Warn about explict red heads on amaranth body, Oleh Krehel, 2015/03/06
- [elpa] master 216550e 06/72: Add option to font-lock `defhydra', Oleh Krehel, 2015/03/06
- [elpa] master f3c4dd7 02/72: hydra.el (hydra--hint): allow duplicate functions in heads, Oleh Krehel, 2015/03/06
- [elpa] master 62f9b05 01/72: Allow some heads with no hints, Oleh Krehel, 2015/03/06
- [elpa] master f04f14c 14/72: hydra.el (defhydra): Update doc, Oleh Krehel, 2015/03/06
- [elpa] master 2086614 10/72: hydra.el (defhydradio): New macro, Oleh Krehel, 2015/03/06
- [elpa] master d04ef9b 12/72: hydra.el (hydra-cleanup): reorder, Oleh Krehel, 2015/03/06
- [elpa] master 926d9a4 15/72: Add pink body color, Oleh Krehel, 2015/03/06
- [elpa] master d25e560 03/72: Fix head color for heads with nil as HINT, Oleh Krehel, 2015/03/06