[elpa] master 9991985 01/17: hydra-test.el: update the test to not fail for older Emacs

[Oleh Krehel]

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)