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

1 files changed, 2 insertions, 0 deletions

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index d221d39180f..f6a1c1d5cce 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -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.