Mercurial > emacs

diff lisp/man.el @ 50054:a323f25ec045

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Man-getpage-in-background): Only change default-directory if necessary.
author Kai Großjohann <kgrossjo@eu.uu.net>
date Fri, 07 Mar 2003 21:04:54 +0000
parents e88404e8f2cf
children b43d8c1413de
line wrap: on
line diff
--- 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