M-x compile does not set the EMACS env var anymore

M-x compile does not set the EMACS env var anymore

[Gustav Hållberg]

[-- Attachment #1: Type: text/plain, Size: 451 bytes --]

In emacs 21.2, M-x compile does not set the EMACS environment variable 
in the compilation process (which at least 20.7 used to do), and looking
at the code it seems as if it's supposed to do this still.

To test this, evaluate (compile "export")

Note that the TERM env variable is not set properly either.

I am attaching a suggested bugfix.

My patch does not address the case of the branch that gets run unless
(fboundp 'start-process).

- Gustav

[-- Attachment #2: compile.el-diff --]
[-- Type: text/plain, Size: 2076 bytes --]

--- compile-old.el	2003-01-31 19:56:44.000000000 +0100
+++ compile.el	2003-01-31 20:05:07.000000000 +0100
@@ -826,29 +826,33 @@
 	    (funcall compilation-process-setup-function))
 	;; Start the compilation.
 	(if (fboundp 'start-process)
-	    (let* ((process-environment process-environment)
-		   (proc (start-process-shell-command (downcase mode-name)
-						      outbuf
-						      command)))
+	    (let ((process-environment process-environment))
 	      ;; Set the terminal type
 	      (setq process-environment
-		    (if (and (boundp 'system-uses-terminfo)
-			     system-uses-terminfo)
-			(list "TERM=dumb" "TERMCAP="
-			      (format "COLUMNS=%d" (window-width)))
-		      (list "TERM=emacs"
-			    (format "TERMCAP=emacs:co#%d:tc=unknown:"
-				    (window-width)))))
+		    (append process-environment
+			    (if (and (boundp 'system-uses-terminfo)
+				     system-uses-terminfo)
+				(list "TERM=dumb" "TERMCAP="
+				      (format "COLUMNS=%d" (window-width)))
+			      (list "TERM=emacs"
+				    (format "TERMCAP=emacs:co#%d:tc=unknown:"
+					    (window-width))))))
+
 	      ;; Set the EMACS variable, but
 	      ;; don't override users' setting of $EMACS.
-	      (if (getenv "EMACS")
+	      (unless (getenv "EMACS")
 		  (setq process-environment
 			(cons "EMACS=t" process-environment)))
-	      (set-process-sentinel proc 'compilation-sentinel)
-	      (set-process-filter proc 'compilation-filter)
-	      (set-marker (process-mark proc) (point) outbuf)
-	      (setq compilation-in-progress
-		    (cons proc compilation-in-progress)))
+
+	      (let ((proc (start-process-shell-command (downcase mode-name)
+						       outbuf
+						       command)))
+		(set-process-sentinel proc 'compilation-sentinel)
+		(set-process-filter proc 'compilation-filter)
+		(set-marker (process-mark proc) (point) outbuf)
+		(setq compilation-in-progress
+		      (cons proc compilation-in-progress))))
+
 	  ;; No asynchronous processes available.
 	  (message "Executing `%s'..." command)
 	  ;; Fake modeline display as if `start-process' were run.

[-- Attachment #3: Type: text/plain, Size: 148 bytes --]

_______________________________________________
Bug-gnu-emacs mailing list
Bug-gnu-emacs@gnu.org
http://mail.gnu.org/mailman/listinfo/bug-gnu-emacs

Re: M-x compile does not set the EMACS env var anymore

[Richard Stallman]

This has been fixed for 21.3, the coming bug-fix release.