# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 906589365 0
# Node ID 2fe1a52e6932eb68578e23d065178e42c76c07d5
# Parent  5d6530954ecea06099351ef3c695896ba736bb7f
(check-ispell-version): Ensure same buffer is current
when let-binding of case-fold-search ends.

diff -r 5d6530954ece -r 2fe1a52e6932 lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Wed Sep 23 22:11:56 1998 +0000
+++ b/lisp/textmodes/ispell.el	Wed Sep 23 22:22:45 1998 +0000
@@ -1709,11 +1709,11 @@
   ;; 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)