(flyspell-incorrect-hook, flyspell-maybe-correct-transposition,

flyspell-maybe-correct-doubling): Fix quoting in docstring.

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 118e490112fcd41350caf59271572c021aada2f0..8c2d0937a5ac3c40e998e66cdf5c78da6c5a17b4 100644 (file)
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -172,7 +172,7 @@ command was not the very same command."
   "*List of functions to be called when incorrect words are encountered.
 Each function is given three arguments: the beginning and the end
 of the incorrect region.  The third is either the symbol 'doublon' or the list
-of possible corrections as returned by 'ispell-parse-output'.
+of possible corrections as returned by `ispell-parse-output'.
 
 If any of the functions return non-Nil, the word is not highlighted as
 incorrect."
@@ -982,7 +982,7 @@ Mostly we check word delimiters."
              (setq r p)
            (goto-char p))))
       r)))
-         
+
 ;*---------------------------------------------------------------------*/
 ;*    flyspell-word-search-forward ...                                 */
 ;*---------------------------------------------------------------------*/
@@ -996,7 +996,7 @@ Mostly we check word delimiters."
              (setq r p)
            (goto-char (1+ p)))))
       r)))
-         
+
 ;*---------------------------------------------------------------------*/
 ;*    flyspell-word ...                                                */
 ;*---------------------------------------------------------------------*/
@@ -1026,7 +1026,7 @@ Mostly we check word delimiters."
                 flyspell-mark-duplications-flag
                 (save-excursion
                   (goto-char (1- start))
-                  (let ((p (flyspell-word-search-backward 
+                  (let ((p (flyspell-word-search-backward
                             word
                             (- start (1+ (- end start))))))
                     (and p (/= p (1- start))))))
@@ -1126,7 +1126,7 @@ Mostly we check word delimiters."
                                (flyspell-notify-misspell start end word poss))
                              nil))))
              ;; return to original location
-             (goto-char cursor-location) 
+             (goto-char cursor-location)
              (if ispell-quit (setq ispell-quit nil))
              res))))))))
 
@@ -1839,7 +1839,7 @@ This command proposes various successive corrections for the current word."
 (defun flyspell-auto-correct-previous-hook ()
   "Hook to track successive calls to `flyspell-auto-correct-previous-word'.
 Sets `flyspell-auto-correct-previous-pos' to nil"
-  (interactive) 
+  (interactive)
   (remove-hook 'pre-command-hook (function flyspell-auto-correct-previous-hook) t)
   (unless (eq this-command (function flyspell-auto-correct-previous-word))
     (setq flyspell-auto-correct-previous-pos nil)))
@@ -1847,7 +1847,7 @@ Sets `flyspell-auto-correct-previous-pos' to nil"
 ;*---------------------------------------------------------------------*/
 ;*    flyspell-auto-correct-previous-word ...                          */
 ;*---------------------------------------------------------------------*/
-(defun flyspell-auto-correct-previous-word (position) 
+(defun flyspell-auto-correct-previous-word (position)
   "*Auto correct the first mispelled word that occurs before point.
 But don't look beyond what's visible on the screen."
   (interactive "d")
@@ -1863,29 +1863,29 @@ But don't look beyond what's visible on the screen."
        (narrow-to-region top bot)
        (overlay-recenter (point))
 
-       (add-hook 'pre-command-hook 
+       (add-hook 'pre-command-hook
                  (function flyspell-auto-correct-previous-hook) t t)
 
        (unless flyspell-auto-correct-previous-pos
          ;; only reset if a new overlay exists
          (setq flyspell-auto-correct-previous-pos nil)
-      
+
          (let ((overlay-list (overlays-in (point-min) position))
                (new-overlay 'dummy-value))
-       
+
            ;; search for previous (new) flyspell overlay
            (while (and new-overlay
                        (or (not (flyspell-overlay-p new-overlay))
                            ;; check if its face has changed
-                           (not (eq (get-char-property 
-                                     (overlay-start new-overlay) 'face) 
+                           (not (eq (get-char-property
+                                     (overlay-start new-overlay) 'face)
                                     'flyspell-incorrect))))
              (setq new-overlay (car-safe overlay-list))
              (setq overlay-list (cdr-safe overlay-list)))
-       
+
            ;; if nothing new exits new-overlay should be nil
            (if new-overlay ;; the length of the word may change so go to the start
-               (setq flyspell-auto-correct-previous-pos 
+               (setq flyspell-auto-correct-previous-pos
                      (overlay-start new-overlay)))))
 
        (when flyspell-auto-correct-previous-pos
@@ -2134,9 +2134,9 @@ Ispell, after transposing two adjacent characters, correct the text,
 and return t.
 
 The third arg POSS is either the symbol 'doublon' or a list of
-possible corrections as returned by 'ispell-parse-output'.
+possible corrections as returned by `ispell-parse-output'.
 
-This function is meant to be added to 'flyspell-incorrect-hook'."
+This function is meant to be added to `flyspell-incorrect-hook'."
   (when (consp poss)
     (catch 'done
       (let ((str (buffer-substring beg end))
@@ -2164,9 +2164,9 @@ Ispell, after removing a pair of doubled characters, correct the text,
 and return t.
 
 The third arg POSS is either the symbol 'doublon' or a list of
-possible corrections as returned by 'ispell-parse-output'.
+possible corrections as returned by `ispell-parse-output'.
 
-This function is meant to be added to 'flyspell-incorrect-hook'."
+This function is meant to be added to `flyspell-incorrect-hook'."
   (when (consp poss)
     (catch 'done
       (let ((str (buffer-substring beg end))