Mercurial > emacs
comparison lisp/progmodes/compile.el @ 87332:4a1edf137bff
John J Foerch <jjfoerch at earthlink.net> (tiny change)
(compilation-start): Don't pass a FRAME argument to display-buffer.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 19 Dec 2007 02:54:53 +0000 |
| parents | b182750e235e |
| children | cdd30283527d |
comparison
equal
deleted
inserted
replaced
| 87331:8cf8881d0ebc | 87332:4a1edf137bff |
|---|---|
| 1166 ;; If we're already in the compilation buffer, go to the end | 1166 ;; If we're already in the compilation buffer, go to the end |
| 1167 ;; of the buffer, so point will track the compilation output. | 1167 ;; of the buffer, so point will track the compilation output. |
| 1168 (if (eq outbuf (current-buffer)) | 1168 (if (eq outbuf (current-buffer)) |
| 1169 (goto-char (point-max))) | 1169 (goto-char (point-max))) |
| 1170 ;; Pop up the compilation buffer. | 1170 ;; Pop up the compilation buffer. |
| 1171 (setq outwin (display-buffer outbuf nil t)) | 1171 ;; http://lists.gnu.org/archive/html/emacs-devel/2007-11/msg01638.html |
| 1172 (setq outwin (display-buffer outbuf)) | |
| 1172 (with-current-buffer outbuf | 1173 (with-current-buffer outbuf |
| 1173 (let ((process-environment | 1174 (let ((process-environment |
| 1174 (append | 1175 (append |
| 1175 compilation-environment | 1176 compilation-environment |
| 1176 (if (if (boundp 'system-uses-terminfo) ; `if' for compiler warning | 1177 (if (if (boundp 'system-uses-terminfo) ; `if' for compiler warning |