diff options
author | Karl Heuer <kwzh@gnu.org> | 1998-09-23 22:22:45 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1998-09-23 22:22:45 +0000 |
commit | c9e2eab243489f39c0df3dd802b9e8c8393d1cbd (patch) | |
tree | e6506801c22a2acef2fe1e055252af34efa5fe59 | |
parent | e35527c40166121d9c87e3e87e91e72a6c8cf3f6 (diff) | |
download | emacs-c9e2eab243489f39c0df3dd802b9e8c8393d1cbd.tar.gz |
(check-ispell-version): Ensure same buffer is current
when let-binding of case-fold-search ends.
-rw-r--r-- | lisp/textmodes/ispell.el | 10 |
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) |