Mercurial > emacs
diff lisp/textmodes/ispell.el @ 58494:d3f27661a6ab
(ispell-check-version): If default-directory is nonexistent, use home dir.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 25 Nov 2004 03:06:16 +0000 |
parents | d4af4d8d512b |
children | c674f42f1748 f2ebccfa87d4 |
line wrap: on
line diff
--- a/lisp/textmodes/ispell.el Thu Nov 25 03:05:00 2004 +0000 +++ b/lisp/textmodes/ispell.el Thu Nov 25 03:06:16 2004 +0000 @@ -769,6 +769,8 @@ (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.