(Man-support-local-filenames): Assure that

default-directory exists when doing call-process.

diff --git a/lisp/man.el b/lisp/man.el
index a6aced25e3d4f4962990f566500e0c0cd914327b..0484c032e34dd644bb545d458e412c4128cbaa3b 100644 (file)
--- 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