From cb24638ef7321dd4fadc8718d25a129c1cb6f9b2 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Kai=20Gro=C3=9Fjohann?= Date: Fri, 7 Mar 2003 21:04:54 +0000 Subject: [PATCH] (Man-getpage-in-background): Only change default-directory if necessary. --- lisp/ChangeLog | 5 +++++ lisp/man.el | 7 ++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4e79cc2a1cd..3926156c716 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-03-07 Kai Gro,A_(Bjohann + + * man.el (Man-getpage-in-background): Only change + default-directory if necessary. + 2003-03-07 Andreas Schwab * info.el (Info-following-node-name): Skip trailing period. diff --git a/lisp/man.el b/lisp/man.el index ed3fbf5d66b..cd44b680117 100644 --- 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 -- 2.39.2