[Emacs-diffs] Changes to emacs/lisp/textmodes/ispell.el, v [EMACS_22_BASE]

[Martin Rudalics]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Martin Rudalics <m061211>       07/05/17 08:27:08

Index: ispell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/ispell.el,v
retrieving revision 1.209
retrieving revision 1.209.2.1
diff -u -b -r1.209 -r1.209.2.1
--- ispell.el   20 Mar 2007 16:23:09 -0000      1.209
+++ ispell.el   17 May 2007 08:27:08 -0000      1.209.2.1
@@ -2483,7 +2483,12 @@
 (defun ispell-start-process ()
   "Start the ispell process, with support for no asynchronous processes.
 Keeps argument list for future ispell invocations for no async support."
-  (let (args)
+  (let ((default-directory default-directory)
+       args)
+    (unless (and (file-directory-p default-directory)
+                (file-readable-p default-directory))
+      ;; Defend against bad `default-directory'.
+      (setq default-directory (expand-file-name "~/")))
     ;; Local dictionary becomes the global dictionary in use.
     (setq ispell-current-dictionary
          (or ispell-local-dictionary ispell-dictionary))