Mercurial > emacs
comparison lisp/progmodes/compile.el @ 712:16823e891d56
*** empty log message ***
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Thu, 11 Jun 1992 02:31:08 +0000 |
parents | eca8812e61cd |
children | 540b047ece4d |
comparison
equal
deleted
inserted
replaced
711:22b98190b7ef | 712:16823e891d56 |
---|---|
1 ;;; compile.el --- run compiler as inferior of Emacs, and parse its error messages. | |
2 | |
1 ;;;!!! dup removal is broken. | 3 ;;;!!! dup removal is broken. |
2 ;; Run compiler as inferior of Emacs, and parse its error messages. | 4 |
3 ;; Copyright (C) 1985-1991 Free Software Foundation, Inc. | 5 ;; Copyright (C) 1985-1991 Free Software Foundation, Inc. |
4 | 6 |
5 ;; This file is part of GNU Emacs. | 7 ;; This file is part of GNU Emacs. |
6 | 8 |
7 ;; GNU Emacs is distributed in the hope that it will be useful, | 9 ;; GNU Emacs is distributed in the hope that it will be useful, |
264 (goto-char (point-max))) | 266 (goto-char (point-max))) |
265 ;; Pop up the compilation buffer. | 267 ;; Pop up the compilation buffer. |
266 (setq outwin (display-buffer outbuf)) | 268 (setq outwin (display-buffer outbuf)) |
267 (set-buffer outbuf) | 269 (set-buffer outbuf) |
268 (compilation-mode) | 270 (compilation-mode) |
271 (buffer-disable-undo (current-buffer)) | |
269 (set (make-local-variable 'compilation-parse-errors-function) parser) | 272 (set (make-local-variable 'compilation-parse-errors-function) parser) |
270 (set (make-local-variable 'compilation-error-message) error-message) | 273 (set (make-local-variable 'compilation-error-message) error-message) |
271 (set (make-local-variable 'compilation-error-regexp-alist) regexp-alist) | 274 (set (make-local-variable 'compilation-error-regexp-alist) regexp-alist) |
272 (setq default-directory thisdir | 275 (setq default-directory thisdir |
273 compilation-directory-stack (list default-directory)) | 276 compilation-directory-stack (list default-directory)) |
307 | 310 |
308 Runs `compilation-mode-hook' with `run-hooks' (which see)." | 311 Runs `compilation-mode-hook' with `run-hooks' (which see)." |
309 (interactive) | 312 (interactive) |
310 (fundamental-mode) | 313 (fundamental-mode) |
311 (use-local-map compilation-mode-map) | 314 (use-local-map compilation-mode-map) |
312 (buffer-disable-undo (current-buffer)) | |
313 (setq major-mode 'compilation-mode) | 315 (setq major-mode 'compilation-mode) |
314 (setq mode-name "Compilation") | 316 (setq mode-name "Compilation") |
315 ;; Make buffer's mode line show process state | 317 ;; Make buffer's mode line show process state |
316 (setq mode-line-process '(": %s")) | 318 (setq mode-line-process '(": %s")) |
317 (set (make-local-variable 'compilation-error-list) nil) | 319 (set (make-local-variable 'compilation-error-list) nil) |
802 (setq compilation-error-list (nreverse compilation-error-list))) | 804 (setq compilation-error-list (nreverse compilation-error-list))) |
803 | 805 |
804 (define-key ctl-x-map "`" 'next-error) | 806 (define-key ctl-x-map "`" 'next-error) |
805 | 807 |
806 (provide 'compile) | 808 (provide 'compile) |
809 | |
810 ;;; compile.el ends here |