mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(check-ispell-version): Bind default-directory

Browse source 
to avoid errors.  Kill the old temp buffer at the beginning.
This commit is contained in:
Richard M. Stallman 2002-07-29 17:29:31 +00:00
parent da5d3a563f
commit 6daa20b074
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/textmodes/ispell.el
View file

@ -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