From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 23 Sep 1998 22:22:45 +0000 (+0000)
Subject: (check-ispell-version): Ensure same buffer is current
X-Git-Tag: emacs-20.4~1641
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=73cc7f2aa0e3408ac53a5f92b72d7c76197247b1;p=emacs.git

(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 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)