Mercurial > emacs

diff lisp/textmodes/ispell.el @ 46733:fc2f7f66ce57

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(check-ispell-version): Bind default-directory to avoid errors. Kill the old temp buffer at the beginning.
author Richard M. Stallman <rms@gnu.org>
date Mon, 29 Jul 2002 17:29:31 +0000
parents d3061db40fb5
children a6f9803f174f
line wrap: on
line diff
--- 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