From 6daa20b07490957736ea8e1f3238694479585071 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 29 Jul 2002 17:29:31 +0000 Subject: [PATCH] (check-ispell-version): Bind default-directory to avoid errors. Kill the old temp buffer at the beginning. --- lisp/textmodes/ispell.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index d1547c87820..30b1c71f97b 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -726,8 +726,11 @@ Otherwise returns the library directory name, if that is defined." (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 -- 2.39.5