Re: flyspell.el [1.90->1.91] flyspell-large-region-beg should be moved after good match

[Richard M. Stallman]

I think this fix is a cleaner one.  Does it work right?

*** flyspell.el 04 Dec 2005 12:42:38 -0500      1.91
--- flyspell.el 16 Dec 2005 19:58:07 -0500      
***************
*** 1311,1316 ****
--- 1311,1318 ----
        (ispell-otherchars (ispell-get-otherchars)))
      (with-current-buffer flyspell-external-ispell-buffer
        (goto-char (point-min))
+       (with-current-buffer flyspell-large-region-buffer
+       (goto-char flyspell-large-region-beg))
        ;; Loop over incorrect words.
        (while (re-search-forward "\\([^\n]+\\)\n" (point-max) t)
        ;; Bind WORD to the next one.
***************
*** 1325,1331 ****
                       (* 100 (/ (float (point)) (point-max)))
                       word))
          (with-current-buffer flyspell-large-region-buffer
-           (goto-char flyspell-large-region-beg)
            (let ((keep t))
              ;; Iterate on string search until string is found as word,
              ;; not as substring
--- 1327,1332 ----