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 |