From: Martin Rudalics <rudalics@gmx.at>
Date: Sat, 24 Mar 2007 09:43:07 +0000 (+0000)
Subject: (Man-support-local-filenames): Assure that
X-Git-Tag: emacs-pretest-22.0.97~215
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fcbd9af64f977d532e5de7dd8d7bedd4e8c93ea7;p=emacs.git

(Man-support-local-filenames): Assure that
default-directory exists when doing call-process.
---

diff --git a/lisp/man.el b/lisp/man.el
index a6aced25e3d..0484c032e34 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -628,7 +628,14 @@ a new value."
     (setq Man-support-local-filenames
           (with-temp-buffer
             (and (equal (condition-case nil
-                            (call-process manual-program nil t nil "--help")
+			    (let ((default-directory
+				    ;; Assure that `default-directory' exists
+				    ;; and is readable.
+ 				    (if (and (file-directory-p default-directory)
+ 					     (file-readable-p default-directory))
+ 					default-directory
+ 				      (expand-file-name "~/"))))
+ 			      (call-process manual-program nil t nil "--help"))
                           (error nil))
                         0)
                  (progn