From c9e2eab243489f39c0df3dd802b9e8c8393d1cbd Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 23 Sep 1998 22:22:45 +0000 Subject: (check-ispell-version): Ensure same buffer is current when let-binding of case-fold-search ends. --- lisp/textmodes/ispell.el | 10 +++++----- 1 file 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) -- cgit v1.2.1