diff options
| author | Richard M. Stallman <[email protected]> | 2002-07-29 17:29:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2002-07-29 17:29:31 +0000 |
| commit | 6daa20b07490957736ea8e1f3238694479585071 (patch) | |
| tree | 9e3a30ea9816dd62e70499aa1c0921c79482a00b | |
| parent | da5d3a563fc8c8f4adfa5031c2baa8236100c35f (diff) | |
(check-ispell-version): Bind default-directory
to avoid errors. Kill the old temp buffer at the beginning.
| -rw-r--r-- | lisp/textmodes/ispell.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index d1547c8782..30b1c71f97 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 |