# HG changeset patch # User Richard M. Stallman # Date 1101351976 0 # Node ID d3f27661a6abc46cf8e41b25a4d323b922658999 # Parent 9acfc0fb941079c834cb4af052ffbe416e8ebd67 (ispell-check-version): If default-directory is nonexistent, use home dir. diff -r 9acfc0fb9410 -r d3f27661a6ab lisp/textmodes/ispell.el --- 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.