# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1027963771 0
# Node ID fc2f7f66ce57c8054d0cafbf3896df7501a2ffbf
# Parent  c86fc964833fdba74bc85dbb37aab0d7f8bbd03e
(check-ispell-version): Bind default-directory
to avoid errors.  Kill the old temp buffer at the beginning.

diff -r c86fc964833f -r fc2f7f66ce57 lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Mon Jul 29 13:53:48 2002 +0000
+++ b/lisp/textmodes/ispell.el	Mon Jul 29 17:29:31 2002 +0000
@@ -726,8 +726,11 @@
   (let ((case-fold-search-val case-fold-search)
 	;; avoid bugs when syntax of `.' changes in various default modes
 	(default-major-mode 'fundamental-mode)
+	(default-directory temporary-file-directory)
 	result status)
     (save-excursion
+      (let ((buf (get-buffer " *ispell-tmp*")))
+	(if buf (kill-buffer buf)))
       (set-buffer (get-buffer-create " *ispell-tmp*"))
       (erase-buffer)
       (setq status (call-process