# HG changeset patch
# User Kai Gro���johann <kgrossjo@eu.uu.net>
# Date 1047071094 0
# Node ID a323f25ec04510d4217d6143b278199999263e90
# Parent  b0e77003c9801e69bd9bce00b708229c7db37008
(Man-getpage-in-background): Only change
default-directory if necessary.

diff -r b0e77003c980 -r a323f25ec045 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Mar 07 11:39:43 2003 +0000
+++ b/lisp/ChangeLog	Fri Mar 07 21:04:54 2003 +0000
@@ -1,3 +1,8 @@
+2003-03-07  Kai Gro,A_(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 -r b0e77003c980 -r a323f25ec045 lisp/man.el
--- a/lisp/man.el	Fri Mar 07 11:39:43 2003 +0000
+++ b/lisp/man.el	Fri Mar 07 21:04:54 2003 +0000
@@ -593,7 +593,12 @@
 	     (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