(compile-internal): Fix the change from 2001-07-23.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ef5e373c62ca69ee98e873bc704f4a63e766f595..6f273a1512829b81a3149b792d63f0d55ad897af 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-04-12  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * progmodes/compile.el (compile-internal): Fix the change from
+       2001-07-23.
+
 2002-03-16  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * Version 21.2 released.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index f49948d2333c85945e7b88c056c8d8d21a0ee2c9..0458c665c51dd45201db3750452420fe763b295d 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -841,7 +841,7 @@ Returns the compilation buffer created."
                                    (window-width)))))
              ;; Set the EMACS variable, but
              ;; don't override users' setting of $EMACS.
-             (if (getenv "EMACS")
+             (or (getenv "EMACS")
                  (setq process-environment
                        (cons "EMACS=t" process-environment)))
              (set-process-sentinel proc 'compilation-sentinel)