Mercurial > emacs

changeset 58494:d3f27661a6ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 9acfc0fb9410
children a30209899fa0
files lisp/textmodes/ispell.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
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.