[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el

[Richard M. Stallman]

Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.245 
emacs/lisp/progmodes/compile.el:1.246
*** emacs/lisp/progmodes/compile.el:1.245       Thu Dec  6 10:24:09 2001
--- emacs/lisp/progmodes/compile.el     Wed Dec 26 16:26:11 2001
***************
*** 899,912 ****
            (funcall compilation-process-setup-function))
        ;; Start the compilation.
        (if (fboundp 'start-process)
!           (let* ((process-environment
!                   ;; Don't override users' setting of $EMACS.
!                   (if (getenv "EMACS")
!                       process-environment
!                     (cons "EMACS=t" process-environment)))
                   (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)
--- 899,922 ----
            (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)))
+             ;; 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)))))
+             ;; Set the EMACS variable, but
+             ;; don't override users' setting of $EMACS.
+             (if (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)