From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 25 Nov 2004 03:06:16 +0000 (+0000)
Subject: (ispell-check-version): If default-directory is nonexistent, use home dir.
X-Git-Tag: ttn-vms-21-2-B4~3684
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a6d03627fa8d7b018d91d7a0af1c15a72a26310;p=emacs.git

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

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.