(check-ispell-version): Ensure same buffer is current

when let-binding of case-fold-search ends.

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index ed4dee74c612238d8878772a817cb045e1298602..09b3a4d40282498f28aa92a2c5148a97dab1d761 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1709,11 +1709,11 @@ scrolling the current window.  Leave the new window selected."
   ;; all versions, since versions earlier than 3.0.09 didn't identify
   ;; themselves on startup.
   (interactive "p")
-  (save-excursion
-    (let (case-fold-search status
-         ;; avoid bugs when syntax of `.' changes in various default modes
-         (default-major-mode 'fundamental-mode)
-         (result t))
+  (let (case-fold-search status
+       ;; avoid bugs when syntax of `.' changes in various default modes
+       (default-major-mode 'fundamental-mode)
+       (result t))
+    (save-excursion
       (set-buffer (get-buffer-create " *ispell-tmp*"))
       (setq case-fold-search t)
       (erase-buffer)