mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

(ispell-check-version): If default-directory is nonexistent, use home dir.

Browse Source
This commit is contained in:
Richard M. Stallman 2004-11-25 03:06:16 +00:00
parent bde94a7f47
commit 0a6d03627f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/textmodes/ispell.el
View File

@ -769,6 +769,8 @@ Otherwise returns the library directory name, if that is defined."
(if buf (kill-buffer buf)))
(set-buffer (get-buffer-create " *ispell-tmp*"))
(erase-buffer)
(unless (file-exists-p default-directory)
(setq default-directory (expand-file-name "~/")))
(setq status (call-process
ispell-program-name nil t nil
;; aspell doesn't accept the -vv switch.