Mercurial > emacs
comparison lisp/progmodes/compile.el @ 90140:02f1dbc4a199
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-35
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 228-240)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 53-58)
- Merge from emacs--cvs-trunk--0
- Update from CVS
- Collapse feature addition/removal within single ChangeLog entry
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 09 Apr 2005 02:16:29 +0000 |
| parents | 4da4a09e8b1b 31aa9a390538 |
| children | 146c086df160 |
comparison
equal
deleted
inserted
replaced
| 90139:e0d294b9b23e | 90140:02f1dbc4a199 |
|---|---|
| 1 ;;; compile.el --- run compiler as inferior of Emacs, parse error messages | 1 ;;; compile.el --- run compiler as inferior of Emacs, parse error messages |
| 2 | 2 |
| 3 ;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, | 3 ;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, |
| 4 ;; 2001, 2003, 2004 Free Software Foundation, Inc. | 4 ;; 2001, 2003, 2004, 2005 Free Software Foundation, Inc. |
| 5 | 5 |
| 6 ;; Authors: Roland McGrath <roland@gnu.org>, | 6 ;; Authors: Roland McGrath <roland@gnu.org>, |
| 7 ;; Daniel Pfeiffer <occitan@esperanto.org> | 7 ;; Daniel Pfeiffer <occitan@esperanto.org> |
| 8 ;; Maintainer: FSF | 8 ;; Maintainer: FSF |
| 9 ;; Keywords: tools, processes | 9 ;; Keywords: tools, processes |
| 462 :version "22.1") | 462 :version "22.1") |
| 463 | 463 |
| 464 (defface compilation-info-face | 464 (defface compilation-info-face |
| 465 '((((class color) (min-colors 16) (background light)) | 465 '((((class color) (min-colors 16) (background light)) |
| 466 (:foreground "Green3" :weight bold)) | 466 (:foreground "Green3" :weight bold)) |
| 467 (((class color) (min-colors 88) (background dark)) | |
| 468 (:foreground "Green1" :weight bold)) | |
| 467 (((class color) (min-colors 16) (background dark)) | 469 (((class color) (min-colors 16) (background dark)) |
| 468 (:foreground "Green" :weight bold)) | 470 (:foreground "Green" :weight bold)) |
| 469 (((class color)) (:foreground "green" :weight bold)) | 471 (((class color)) (:foreground "green" :weight bold)) |
| 470 (t (:weight bold))) | 472 (t (:weight bold))) |
| 471 "Face used to highlight compiler warnings." | 473 "Face used to highlight compiler warnings." |
| 1231 `compilation-minor-mode'." | 1233 `compilation-minor-mode'." |
| 1232 (make-local-variable 'compilation-current-error) | 1234 (make-local-variable 'compilation-current-error) |
| 1233 (make-local-variable 'compilation-messages-start) | 1235 (make-local-variable 'compilation-messages-start) |
| 1234 (make-local-variable 'compilation-error-screen-columns) | 1236 (make-local-variable 'compilation-error-screen-columns) |
| 1235 (make-local-variable 'overlay-arrow-position) | 1237 (make-local-variable 'overlay-arrow-position) |
| 1238 (set (make-local-variable 'overlay-arrow-string) "=>") | |
| 1239 (setq next-error-overlay-arrow-position nil) | |
| 1240 (add-hook 'kill-buffer-hook | |
| 1241 (lambda () (setq next-error-overlay-arrow-position nil)) nil t) | |
| 1236 ;; Note that compilation-next-error-function is for interfacing | 1242 ;; Note that compilation-next-error-function is for interfacing |
| 1237 ;; with the next-error function in simple.el, and it's only | 1243 ;; with the next-error function in simple.el, and it's only |
| 1238 ;; coincidentally named similarly to compilation-next-error. | 1244 ;; coincidentally named similarly to compilation-next-error. |
| 1239 (setq next-error-function 'compilation-next-error-function) | 1245 (setq next-error-function 'compilation-next-error-function) |
| 1240 (set (make-local-variable 'font-lock-extra-managed-props) | 1246 (set (make-local-variable 'font-lock-extra-managed-props) |
| 1639 compilation-highlight-overlay))) | 1645 compilation-highlight-overlay))) |
| 1640 (if (not (or (eq next-error-highlight t) | 1646 (if (not (or (eq next-error-highlight t) |
| 1641 (numberp next-error-highlight))) | 1647 (numberp next-error-highlight))) |
| 1642 (delete-overlay compilation-highlight-overlay)))))) | 1648 (delete-overlay compilation-highlight-overlay)))))) |
| 1643 (when (and (eq next-error-highlight 'fringe-arrow)) | 1649 (when (and (eq next-error-highlight 'fringe-arrow)) |
| 1644 (set (make-local-variable 'overlay-arrow-position) | 1650 (setq next-error-overlay-arrow-position |
| 1645 (copy-marker (line-beginning-position)))))) | 1651 (copy-marker (line-beginning-position)))))) |
| 1652 | |
| 1646 | 1653 |
| 1647 (defun compilation-find-file (marker filename dir &rest formats) | 1654 (defun compilation-find-file (marker filename dir &rest formats) |
| 1648 "Find a buffer for file FILENAME. | 1655 "Find a buffer for file FILENAME. |
| 1649 Search the directories in `compilation-search-path'. | 1656 Search the directories in `compilation-search-path'. |
| 1650 A nil in `compilation-search-path' means to try the | 1657 A nil in `compilation-search-path' means to try the |