# HG changeset patch
# User Agustin Martin <agustin.martin@hispalinux.es>
# Date 1231177553 0
# Node ID cd88b4306232efb765961d372a6813b9fbb7fb6d
# Parent  7a103a2ee2ec88a906b51cecf2cd41e61664f37f
textmodes/ispell.el (ispell-check-version): Use (with-temp-buffer)

diff -r 7a103a2ee2ec -r cd88b4306232 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Jan 05 16:06:19 2009 +0000
+++ b/lisp/ChangeLog	Mon Jan 05 17:45:53 2009 +0000
@@ -1,6 +1,10 @@
+2009-01-05  Agustín Martín <agustin.martin@hispalinux.es>
+
+	* textmodes/ispell.el (ispell-check-version): Use (with-temp-buffer)
+
 2009-01-05  Richard M Stallman  <rms@gnu.org>
 
-	* mail/sendmail.el (mail-bury): Treat pmail-mode like rmail-mode. 
+	* mail/sendmail.el (mail-bury): Treat pmail-mode like rmail-mode.
 
 2009-01-05  Martin Rudalics  <rudalics@gmx.at>
 
diff -r 7a103a2ee2ec -r cd88b4306232 lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Mon Jan 05 16:06:19 2009 +0000
+++ b/lisp/textmodes/ispell.el	Mon Jan 05 17:45:53 2009 +0000
@@ -744,18 +744,14 @@
   ;; all versions, since versions earlier than 3.0.09 didn't identify
   ;; themselves on startup.
   (interactive "p")
-  (let ((case-fold-search-val case-fold-search)
-	;; avoid bugs when syntax of `.' changes in various default modes
+  (let (;; avoid bugs when syntax of `.' changes in various default modes
 	(default-major-mode 'fundamental-mode)
 	(default-directory (or (and (boundp 'temporary-file-directory)
 				    temporary-file-directory)
 			       default-directory))
 	result status ispell-program-version)
-    (save-excursion
-      (let ((buf (get-buffer " *ispell-tmp*")))
-	(if buf (kill-buffer buf)))
-      (set-buffer (get-buffer-create " *ispell-tmp*"))
-      (erase-buffer)
+
+    (with-temp-buffer
       (setq status (ispell-call-process
 		    ispell-program-name nil t nil
 		    ;; aspell doesn't accept the -vv switch.
@@ -825,9 +821,7 @@
 	    (setq ispell-really-aspell nil)))
 	 (ispell-really-hunspell
 	  (or (ispell-check-minver hunspell8-minver ispell-really-hunspell)
-	      (setq ispell-really-hunspell nil)))))
-
-      (kill-buffer (current-buffer)))
+	      (setq ispell-really-hunspell nil))))))
     result))
 
 (defun ispell-call-process (&rest args)