[Emacs-diffs] Changes to emacs/lisp/man.el,v

[Martin Rudalics]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Martin Rudalics <m061211>       07/03/24 09:43:07

Index: man.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/man.el,v
retrieving revision 1.166
retrieving revision 1.167
diff -u -b -r1.166 -r1.167
--- man.el      21 Jan 2007 03:53:11 -0000      1.166
+++ man.el      24 Mar 2007 09:43:07 -0000      1.167
@@ -628,7 +628,14 @@
     (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