diff lisp/man.el @ 50062:b43d8c1413de

* man.el (Man-getpage-in-background): Always use `setenv' for environment variables, instead of modifying process-environment directly. The previous version let-bound process-environment -- the let-binding is skipped for GROFF_NO_SGR because there is already a let-binding in effect in some outer scope. * emulation/crisp.el (top-level): Interoperate with cua.
author Kai Großjohann <kgrossjo@eu.uu.net>
date Sun, 09 Mar 2003 14:05:25 +0000
parents a323f25ec045
children 7dc2f9f7086b
line wrap: on
line diff
--- a/lisp/man.el	Sat Mar 08 19:38:02 2003 +0000
+++ b/lisp/man.el	Sun Mar 09 14:05:25 2003 +0000
@@ -623,21 +623,19 @@
 	     (start-process manual-program buffer "sh" "-c"
 			    (format (Man-build-man-command) man-args))
 	     'Man-bgproc-sentinel)
-	  (let ((process-environment
-		 (cons "GROFF_NO_SGR=1" process-environment)))
-
-	    (let ((exit-status
-		   (call-process shell-file-name nil (list buffer nil) nil "-c"
-				 (format (Man-build-man-command) man-args)))
-		  (msg ""))
-	      (or (and (numberp exit-status)
-		       (= exit-status 0))
-		  (and (numberp exit-status)
-		       (setq msg
-			     (format "exited abnormally with code %d"
-				     exit-status)))
-		  (setq msg exit-status))
-	      (Man-bgproc-sentinel bufname msg))))))))
+	  (setenv "GROFF_NO_SGR" "1")
+	  (let ((exit-status
+		 (call-process shell-file-name nil (list buffer nil) nil "-c"
+			       (format (Man-build-man-command) man-args)))
+		(msg ""))
+	    (or (and (numberp exit-status)
+		     (= exit-status 0))
+		(and (numberp exit-status)
+		     (setq msg
+			   (format "exited abnormally with code %d"
+				   exit-status)))
+		(setq msg exit-status))
+	    (Man-bgproc-sentinel bufname msg)))))))
 
 (defun Man-notify-when-ready (man-buffer)
   "Notify the user when MAN-BUFFER is ready.