[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 9991985 01/17: hydra-test.el: update the test to not fail
From: |
Oleh Krehel |
Subject: |
[elpa] master 9991985 01/17: hydra-test.el: update the test to not fail for older Emacs |
Date: |
Tue, 10 Feb 2015 07:13:22 +0000 |
branch: master
commit 9991985f0eacab4a5856335a039048e6abd29160
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>
hydra-test.el: update the test to not fail for older Emacs
---
hydra-test.el | 31 +++++++++++--------------------
1 files changed, 11 insertions(+), 20 deletions(-)
diff --git a/hydra-test.el b/hydra-test.el
index eee851a..7ae5fd0 100644
--- a/hydra-test.el
+++ b/hydra-test.el
@@ -344,11 +344,7 @@ The body can be accessed via `toggle/body'."
(equal
(macroexpand
'(defhydra hydra-vi
- (:pre
- (set-cursor-color "#40e0d0")
- :post
- (set-cursor-color "#ffffff")
- :color amaranth)
+ (:color amaranth)
"vi"
("l" forward-char)
("h" backward-char)
@@ -368,7 +364,6 @@ The body can be accessed via `hydra-vi/body'.
Call the head: `forward-char'."
(interactive)
- (set-cursor-color "#40e0d0")
(catch (quote hydra-disable)
(hydra-disable)
(condition-case err (prog1 t (call-interactively (function
forward-char)))
@@ -421,7 +416,7 @@ Call the head: `forward-char'."
(48 . hydra--digit-argument)
(45 . hydra--negative-argument)
(21 . hydra--universal-argument))))
- t (lambda nil (set-cursor-color "#ffffff"))))))
+ t))))
(defun hydra-vi/backward-char nil "Create a hydra with no body and the
heads:
\"l\": `forward-char',
@@ -434,8 +429,8 @@ The body can be accessed via `hydra-vi/body'.
Call the head: `backward-char'."
(interactive)
- (set-cursor-color "#40e0d0")
- (catch (quote hydra-disable)
+ (catch
+ (quote hydra-disable)
(hydra-disable)
(condition-case err (prog1 t (call-interactively (function
backward-char)))
((debug error)
@@ -487,7 +482,7 @@ Call the head: `backward-char'."
(48 . hydra--digit-argument)
(45 . hydra--negative-argument)
(21 . hydra--universal-argument))))
- t (lambda nil (set-cursor-color "#ffffff"))))))
+ t))))
(defun hydra-vi/next-line nil "Create a hydra with no body and the heads:
\"l\": `forward-char',
@@ -500,8 +495,8 @@ The body can be accessed via `hydra-vi/body'.
Call the head: `next-line'."
(interactive)
- (set-cursor-color "#40e0d0")
- (catch (quote hydra-disable)
+ (catch
+ (quote hydra-disable)
(hydra-disable)
(condition-case err (prog1 t (call-interactively (function
next-line)))
((debug error)
@@ -553,7 +548,7 @@ Call the head: `next-line'."
(48 . hydra--digit-argument)
(45 . hydra--negative-argument)
(21 . hydra--universal-argument))))
- t (lambda nil (set-cursor-color "#ffffff"))))))
+ t))))
(defun hydra-vi/previous-line nil "Create a hydra with no body and the
heads:
\"l\": `forward-char',
@@ -566,7 +561,6 @@ The body can be accessed via `hydra-vi/body'.
Call the head: `previous-line'."
(interactive)
- (set-cursor-color "#40e0d0")
(catch (quote hydra-disable)
(hydra-disable)
(condition-case err (prog1 t (call-interactively (function
previous-line)))
@@ -619,7 +613,7 @@ Call the head: `previous-line'."
(48 . hydra--digit-argument)
(45 . hydra--negative-argument)
(21 . hydra--universal-argument))))
- t (lambda nil (set-cursor-color "#ffffff"))))))
+ t))))
(defun hydra-vi/nil nil "Create a hydra with no body and the heads:
\"l\": `forward-char',
@@ -632,9 +626,7 @@ The body can be accessed via `hydra-vi/body'.
Call the head: `nil'."
(interactive)
- (set-cursor-color "#40e0d0")
- (hydra-disable)
- (set-cursor-color "#ffffff"))
+ (hydra-disable))
(defun hydra-vi/body nil "Create a hydra with no body and the heads:
\"l\": `forward-char',
@@ -645,7 +637,6 @@ Call the head: `nil'."
The body can be accessed via `hydra-vi/body'."
(interactive)
- (set-cursor-color "#40e0d0")
(when hydra-is-helpful (message #("vi: l, h, j, k, [q]: quit." 4
5 (face hydra-face-amaranth)
7 8 (face hydra-face-amaranth)
10 11 (face hydra-face-amaranth)
@@ -690,7 +681,7 @@ The body can be accessed via `hydra-vi/body'."
(48 . hydra--digit-argument)
(45 . hydra--negative-argument)
(21 . hydra--universal-argument)))
- t (lambda nil (set-cursor-color "#ffffff")))))))))
+ t)))))))
(provide 'hydra-test)
- [elpa] master updated (61bddf2 -> 11b130e), Oleh Krehel, 2015/02/10
- [elpa] master b65db57 02/17: Update :post for amaranth Hydras, Oleh Krehel, 2015/02/10
- [elpa] master 9991985 01/17: hydra-test.el: update the test to not fail for older Emacs,
Oleh Krehel <=
- [elpa] master 1660d71 05/17: Allow :pre and :post to be function symbols, Oleh Krehel, 2015/02/10
- [elpa] master 7ead8db 06/17: hydra.el (defhydra): Declare indent 2, Oleh Krehel, 2015/02/10
- [elpa] master 1b1d31d 07/17: Support local hydra heads, Oleh Krehel, 2015/02/10
- [elpa] master 9a8e2f1 04/17: hydra.el (hydra-keyboard-quit): New custom var, Oleh Krehel, 2015/02/10
- [elpa] master 9b31ead 08/17: Update semantics for local heads to `:bind nil', Oleh Krehel, 2015/02/10
- [elpa] master 969fa66 10/17: fix typo - single not singe, Oleh Krehel, 2015/02/10
- [elpa] master d41be74 11/17: `hydra/body' will pass the initial `current-prefix-arg' along, Oleh Krehel, 2015/02/10
- [elpa] master ad771a4 03/17: Move defun-creating code into a defun, Oleh Krehel, 2015/02/10
- [elpa] master 763bb2a 13/17: Allow lambda :bind property for body and heads, Oleh Krehel, 2015/02/10
- [elpa] master 0712a43 12/17: README.md: update, Oleh Krehel, 2015/02/10