Fix some quoting problems in doc strings

[gnu-emacs-elpa] / packages / hydra / hydra-test.el

diff --git a/packages/hydra/hydra-test.el b/packages/hydra/hydra-test.el
index 0750b1c9142e9247b4d4a1e632b7731d799f428b..a988a25e7f32771853173fdf731e73ec110cdbda 100644 (file)
--- a/packages/hydra/hydra-test.el
+++ b/packages/hydra/hydra-test.el
@@ -26,6 +26,7 @@
 
 (require 'ert)
 (require 'hydra)
+(setq text-quoting-style 'grave)
 (message "Emacs version: %s" emacs-version)
 
 (ert-deftest hydra-red-error ()
@@ -335,7 +336,7 @@ The body can be accessed via `hydra-error/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'.
 
@@ -357,7 +358,7 @@ Call the head: `toggle-truncate-lines'."
 \"t\":    `toggle-truncate-lines',
 \"f\":    `auto-fill-mode',
 \"a\":    `abbrev-mode',
-\"q\":    `nil'
+\"q\":    nil
 
 The body can be accessed via `hydra-toggle/body'.
 
@@ -378,7 +379,7 @@ Call the head: `auto-fill-mode'."
 \"t\":    `toggle-truncate-lines',
 \"f\":    `auto-fill-mode',
 \"a\":    `abbrev-mode',
-\"q\":    `nil'
+\"q\":    nil
 
 The body can be accessed via `hydra-toggle/body'.
 
@@ -399,11 +400,11 @@ Call the head: `abbrev-mode'."
 \"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)
@@ -415,7 +416,7 @@ Call the head: `nil'."
 \"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)
@@ -509,7 +510,7 @@ The body can be accessed via `hydra-toggle/body'."
 
 \"j\":    `next-line',
 \"k\":    `previous-line',
-\"q\":    `nil'
+\"q\":    nil
 
 The body can be accessed via `hydra-vi/body'.
 
@@ -546,7 +547,7 @@ Call the head: `next-line'."
 
 \"j\":    `next-line',
 \"k\":    `previous-line',
-\"q\":    `nil'
+\"q\":    nil
 
 The body can be accessed via `hydra-vi/body'.
 
@@ -583,11 +584,11 @@ Call the head: `previous-line'."
 
 \"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")
@@ -599,7 +600,7 @@ Call the head: `nil'."
 
 \"j\":    `next-line',
 \"k\":    `previous-line',
-\"q\":    `nil'
+\"q\":    nil
 
 The body can be accessed via `hydra-vi/body'."
         (interactive)
@@ -1309,7 +1310,7 @@ _w_ Worf:                      % -8`hydra-tng/worf^^    _h_ Set phasers to
               (goto-char (point-max))
               (search-backward "|")
               (delete-char 1)
-              (setq current-prefix-arg)
+              (setq current-prefix-arg nil)
               ,@body
               (insert "|")
               (when (region-active-p)