(ispell-check-version): If default-directory is nonexistent, use home dir.
authorRichard M. Stallman <rms@gnu.org>
Thu, 25 Nov 2004 03:06:16 +0000 (03:06 +0000)
committerRichard M. Stallman <rms@gnu.org>
Thu, 25 Nov 2004 03:06:16 +0000 (03:06 +0000)
lisp/textmodes/ispell.el

index d221d39..f6a1c1d 100644 (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.