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

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

1 files changed, 5 insertions, 5 deletions

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index ed4dee74c61..09b3a4d4028 100644
--- 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)