(require 'ert)
(require 'hydra)
+(setq text-quoting-style 'grave)
(message "Emacs version: %s" emacs-version)
(ert-deftest hydra-red-error ()
\"t\": `toggle-truncate-lines',
\"f\": `auto-fill-mode',
\"a\": `abbrev-mode',
-\"q\": `nil'
+\"q\": nil
The body can be accessed via `hydra-toggle/body'.
\"t\": `toggle-truncate-lines',
\"f\": `auto-fill-mode',
\"a\": `abbrev-mode',
-\"q\": `nil'
+\"q\": nil
The body can be accessed via `hydra-toggle/body'.
\"t\": `toggle-truncate-lines',
\"f\": `auto-fill-mode',
\"a\": `abbrev-mode',
-\"q\": `nil'
+\"q\": nil
The body can be accessed via `hydra-toggle/body'.
\"t\": `toggle-truncate-lines',
\"f\": `auto-fill-mode',
\"a\": `abbrev-mode',
-\"q\": `nil'
+\"q\": nil
The body can be accessed via `hydra-toggle/body'.
-Call the head: `nil'."
+Call the head: nil."
(interactive)
(hydra-default-pre)
(hydra-keyboard-quit)
\"t\": `toggle-truncate-lines',
\"f\": `auto-fill-mode',
\"a\": `abbrev-mode',
-\"q\": `nil'
+\"q\": nil
The body can be accessed via `hydra-toggle/body'."
(interactive)
\"j\": `next-line',
\"k\": `previous-line',
-\"q\": `nil'
+\"q\": nil
The body can be accessed via `hydra-vi/body'.
\"j\": `next-line',
\"k\": `previous-line',
-\"q\": `nil'
+\"q\": nil
The body can be accessed via `hydra-vi/body'.
\"j\": `next-line',
\"k\": `previous-line',
-\"q\": `nil'
+\"q\": nil
The body can be accessed via `hydra-vi/body'.
-Call the head: `nil'."
+Call the head: nil."
(interactive)
(hydra-default-pre)
(set-cursor-color "#e52b50")
\"j\": `next-line',
\"k\": `previous-line',
-\"q\": `nil'
+\"q\": nil
The body can be accessed via `hydra-vi/body'."
(interactive)
(goto-char (point-max))
(search-backward "|")
(delete-char 1)
- (setq current-prefix-arg)
+ (setq current-prefix-arg nil)
,@body
(insert "|")
(when (region-active-p)