From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 17 Nov 1997 01:56:15 +0000 (+0000)
Subject: (Man-init-defvars, Man-build-man-command):
X-Git-Tag: emacs-20.3~2807
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fd5733a94b26898952b004eae93d9d6c4250eb85;p=emacs.git

(Man-init-defvars, Man-build-man-command):
Bind default-directory to "/" to avoid possible error in call-process.
---

diff --git a/lisp/man.el b/lisp/man.el
index a05e2462e4b..51cca38250e 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -362,16 +362,18 @@ This is necessary if one wants to dump man.el with emacs."
   (setq Man-fontify-manpage-flag (and Man-fontify-manpage-flag
 				      window-system))
 
-  (setq Man-sed-script
-	(cond
-	 (Man-fontify-manpage-flag
-	  nil)
-	 ((= 0 (call-process Man-sed-command nil nil nil Man-sysv-sed-script))
-	  Man-sysv-sed-script)
-	 ((= 0 (call-process Man-sed-command nil nil nil Man-berkeley-sed-script))
-	  Man-berkeley-sed-script)
-	 (t
-	  nil)))
+  ;; Avoid possible error in call-process by using a directory that must exist.
+  (let ((default-directory "/"))
+    (setq Man-sed-script
+	  (cond
+	   (Man-fontify-manpage-flag
+	    nil)
+	   ((= 0 (call-process Man-sed-command nil nil nil Man-sysv-sed-script))
+	    Man-sysv-sed-script)
+	   ((= 0 (call-process Man-sed-command nil nil nil Man-berkeley-sed-script))
+	    Man-berkeley-sed-script)
+	   (t
+	    nil))))
 
   (setq Man-filter-list
 	(list
@@ -575,7 +577,9 @@ If a buffer already exists for this man page, it will display immediately."
 	(set-buffer buffer)
 	(setq Man-original-frame (selected-frame))
 	(setq Man-arguments man-args))
-      (let ((process-environment (copy-sequence process-environment)))
+      (let ((process-environment (copy-sequence process-environment))
+	    ;; Avoid possible error by using a directory that always exists.
+	    (default-directory "/"))
 	;; Prevent any attempt to use display terminal fanciness.
 	(setenv "TERM" "dumb")
 	(if (fboundp 'start-process)