(Man-getpage-in-background): Only change

default-directory if necessary.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4e79cc2a1cd172f90b4a9c3e6e1ce6a66d996b01..3926156c716e784ce0aa30593e5b48ef8bec2fc8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-03-07  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@uni-duisburg.de>
+
+       * man.el (Man-getpage-in-background): Only change
+       default-directory if necessary.
+
 2003-03-07  Andreas Schwab  <schwab@suse.de>
 
        * info.el (Info-following-node-name): Skip trailing period.

diff --git a/lisp/man.el b/lisp/man.el
index ed3fbf5d66b74126356439c8a9232f9615c765f1..cd44b68011755ffb12d6c805fc3fed95ab505acf 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -593,7 +593,12 @@ all sections related to a subject, put something appropriate into the
             (if default-enable-multibyte-characters
                 locale-coding-system 'raw-text-unix))
            ;; Avoid possible error by using a directory that always exists.
-           (default-directory "/"))
+           (default-directory
+             (if (and (file-directory-p default-directory)
+                      (not (find-file-name-handler default-directory
+                                                   'file-directory-p)))
+                 default-directory
+               "/")))
        ;; Prevent any attempt to use display terminal fanciness.
        (setenv "TERM" "dumb")
        ;; In Debian Woody, at least, we get overlong lines under X