Mercurial > emacs

comparison lisp/progmodes/compile.el @ 42408:f8c910bc4ca1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compile-internal): Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Sat, 29 Dec 2001 20:31:14 +0000
parents e0faaa516289
children 0786ea38f9fd
comparison
equal deleted inserted replaced
42407:f2c23e762b64 42408:f8c910bc4ca1
897 (compilation-set-window-height outwin) 897 (compilation-set-window-height outwin)
898 (if compilation-process-setup-function 898 (if compilation-process-setup-function
899 (funcall compilation-process-setup-function)) 899 (funcall compilation-process-setup-function))
900 ;; Start the compilation. 900 ;; Start the compilation.
901 (if (fboundp 'start-process) 901 (if (fboundp 'start-process)
902 (let* ((process-environment process-environment) 902 (let* ((process-environment
903 (append
904 (if (and (boundp 'system-uses-terminfo)
905 system-uses-terminfo)
906 (list "TERM=dumb" "TERMCAP="
907 (format "COLUMNS=%d" (window-width)))
908 (list "TERM=emacs"
909 (format "TERMCAP=emacs:co#%d:tc=unknown:"
910 (window-width))))
911 ;; Set the EMACS variable, but
912 ;; don't override users' setting of $EMACS.
913 (if (getenv "EMACS")
914 process-environment
915 (cons "EMACS=t" process-environment))))
903 (proc (start-process-shell-command (downcase mode-name) 916 (proc (start-process-shell-command (downcase mode-name)
904 outbuf 917 outbuf
905 command))) 918 command)))
906 ;; Set the terminal type.
907 ;; There is similar code in comint.el.
908 (setq process-environment
909 (if (and (boundp 'system-uses-terminfo)
910 system-uses-terminfo)
911 (list "TERM=dumb" "TERMCAP="
912 (format "COLUMNS=%d" (window-width)))
913 (list "TERM=emacs"
914 (format "TERMCAP=emacs:co#%d:tc=unknown:"
915 (window-width)))))
916 ;; Set the EMACS variable, but
917 ;; don't override users' setting of $EMACS.
918 (if (getenv "EMACS")
919 (setq process-environment
920 (cons "EMACS=t" process-environment)))
921 (set-process-sentinel proc 'compilation-sentinel) 919 (set-process-sentinel proc 'compilation-sentinel)
922 (set-process-filter proc 'compilation-filter) 920 (set-process-filter proc 'compilation-filter)
923 (set-marker (process-mark proc) (point) outbuf) 921 (set-marker (process-mark proc) (point) outbuf)
924 (setq compilation-in-progress 922 (setq compilation-in-progress
925 (cons proc compilation-in-progress))) 923 (cons proc compilation-in-progress)))