Mercurial > emacs
annotate lisp/progmodes/compile.el @ 87919:5e627a8698d8
* replace.el (occur-mode-find-occurrence-hook): New hook that can
be used to reveal or highlight the location of a match.
(occur-mode-goto-occurrence)
(occur-mode-goto-occurrence-other-window)
(occur-mode-display-occurrence): Run
`occur-mode-find-occurrence-hook'.
author | Carsten Dominik <dominik@science.uva.nl> |
---|---|
date | Wed, 23 Jan 2008 10:49:31 +0000 |
parents | 90f93d9bc0d9 |
children | c70e45a7acfd 5bb2c18b8034 |
rev | line source |
---|---|
38412
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
38077
diff
changeset
|
1 ;;; compile.el --- run compiler as inferior of Emacs, parse error messages |
712
16823e891d56
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
621
diff
changeset
|
2 |
58227
d7757127f475
(compilation-internal-error-properties):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58031
diff
changeset
|
3 ;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, |
87640
e541884bcfee
Kevin Ryde <user42 at zip.com.au>
Glenn Morris <rgm@gnu.org>
parents:
87453
diff
changeset
|
4 ;; 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 |
e541884bcfee
Kevin Ryde <user42 at zip.com.au>
Glenn Morris <rgm@gnu.org>
parents:
87453
diff
changeset
|
5 ;; Free Software Foundation, Inc. |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
6 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
7 ;; Authors: Roland McGrath <roland@gnu.org>, |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
8 ;; Daniel Pfeiffer <occitan@esperanto.org> |
795
c693d56ef36d
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
9 ;; Maintainer: FSF |
2247
2c7997f249eb
Add or correct keywords
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1846
diff
changeset
|
10 ;; Keywords: tools, processes |
795
c693d56ef36d
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
11 |
71 | 12 ;; This file is part of GNU Emacs. |
13 | |
804 | 14 ;; GNU Emacs is free software; you can redistribute it and/or modify |
15 ;; it under the terms of the GNU General Public License as published by | |
78234
c1ec1c8a8d2e
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
77886
diff
changeset
|
16 ;; the Free Software Foundation; either version 3, or (at your option) |
804 | 17 ;; any later version. |
71 | 18 |
804 | 19 ;; GNU Emacs is distributed in the hope that it will be useful, |
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
22 ;; GNU General Public License for more details. | |
23 | |
24 ;; You should have received a copy of the GNU General Public License | |
14169 | 25 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 26 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
27 ;; Boston, MA 02110-1301, USA. | |
71 | 28 |
2337
2ee64176069c
Fix library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
29 ;;; Commentary: |
2ee64176069c
Fix library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
30 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
31 ;; This package provides the compile facilities documented in the Emacs user's |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
32 ;; manual. |
2337
2ee64176069c
Fix library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
33 |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
34 ;; This mode uses some complex data-structures: |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
35 |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
36 ;; LOC (or location) is a list of (COLUMN LINE FILE-STRUCTURE) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
37 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
38 ;; COLUMN and LINE are numbers parsed from an error message. COLUMN and maybe |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
39 ;; LINE will be nil for a message that doesn't contain them. Then the |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
40 ;; location refers to a indented beginning of line or beginning of file. |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
41 ;; Once any location in some file has been jumped to, the list is extended to |
81133
1b2ee4e66d28
Add TIMESTAMP to LOC to handle "incremental compilation", e.g.,
Sam Steingold <sds@gnu.org>
parents:
81047
diff
changeset
|
42 ;; (COLUMN LINE FILE-STRUCTURE MARKER TIMESTAMP . VISITED) |
1b2ee4e66d28
Add TIMESTAMP to LOC to handle "incremental compilation", e.g.,
Sam Steingold <sds@gnu.org>
parents:
81047
diff
changeset
|
43 ;; for all LOCs pertaining to that file. |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
44 ;; MARKER initially points to LINE and COLUMN in a buffer visiting that file. |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
45 ;; Being a marker it sticks to some text, when the buffer grows or shrinks |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
46 ;; before that point. VISITED is t if we have jumped there, else nil. |
81133
1b2ee4e66d28
Add TIMESTAMP to LOC to handle "incremental compilation", e.g.,
Sam Steingold <sds@gnu.org>
parents:
81047
diff
changeset
|
47 ;; TIMESTAMP is necessary because of "incremental compilation": `omake -P' |
1b2ee4e66d28
Add TIMESTAMP to LOC to handle "incremental compilation", e.g.,
Sam Steingold <sds@gnu.org>
parents:
81047
diff
changeset
|
48 ;; polls filesystem for changes and recompiles when a file is modified |
1b2ee4e66d28
Add TIMESTAMP to LOC to handle "incremental compilation", e.g.,
Sam Steingold <sds@gnu.org>
parents:
81047
diff
changeset
|
49 ;; using the same *compilation* buffer. this necessitates re-parsing markers. |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
50 |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
51 ;; FILE-STRUCTURE is a list of |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
52 ;; ((FILENAME . DIRECTORY) FORMATS (LINE LOC ...) ...) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
53 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
54 ;; FILENAME is a string parsed from an error message. DIRECTORY is a string |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
55 ;; obtained by following directory change messages. DIRECTORY will be nil for |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
56 ;; an absolute filename. FORMATS is a list of formats to apply to FILENAME if |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
57 ;; a file of that name can't be found. |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
58 ;; The rest of the list is an alist of elements with LINE as key. The keys |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
59 ;; are either nil or line numbers. If present, nil comes first, followed by |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
60 ;; the numbers in decreasing order. The LOCs for each line are again an alist |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
61 ;; ordered the same way. Note that the whole file structure is referenced in |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
62 ;; every LOC. |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
63 |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
64 ;; MESSAGE is a list of (LOC TYPE END-LOC) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
65 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
66 ;; TYPE is 0 for info or 1 for warning if the message matcher identified it as |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
67 ;; such, 2 otherwise (for a real error). END-LOC is a LOC pointing to the |
74157 | 68 ;; other end, if the parsed message contained a range. If the end of the |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
69 ;; range didn't specify a COLUMN, it defaults to -1, meaning end of line. |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
70 ;; These are the value of the `message' text-properties in the compilation |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
71 ;; buffer. |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
72 |
54747 | 73 ;;; Code: |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
74 |
54747 | 75 (eval-when-compile (require 'cl)) |
54610
3ae52d0dfe0b
doc fixes and restore optionality of next-error's arg
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54424
diff
changeset
|
76 |
65228
d88a79e06702
(font-lock-extra-managed-props, font-lock-keywords, font-lock-maximum-size,
Juanma Barranquero <lekktu@gmail.com>
parents:
65175
diff
changeset
|
77 (defvar font-lock-extra-managed-props) |
d88a79e06702
(font-lock-extra-managed-props, font-lock-keywords, font-lock-maximum-size,
Juanma Barranquero <lekktu@gmail.com>
parents:
65175
diff
changeset
|
78 (defvar font-lock-keywords) |
d88a79e06702
(font-lock-extra-managed-props, font-lock-keywords, font-lock-maximum-size,
Juanma Barranquero <lekktu@gmail.com>
parents:
65175
diff
changeset
|
79 (defvar font-lock-maximum-size) |
d88a79e06702
(font-lock-extra-managed-props, font-lock-keywords, font-lock-maximum-size,
Juanma Barranquero <lekktu@gmail.com>
parents:
65175
diff
changeset
|
80 (defvar font-lock-support-mode) |
d88a79e06702
(font-lock-extra-managed-props, font-lock-keywords, font-lock-maximum-size,
Juanma Barranquero <lekktu@gmail.com>
parents:
65175
diff
changeset
|
81 |
d88a79e06702
(font-lock-extra-managed-props, font-lock-keywords, font-lock-maximum-size,
Juanma Barranquero <lekktu@gmail.com>
parents:
65175
diff
changeset
|
82 |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
83 (defgroup compilation nil |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
84 "Run compiler as inferior of Emacs, parse error messages." |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
85 :group 'tools |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
86 :group 'processes) |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
87 |
569 | 88 |
89 ;;;###autoload | |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
90 (defcustom compilation-mode-hook nil |
81795
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
91 "List of hook functions run by `compilation-mode' (see `run-mode-hooks')." |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
92 :type 'hook |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
93 :group 'compilation) |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
94 |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
95 ;;;###autoload |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
96 (defcustom compilation-window-height nil |
81795
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
97 "Number of lines in a compilation window. If nil, use Emacs default." |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
98 :type '(choice (const :tag "Default" nil) |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
99 integer) |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
100 :group 'compilation) |
418 | 101 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
102 (defvar compilation-first-column 1 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
103 "*This is how compilers number the first column, usually 1 or 0.") |
71 | 104 |
40294
c3b8e6d5266f
(compilation-parse-errors-filename-function):
Gerd Moellmann <gerd@gnu.org>
parents:
40222
diff
changeset
|
105 (defvar compilation-parse-errors-filename-function nil |
c3b8e6d5266f
(compilation-parse-errors-filename-function):
Gerd Moellmann <gerd@gnu.org>
parents:
40222
diff
changeset
|
106 "Function to call to post-process filenames while parsing error messages. |
c3b8e6d5266f
(compilation-parse-errors-filename-function):
Gerd Moellmann <gerd@gnu.org>
parents:
40222
diff
changeset
|
107 It takes one arg FILENAME which is the name of a file as found |
c3b8e6d5266f
(compilation-parse-errors-filename-function):
Gerd Moellmann <gerd@gnu.org>
parents:
40222
diff
changeset
|
108 in the compilation output, and should return a transformed file name.") |
c3b8e6d5266f
(compilation-parse-errors-filename-function):
Gerd Moellmann <gerd@gnu.org>
parents:
40222
diff
changeset
|
109 |
474 | 110 ;;;###autoload |
16985
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
111 (defvar compilation-process-setup-function nil |
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
112 "*Function to call to customize the compilation process. |
54941 | 113 This function is called immediately before the compilation process is |
16985
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
114 started. It can be used to set any variables or functions that are used |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
115 while processing the output of the compilation process. The function |
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
116 is called with variables `compilation-buffer' and `compilation-window' |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
117 bound to the compilation buffer and window, respectively.") |
16985
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
118 |
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
119 ;;;###autoload |
418 | 120 (defvar compilation-buffer-name-function nil |
1133 | 121 "Function to compute the name of a compilation buffer. |
122 The function receives one argument, the name of the major mode of the | |
123 compilation buffer. It should return a string. | |
77886
c90e5f7ef586
(compilation-find-file, compilation-handle-exit): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
77786
diff
changeset
|
124 If nil, compute the name with `(concat \"*\" (downcase major-mode) \"*\")'.") |
71 | 125 |
474 | 126 ;;;###autoload |
418 | 127 (defvar compilation-finish-function nil |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
128 "Function to call when a compilation process finishes. |
418 | 129 It is called with two arguments: the compilation buffer, and a string |
62527
c531c5fa55c5
(compilation-finish-function): Fix defvar.
Luc Teirlinck <teirllm@auburn.edu>
parents:
62518
diff
changeset
|
130 describing how the process finished.") |
62518
88b93ce112d1
(compilation-finish-function): Mark obsolete.
Richard M. Stallman <rms@gnu.org>
parents:
62381
diff
changeset
|
131 |
88b93ce112d1
(compilation-finish-function): Mark obsolete.
Richard M. Stallman <rms@gnu.org>
parents:
62381
diff
changeset
|
132 (make-obsolete-variable 'compilation-finish-function |
77886
c90e5f7ef586
(compilation-find-file, compilation-handle-exit): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
77786
diff
changeset
|
133 "use `compilation-finish-functions', but it works a little differently." |
62518
88b93ce112d1
(compilation-finish-function): Mark obsolete.
Richard M. Stallman <rms@gnu.org>
parents:
62381
diff
changeset
|
134 "22.1") |
418 | 135 |
16042
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
136 ;;;###autoload |
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
137 (defvar compilation-finish-functions nil |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
138 "Functions to call when a compilation process finishes. |
16042
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
139 Each function is called with two arguments: the compilation buffer, |
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
140 and a string describing how the process finished.") |
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
141 |
740 | 142 (defvar compilation-in-progress nil |
143 "List of compilation processes now running.") | |
144 (or (assq 'compilation-in-progress minor-mode-alist) | |
145 (setq minor-mode-alist (cons '(compilation-in-progress " Compiling") | |
146 minor-mode-alist))) | |
147 | |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
148 (defvar compilation-error "error" |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
149 "Stem of message to print when no matches are found.") |
1133 | 150 |
17866
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
151 (defvar compilation-arguments nil |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
152 "Arguments that were given to `compilation-start'.") |
17866
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
153 |
1133 | 154 (defvar compilation-num-errors-found) |
71 | 155 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
156 (defconst compilation-error-regexp-alist-alist |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
157 '((absoft |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
158 "^\\(?:[Ee]rror on \\|[Ww]arning on\\( \\)\\)?[Ll]ine[ \t]+\\([0-9]+\\)[ \t]+\ |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
159 of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2 nil (1)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
160 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
161 (ada |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
162 "\\(warning: .*\\)? at \\([^ \n]+\\):\\([0-9]+\\)$" 2 3 nil (1)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
163 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
164 (aix |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
165 " in line \\([0-9]+\\) of file \\([^ \n]+[^. \n]\\)\\.? " 2 1) |
2461
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
166 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
167 (ant |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
168 "^[ \t]*\\[[^] \n]+\\][ \t]*\\([^: \n]+\\):\\([0-9]+\\):\\(?:\\([0-9]+\\):[0-9]+:[0-9]+:\\)?\ |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
169 \\( warning\\)?" 1 2 3 (4)) |
23866
b1adb6a721dd
(compilation-error-regexp-alist): Insist on a non-digit in the file name.
Karl Heuer <kwzh@gnu.org>
parents:
23865
diff
changeset
|
170 |
82102
5b55db78e6d8
(compilation-error-regexp-alist-alist): Add support for the Maden build tool.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82094
diff
changeset
|
171 (maven |
5b55db78e6d8
(compilation-error-regexp-alist-alist): Add support for the Maden build tool.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82094
diff
changeset
|
172 ;; Maven is a popular build tool for Java. Maven is Free Software. |
5b55db78e6d8
(compilation-error-regexp-alist-alist): Add support for the Maden build tool.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82094
diff
changeset
|
173 "\\(.*?\\):\\[\\([0-9]+\\),\\([0-9]+\\)\\]" 1 2 3) |
82323
3892324d724a
(compilation-start): Pass nil as startfile to comint-exec.
Sam Steingold <sds@gnu.org>
parents:
82251
diff
changeset
|
174 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
175 (bash |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
176 "^\\([^: \n\t]+\\): line \\([0-9]+\\):" 1 2) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
177 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
178 (borland |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
179 "^\\(?:Error\\|Warnin\\(g\\)\\) \\(?:[FEW][0-9]+ \\)?\ |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
180 \\([a-zA-Z]?:?[^:( \t\n]+\\)\ |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
181 \\([0-9]+\\)\\(?:[) \t]\\|:[^0-9\n]\\)" 2 3 nil (1)) |
8398
38513039d818
(compilation-error-regexp-alist): Make separate
Richard M. Stallman <rms@gnu.org>
parents:
8359
diff
changeset
|
182 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
183 (caml |
54742
0a2de4900b34
(compilation-warning-face, compilation-info-face, compilation-skip-threshold)
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54700
diff
changeset
|
184 "^ *File \\(\"?\\)\\([^,\" \n\t<>]+\\)\\1, lines? \\([0-9]+\\)-?\\([0-9]+\\)?\\(?:$\\|,\ |
0a2de4900b34
(compilation-warning-face, compilation-info-face, compilation-skip-threshold)
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54700
diff
changeset
|
185 \\(?: characters? \\([0-9]+\\)-?\\([0-9]+\\)?:\\)?\\([ \n]Warning:\\)?\\)" |
0a2de4900b34
(compilation-warning-face, compilation-info-face, compilation-skip-threshold)
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54700
diff
changeset
|
186 2 (3 . 4) (5 . 6) (7)) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
187 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
188 (comma |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
189 "^\"\\([^,\" \n\t]+\\)\", line \\([0-9]+\\)\ |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
190 \\(?:[(. pos]+\\([0-9]+\\))?\\)?[:.,; (-]\\( warning:\\|[-0-9 ]*(W)\\)?" 1 2 3 (4)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
191 |
55513
6bdc57e42324
(compile): Add universal prefix arg.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55325
diff
changeset
|
192 (edg-1 |
6bdc57e42324
(compile): Add universal prefix arg.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55325
diff
changeset
|
193 "^\\([^ \n]+\\)(\\([0-9]+\\)): \\(?:error\\|warnin\\(g\\)\\|remar\\(k\\)\\)" |
6bdc57e42324
(compile): Add universal prefix arg.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55325
diff
changeset
|
194 1 2 nil (3 . 4)) |
6bdc57e42324
(compile): Add universal prefix arg.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55325
diff
changeset
|
195 (edg-2 |
6bdc57e42324
(compile): Add universal prefix arg.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55325
diff
changeset
|
196 "at line \\([0-9]+\\) of \"\\([^ \n]+\\)\"$" |
6bdc57e42324
(compile): Add universal prefix arg.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55325
diff
changeset
|
197 2 1 nil 0) |
6bdc57e42324
(compile): Add universal prefix arg.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55325
diff
changeset
|
198 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
199 (epc |
55513
6bdc57e42324
(compile): Add universal prefix arg.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55325
diff
changeset
|
200 "^Error [0-9]+ at (\\([0-9]+\\):\\([^)\n]+\\))" 2 1) |
44413
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
201 |
58445
4b0746e87898
(compilation-start): In cd command use substitute-env-vars -- not quite shell compatible but better than nothing.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58256
diff
changeset
|
202 (ftnchek |
4b0746e87898
(compilation-start): In cd command use substitute-env-vars -- not quite shell compatible but better than nothing.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58256
diff
changeset
|
203 "\\(^Warning .*\\)? line[ \n]\\([0-9]+\\)[ \n]\\(?:col \\([0-9]+\\)[ \n]\\)?file \\([^ :;\n]+\\)" |
4b0746e87898
(compilation-start): In cd command use substitute-env-vars -- not quite shell compatible but better than nothing.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58256
diff
changeset
|
204 4 2 3 (1)) |
57731
9621341c0037
(compilation-error-regexp-alist-alist) extend irix for NAG Fortran and add ftnchek-*
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57628
diff
changeset
|
205 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
206 (iar |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
207 "^\"\\(.*\\)\",\\([0-9]+\\)\\s-+\\(?:Error\\|Warnin\\(g\\)\\)\\[[0-9]+\\]:" |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
208 1 2 nil (3)) |
15084
01518892abad
(compilation-error-regexp-alist): Add regexp
Richard M. Stallman <rms@gnu.org>
parents:
14807
diff
changeset
|
209 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
210 (ibm |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
211 "^\\([^( \n\t]+\\)(\\([0-9]+\\):\\([0-9]+\\)) :\ |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
212 \\(?:warnin\\(g\\)\\|informationa\\(l\\)\\)?" 1 2 3 (4 . 5)) |
2461
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
213 |
54941 | 214 ;; fixme: should be `mips' |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
215 (irix |
57731
9621341c0037
(compilation-error-regexp-alist-alist) extend irix for NAG Fortran and add ftnchek-*
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57628
diff
changeset
|
216 "^[-[:alnum:]_/ ]+: \\(?:\\(?:[sS]evere\\|[eE]rror\\|[wW]arnin\\(g\\)\\|[iI]nf\\(o\\)\\)[0-9 ]*: \\)?\ |
9621341c0037
(compilation-error-regexp-alist-alist) extend irix for NAG Fortran and add ftnchek-*
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57628
diff
changeset
|
217 \\([^,\" \n\t]+\\)\\(?:, line\\|:\\) \\([0-9]+\\):" 3 4 nil (1 . 2)) |
2461
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
218 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
219 (java |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
220 "^\\(?:[ \t]+at \\|==[0-9]+== +\\(?:at\\|b\\(y\\)\\)\\).+(\\([^()\n]+\\):\\([0-9]+\\))$" 2 3 nil (1)) |
14048
1a0cc425fb62
Mon Nov 6 18:01:01 1995 Dave Love <d.love@dl.ac.uk>
Roland McGrath <roland@gnu.org>
parents:
14047
diff
changeset
|
221 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
222 (jikes-file |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
223 "^\\(?:Found\\|Issued\\) .* compiling \"\\(.+\\)\":$" 1 nil nil 0) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
224 (jikes-line |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
225 "^ *\\([0-9]+\\)\\.[ \t]+.*\n +\\(<-*>\n\\*\\*\\* \\(?:Error\\|Warnin\\(g\\)\\)\\)" |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
226 nil 1 nil 2 0 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
227 (2 (compilation-face '(3)))) |
2461
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
228 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
229 (gnu |
71789
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
230 ;; I have no idea what this first line is supposed to match, but it |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
231 ;; makes things ambiguous with output such as "foo:344:50:blabla" since |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
232 ;; the "foo" part can match this first line (in which case the file |
72025
7b30bf7651d1
(compilation-error-regexp-alist-alist) <gnu>:
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72001
diff
changeset
|
233 ;; name as "344"). To avoid this, the second line disallows filenames |
7b30bf7651d1
(compilation-error-regexp-alist-alist) <gnu>:
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72001
diff
changeset
|
234 ;; exclusively composed of digits. --Stef |
7b30bf7651d1
(compilation-error-regexp-alist-alist) <gnu>:
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72001
diff
changeset
|
235 ;; Similarly, we get lots of false positives with messages including |
7b30bf7651d1
(compilation-error-regexp-alist-alist) <gnu>:
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72001
diff
changeset
|
236 ;; times of the form "HH:MM:SS" where MM is taken as a line number, so |
7b30bf7651d1
(compilation-error-regexp-alist-alist) <gnu>:
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72001
diff
changeset
|
237 ;; the last line tries to rule out message where the info after the |
7b30bf7651d1
(compilation-error-regexp-alist-alist) <gnu>:
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72001
diff
changeset
|
238 ;; line number starts with "SS". --Stef |
54941 | 239 "^\\(?:[[:alpha:]][-[:alnum:].]+: ?\\)?\ |
72894
26df5bbb5d61
* progmodes/compile.el (compilation-error-regexp-alist-alist):
Chong Yidong <cyd@stupidchicken.com>
parents:
72833
diff
changeset
|
240 \\([0-9]*[^0-9\n]\\(?:[^\n ]\\| [^-\n]\\)*?\\): ?\ |
71667
a1e8435263b7
(compilation-error-regexp-alist-alist) <gnu>:
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71150
diff
changeset
|
241 \\([0-9]+\\)\\(?:\\([.:]\\)\\([0-9]+\\)\\)?\ |
a1e8435263b7
(compilation-error-regexp-alist-alist) <gnu>:
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71150
diff
changeset
|
242 \\(?:-\\([0-9]+\\)?\\(?:\\3\\([0-9]+\\)\\)?\\)?:\ |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
243 \\(?: *\\(\\(?:Future\\|Runtime\\)?[Ww]arning\\|W:\\)\\|\ |
78848
38c9038666da
(compilation-error-regexp-alist-alist):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78749
diff
changeset
|
244 *\\([Ii]nfo\\(?:\\>\\|rmationa?l?\\)\\|I:\\|instantiated from\\|[Nn]ote\\)\\|\ |
72025
7b30bf7651d1
(compilation-error-regexp-alist-alist) <gnu>:
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72001
diff
changeset
|
245 \[0-9]?\\(?:[^0-9\n]\\|$\\)\\|[0-9][0-9][0-9]\\)" |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
246 1 (2 . 5) (4 . 6) (7 . 8)) |
2461
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
247 |
72658
6cf723aafba1
* progmodes/compile.el (compilation-error-regexp-alist-alist):
Chong Yidong <cyd@stupidchicken.com>
parents:
72025
diff
changeset
|
248 ;; The `gnu' style above can incorrectly match gcc's "In file |
6cf723aafba1
* progmodes/compile.el (compilation-error-regexp-alist-alist):
Chong Yidong <cyd@stupidchicken.com>
parents:
72025
diff
changeset
|
249 ;; included from" message, so we process that first. -- cyd |
6cf723aafba1
* progmodes/compile.el (compilation-error-regexp-alist-alist):
Chong Yidong <cyd@stupidchicken.com>
parents:
72025
diff
changeset
|
250 (gcc-include |
6cf723aafba1
* progmodes/compile.el (compilation-error-regexp-alist-alist):
Chong Yidong <cyd@stupidchicken.com>
parents:
72025
diff
changeset
|
251 "^\\(?:In file included\\| \\) from \ |
6cf723aafba1
* progmodes/compile.el (compilation-error-regexp-alist-alist):
Chong Yidong <cyd@stupidchicken.com>
parents:
72025
diff
changeset
|
252 \\(.+\\):\\([0-9]+\\)\\(?:\\(:\\)\\|\\(,\\)\\)?" 1 2 nil (3 . 4)) |
6cf723aafba1
* progmodes/compile.el (compilation-error-regexp-alist-alist):
Chong Yidong <cyd@stupidchicken.com>
parents:
72025
diff
changeset
|
253 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
254 (lcc |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
255 "^\\(?:E\\|\\(W\\)\\), \\([^(\n]+\\)(\\([0-9]+\\),[ \t]*\\([0-9]+\\)" |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
256 2 3 4 (1)) |
11791
34dbef732b27
(compilation-error-regexp-alist): Add regexps for IBM and Cray compilers.
Roland McGrath <roland@gnu.org>
parents:
11618
diff
changeset
|
257 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
258 (makepp |
75290
09d4f4bcd527
Add handling for makepplog.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
75281
diff
changeset
|
259 "^makepp\\(?:\\(?:: warning\\(:\\).*?\\|\\(: Scanning\\|: [LR]e?l?oading makefile\\|: Imported\\|log:.*?\\) \\|: .*?\\)\ |
62964
6b3810cab95a
(compilation-error-regexp-alist-alist): Allow (...) within `...' for makepp messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62859
diff
changeset
|
260 `\\(\\(\\S +?\\)\\(?::\\([0-9]+\\)\\)?\\)['(]\\)" |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
261 4 5 nil (1 . 2) 3 |
62964
6b3810cab95a
(compilation-error-regexp-alist-alist): Allow (...) within `...' for makepp messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
62859
diff
changeset
|
262 ("`\\(\\(\\S +?\\)\\(?::\\([0-9]+\\)\\)?\\)['(]" nil nil |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
263 (2 compilation-info-face) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
264 (3 compilation-line-face nil t) |
54676 | 265 (1 (compilation-error-properties 2 3 nil nil nil 0 nil) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
266 append))) |
12767
287cc74602fa
(compilation-error-regexp-alist): Add regexp for Sun ada.
Roland McGrath <roland@gnu.org>
parents:
12256
diff
changeset
|
267 |
54941 | 268 ;; Should be lint-1, lint-2 (SysV lint) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
269 (mips-1 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
270 " (\\([0-9]+\\)) in \\([^ \n]+\\)" 2 1) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
271 (mips-2 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
272 " in \\([^()\n ]+\\)(\\([0-9]+\\))$" 1 2) |
17582
52780f61eb76
(compilation-error-regexp-alist): Add regexp for Perl -w.
Richard M. Stallman <rms@gnu.org>
parents:
17277
diff
changeset
|
273 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
274 (msft |
87744
90f93d9bc0d9
(compilation-error-regexp-alist-alist):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
87644
diff
changeset
|
275 ;; AFAWK, The message may be a "warning", "error", or "fatal error". |
63299 | 276 "^\\([0-9]+>\\)?\\(\\(?:[a-zA-Z]:\\)?[^:(\t\n]+\\)(\\([0-9]+\\)) \ |
87744
90f93d9bc0d9
(compilation-error-regexp-alist-alist):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
87644
diff
changeset
|
277 : \\(?:warnin\\(g\\)\\|[a-z ]+\\) C[0-9]+:" 2 3 nil (4)) |
18477
270080940256
(compilation-error-regexp-alist): New item, for Oracle compiler.
Richard M. Stallman <rms@gnu.org>
parents:
18273
diff
changeset
|
278 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
279 (oracle |
55990
c6610cef9b75
(compilation-set-window-height): Rearrange the save-* functions because a buffer can have several current point in different windows.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55806
diff
changeset
|
280 "^\\(?:Semantic error\\|Error\\|PCC-[0-9]+:\\).* line \\([0-9]+\\)\ |
c6610cef9b75
(compilation-set-window-height): Rearrange the save-* functions because a buffer can have several current point in different windows.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55806
diff
changeset
|
281 \\(?:\\(?:,\\| at\\)? column \\([0-9]+\\)\\)?\ |
c6610cef9b75
(compilation-set-window-height): Rearrange the save-* functions because a buffer can have several current point in different windows.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55806
diff
changeset
|
282 \\(?:,\\| in\\| of\\)? file \\(.*?\\):?$" |
18477
270080940256
(compilation-error-regexp-alist): New item, for Oracle compiler.
Richard M. Stallman <rms@gnu.org>
parents:
18273
diff
changeset
|
283 3 1 2) |
18984
d2c26a873eb4
(compilation-error-regexp-alist): Add elt for EPC F90.
Richard M. Stallman <rms@gnu.org>
parents:
18619
diff
changeset
|
284 |
87640
e541884bcfee
Kevin Ryde <user42 at zip.com.au>
Glenn Morris <rgm@gnu.org>
parents:
87453
diff
changeset
|
285 ;; "during global destruction": This comes out under "use |
e541884bcfee
Kevin Ryde <user42 at zip.com.au>
Glenn Morris <rgm@gnu.org>
parents:
87453
diff
changeset
|
286 ;; warnings" in recent perl when breaking circular references |
e541884bcfee
Kevin Ryde <user42 at zip.com.au>
Glenn Morris <rgm@gnu.org>
parents:
87453
diff
changeset
|
287 ;; during program or thread exit. |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
288 (perl |
87640
e541884bcfee
Kevin Ryde <user42 at zip.com.au>
Glenn Morris <rgm@gnu.org>
parents:
87453
diff
changeset
|
289 " at \\([^ \n]+\\) line \\([0-9]+\\)\\(?:[,.]\\|$\\| \ |
e541884bcfee
Kevin Ryde <user42 at zip.com.au>
Glenn Morris <rgm@gnu.org>
parents:
87453
diff
changeset
|
290 during global destruction\\.$\\)" 1 2) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
291 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
292 (rxp |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
293 "^\\(?:Error\\|Warnin\\(g\\)\\):.*\n.* line \\([0-9]+\\) char\ |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
294 \\([0-9]+\\) of file://\\(.+\\)" |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
295 4 2 3 (1)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
296 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
297 (sparc-pascal-file |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
298 "^\\w\\w\\w \\w\\w\\w +[0-3]?[0-9] +[0-2][0-9]:[0-5][0-9]:[0-5][0-9]\ |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
299 [12][09][0-9][0-9] +\\(.*\\):$" |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
300 1 nil nil 0) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
301 (sparc-pascal-line |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
302 "^\\(\\(?:E\\|\\(w\\)\\) +[0-9]+\\) line \\([0-9]+\\) - " |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
303 nil 3 nil (2) nil (1 (compilation-face '(2)))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
304 (sparc-pascal-example |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
305 "^ +\\([0-9]+\\) +.*\n\\(\\(?:e\\|\\(w\\)\\) [0-9]+\\)-+" |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
306 nil 1 nil (3) nil (2 (compilation-face '(3)))) |
20187
0ee26e03e911
(compilation-error-regexp-alist):
Karl Heuer <kwzh@gnu.org>
parents:
20059
diff
changeset
|
307 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
308 (sun |
54941 | 309 ": \\(?:ERROR\\|WARNIN\\(G\\)\\|REMAR\\(K\\)\\) \\(?:[[:alnum:] ]+, \\)?\ |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
310 File = \\(.+\\), Line = \\([0-9]+\\)\\(?:, Column = \\([0-9]+\\)\\)?" |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
311 3 4 5 (1 . 2)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
312 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
313 (sun-ada |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
314 "^\\([^, \n\t]+\\), line \\([0-9]+\\), char \\([0-9]+\\)[:., \(-]" 1 2 3) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
315 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
316 (4bsd |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
317 "\\(?:^\\|:: \\|\\S ( \\)\\(/[^ \n\t()]+\\)(\\([0-9]+\\))\ |
61425
6dfecf2a19ab
* compilation.txt (symbol): Added gcov-file
Masatake YAMATO <jet@gyve.org>
parents:
61394
diff
changeset
|
318 \\(?:: \\(warning:\\)?\\|$\\| ),\\)" 1 2 nil (3)) |
6dfecf2a19ab
* compilation.txt (symbol): Added gcov-file
Masatake YAMATO <jet@gyve.org>
parents:
61394
diff
changeset
|
319 |
6dfecf2a19ab
* compilation.txt (symbol): Added gcov-file
Masatake YAMATO <jet@gyve.org>
parents:
61394
diff
changeset
|
320 (gcov-file |
71789
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
321 "^ *-: *\\(0\\):Source:\\(.+\\)$" |
71150
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
322 2 1 nil 0 nil |
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
323 (1 compilation-line-face prepend) (2 compilation-info-face prepend)) |
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
324 (gcov-header |
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
325 "^ *-: *\\(0\\):\\(?:Object\\|Graph\\|Data\\|Runs\\|Programs\\):.+$" |
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
326 nil 1 nil 0 nil |
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
327 (1 compilation-line-face prepend)) |
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
328 ;; Underlines over all lines of gcov output are too uncomfortable to read. |
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
329 ;; However, hyperlinks embedded in the lines are useful. |
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
330 ;; So I put default face on the lines; and then put |
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
331 ;; compilation-*-face by manually to eliminate the underlines. |
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
332 ;; The hyperlinks are still effective. |
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
333 (gcov-nomark |
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
334 "^ *-: *\\([1-9]\\|[0-9]\\{2,\\}\\):.*$" |
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
335 nil 1 nil 0 nil |
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
336 (0 'default t) |
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
337 (1 compilation-line-face prepend)) |
61425
6dfecf2a19ab
* compilation.txt (symbol): Added gcov-file
Masatake YAMATO <jet@gyve.org>
parents:
61394
diff
changeset
|
338 (gcov-called-line |
71150
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
339 "^ *\\([0-9]+\\): *\\([0-9]+\\):.*$" |
71789
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
340 nil 2 nil 0 nil |
71150
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
341 (0 'default t) |
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
342 (1 compilation-info-face prepend) (2 compilation-line-face prepend)) |
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
343 (gcov-never-called |
71789
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
344 "^ *\\(#####\\): *\\([0-9]+\\):.*$" |
71150
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
345 nil 2 nil 2 nil |
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
346 (0 'default t) |
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
347 (1 compilation-error-face prepend) (2 compilation-line-face prepend)) |
86046
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
348 |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
349 (compilation-perl--Pod::Checker |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
350 ;; podchecker error messages, per Pod::Checker. |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
351 ;; The style is from the Pod::Checker::poderror() function, eg. |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
352 ;; *** ERROR: Spurious text after =cut at line 193 in file foo.pm |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
353 ;; |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
354 ;; Plus end_pod() can give "at line EOF" instead of a |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
355 ;; number, so for that match "on line N" which is the |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
356 ;; originating spot, eg. |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
357 ;; *** ERROR: =over on line 37 without closing =back at line EOF in file bar.pm |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
358 ;; |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
359 ;; Plus command() can give both "on line N" and "at line N"; |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
360 ;; the latter is desired and is matched because the .* is |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
361 ;; greedy. |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
362 ;; *** ERROR: =over on line 1 without closing =back (at head1) at line 3 in file x.pod |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
363 ;; |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
364 "^\\*\\*\\* \\(?:ERROR\\|\\(WARNING\\)\\).* \\(?:at\\|on\\) line \ |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
365 \\([0-9]+\\) \\(?:.* \\)?in file \\([^ \t\n]+\\)" |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
366 3 2 nil (1)) |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
367 (compilation-perl--Test |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
368 ;; perl Test module error messages. |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
369 ;; Style per the ok() function "$context", eg. |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
370 ;; # Failed test 1 in foo.t at line 6 |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
371 ;; |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
372 "^# Failed test [0-9]+ in \\([^ \t\r\n]+\\) at line \\([0-9]+\\)" |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
373 1 2) |
87644
bd942570a8d9
Kevin Ryde <user42 at zip.com.au>:
Glenn Morris <rgm@gnu.org>
parents:
87640
diff
changeset
|
374 (compilation-perl--Test2 |
bd942570a8d9
Kevin Ryde <user42 at zip.com.au>:
Glenn Morris <rgm@gnu.org>
parents:
87640
diff
changeset
|
375 ;; Or when comparing got/want values, |
bd942570a8d9
Kevin Ryde <user42 at zip.com.au>:
Glenn Morris <rgm@gnu.org>
parents:
87640
diff
changeset
|
376 ;; # Test 2 got: "xx" (t-compilation-perl-2.t at line 10) |
bd942570a8d9
Kevin Ryde <user42 at zip.com.au>:
Glenn Morris <rgm@gnu.org>
parents:
87640
diff
changeset
|
377 ;; |
bd942570a8d9
Kevin Ryde <user42 at zip.com.au>:
Glenn Morris <rgm@gnu.org>
parents:
87640
diff
changeset
|
378 ;; And under Test::Harness they're preceded by progress stuff with |
bd942570a8d9
Kevin Ryde <user42 at zip.com.au>:
Glenn Morris <rgm@gnu.org>
parents:
87640
diff
changeset
|
379 ;; \r and "NOK", |
bd942570a8d9
Kevin Ryde <user42 at zip.com.au>:
Glenn Morris <rgm@gnu.org>
parents:
87640
diff
changeset
|
380 ;; ... NOK 1# Test 1 got: "1234" (t/foo.t at line 46) |
bd942570a8d9
Kevin Ryde <user42 at zip.com.au>:
Glenn Morris <rgm@gnu.org>
parents:
87640
diff
changeset
|
381 ;; |
bd942570a8d9
Kevin Ryde <user42 at zip.com.au>:
Glenn Morris <rgm@gnu.org>
parents:
87640
diff
changeset
|
382 "^\\(.*NOK.*\\)?# Test [0-9]+ got:.* (\\([^ \t\r\n]+\\) at line \ |
bd942570a8d9
Kevin Ryde <user42 at zip.com.au>:
Glenn Morris <rgm@gnu.org>
parents:
87640
diff
changeset
|
383 \\([0-9]+\\))" |
bd942570a8d9
Kevin Ryde <user42 at zip.com.au>:
Glenn Morris <rgm@gnu.org>
parents:
87640
diff
changeset
|
384 2 3) |
86046
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
385 (compilation-perl--Test::Harness |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
386 ;; perl Test::Harness output, eg. |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
387 ;; NOK 1# Test 1 got: "1234" (t/foo.t at line 46) |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
388 ;; |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
389 ;; Test::Harness is slightly designed for tty output, since |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
390 ;; it prints CRs to overwrite progress messages, but if you |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
391 ;; run it in with M-x compile this pattern can at least step |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
392 ;; through the failures. |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
393 ;; |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
394 "^.*NOK.* \\([^ \t\r\n]+\\) at line \\([0-9]+\\)" |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
395 1 2) |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
396 (compilation-weblint |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
397 ;; The style comes from HTML::Lint::Error::as_string(), eg. |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
398 ;; index.html (13:1) Unknown element <fdjsk> |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
399 ;; |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
400 ;; The pattern only matches filenames without spaces, since that |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
401 ;; should be usual and should help reduce the chance of a false |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
402 ;; match of a message from some unrelated program. |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
403 ;; |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
404 ;; This message style is quite close to the "ibm" entry which is |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
405 ;; for IBM C, though that ibm bit doesn't put a space after the |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
406 ;; filename. |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
407 ;; |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
408 "^\\([^ \t\r\n(]+\\) (\\([0-9]+\\):\\([0-9]+\\)) " |
b182750e235e
Insert patterns from compilation-perl.el and compilation-weblint.el files.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
85478
diff
changeset
|
409 1 2 3) |
71150
07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
Masatake YAMATO <jet@gyve.org>
parents:
71106
diff
changeset
|
410 ) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
411 "Alist of values for `compilation-error-regexp-alist'.") |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
412 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
413 (defcustom compilation-error-regexp-alist |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
414 (mapcar 'car compilation-error-regexp-alist-alist) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
415 "Alist that specifies how to match errors in compiler output. |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
416 On GNU and Unix, any string is a valid filename, so these |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
417 matchers must make some common sense assumptions, which catch |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
418 normal cases. A shorter list will be lighter on resource usage. |
41843
ab6cfeb406ab
(compilation-error-regexp-alist): Added regexps for RXP.
Miles Bader <miles@gnu.org>
parents:
41037
diff
changeset
|
419 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
420 Instead of an alist element, you can use a symbol, which is |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
421 looked up in `compilation-error-regexp-alist-alist'. You can see |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
422 the predefined symbols and their effects in the file |
54941 | 423 `etc/compilation.txt' (linked below if you are customizing this). |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
424 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
425 Each elt has the form (REGEXP FILE [LINE COLUMN TYPE HYPERLINK |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
426 HIGHLIGHT...]). If REGEXP matches, the FILE'th subexpression |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
427 gives the file name, and the LINE'th subexpression gives the line |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
428 number. The COLUMN'th subexpression gives the column number on |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
429 that line. |
52219
cf7c59950b0a
2003-08-14 Thu Jari Aalto <jari.aalto@poboxes.com>
Alex Schroeder <alex@gnu.org>
parents:
52061
diff
changeset
|
430 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
431 If FILE, LINE or COLUMN are nil or that index didn't match, that |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
432 information is not present on the matched line. In that case the |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
433 file name is assumed to be the same as the previous one in the |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
434 buffer, line number defaults to 1 and column defaults to |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
435 beginning of line's indentation. |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
436 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
437 FILE can also have the form (FILE FORMAT...), where the FORMATs |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
438 \(e.g. \"%s.c\") will be applied in turn to the recognized file |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
439 name, until a file of that name is found. Or FILE can also be a |
67516
6355aeca71ad
(compilation-error-regexp-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
67126
diff
changeset
|
440 function that returns (FILENAME) or (RELATIVE-FILENAME . DIRNAME). |
6355aeca71ad
(compilation-error-regexp-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
67126
diff
changeset
|
441 In the former case, FILENAME may be relative or absolute. |
52219
cf7c59950b0a
2003-08-14 Thu Jari Aalto <jari.aalto@poboxes.com>
Alex Schroeder <alex@gnu.org>
parents:
52061
diff
changeset
|
442 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
443 LINE can also be of the form (LINE . END-LINE) meaning a range |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
444 of lines. COLUMN can also be of the form (COLUMN . END-COLUMN) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
445 meaning a range of columns starting on LINE and ending on |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
446 END-LINE, if that matched. |
52219
cf7c59950b0a
2003-08-14 Thu Jari Aalto <jari.aalto@poboxes.com>
Alex Schroeder <alex@gnu.org>
parents:
52061
diff
changeset
|
447 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
448 TYPE is 2 or nil for a real error or 1 for warning or 0 for info. |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
449 TYPE can also be of the form (WARNING . INFO). In that case this |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
450 will be equivalent to 1 if the WARNING'th subexpression matched |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
451 or else equivalent to 0 if the INFO'th subexpression matched. |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
452 See `compilation-error-face', `compilation-warning-face', |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
453 `compilation-info-face' and `compilation-skip-threshold'. |
26229
11ac69b74132
(compilation-error-regexp-alist): Recognize
Gerd Moellmann <gerd@gnu.org>
parents:
26222
diff
changeset
|
454 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
455 What matched the HYPERLINK'th subexpression has `mouse-face' and |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
456 `compilation-message-face' applied. If this is nil, the text |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
457 matched by the whole REGEXP becomes the hyperlink. |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
458 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
459 Additional HIGHLIGHTs as described under `font-lock-keywords' can |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
460 be added." |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
461 :type `(set :menu-tag "Pick" |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
462 ,@(mapcar (lambda (elt) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
463 (list 'const (car elt))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
464 compilation-error-regexp-alist-alist)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
465 :link `(file-link :tag "example file" |
55806
5e730ddfd23a
(compilation-error-regexp-alist): Use expand-file-name and data-directory.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55603
diff
changeset
|
466 ,(expand-file-name "compilation.txt" data-directory)) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
467 :group 'compilation) |
71 | 468 |
76728
712ae35a87ce
(compilation-start): Save compilation-directory rather than
Chong Yidong <cyd@stupidchicken.com>
parents:
76532
diff
changeset
|
469 ;;;###autoload(put 'compilation-directory 'safe-local-variable 'stringp) |
53978
227623e374e8
(compilation-directory): New defvar.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53493
diff
changeset
|
470 (defvar compilation-directory nil |
227623e374e8
(compilation-directory): New defvar.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53493
diff
changeset
|
471 "Directory to restore to when doing `recompile'.") |
227623e374e8
(compilation-directory): New defvar.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53493
diff
changeset
|
472 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
473 (defvar compilation-directory-matcher |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
474 '("\\(?:Entering\\|Leavin\\(g\\)\\) directory `\\(.+\\)'$" (2 . 1)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
475 "A list for tracking when directories are entered or left. |
73913
2afcd781ea33
(compilation-directory-matcher): Improve previous doc fix.
Glenn Morris <rgm@gnu.org>
parents:
73881
diff
changeset
|
476 If nil, do not track directories, e.g. if all file names are absolute. The |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
477 first element is the REGEXP matching these messages. It can match any number |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
478 of variants, e.g. different languages. The remaining elements are all of the |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
479 form (DIR . LEAVE). If for any one of these the DIR'th subexpression |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
480 matches, that is a directory name. If LEAVE is nil or the corresponding |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
481 LEAVE'th subexpression doesn't match, this message is about going into another |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
482 directory. If it does match anything, this message is about going back to the |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
483 directory we were in before the last entering message. If you change this, |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
484 you may also want to change `compilation-page-delimiter'.") |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
485 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
486 (defvar compilation-page-delimiter |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
487 "^\\(?:\f\\|.*\\(?:Entering\\|Leaving\\) directory `.+'\n\\)+" |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
488 "Value of `page-delimiter' in Compilation mode.") |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
489 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
490 (defvar compilation-mode-font-lock-keywords |
72025
7b30bf7651d1
(compilation-error-regexp-alist-alist) <gnu>:
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72001
diff
changeset
|
491 '(;; configure output lines. |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
492 ("^[Cc]hecking \\(?:[Ff]or \\|[Ii]f \\|[Ww]hether \\(?:to \\)?\\)?\\(.+\\)\\.\\.\\. *\\(?:(cached) *\\)?\\(\\(yes\\(?: .+\\)?\\)\\|no\\|\\(.*\\)\\)$" |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
493 (1 font-lock-variable-name-face) |
64863
2838cf662e70
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64739
diff
changeset
|
494 (2 (compilation-face '(4 . 3)))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
495 ;; Command output lines. Recognize `make[n]:' lines too. |
54941 | 496 ("^\\([[:alnum:]_/.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:" |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
497 (1 font-lock-function-name-face) (3 compilation-line-face nil t)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
498 (" --?o\\(?:utfile\\|utput\\)?[= ]?\\(\\S +\\)" . 1) |
71742
fcbb34640a44
(compilation-mode-font-lock-keywords): Don't highlight start/end markers
Romain Francoise <romain@orebokech.com>
parents:
71667
diff
changeset
|
499 ("^Compilation \\(finished\\).*" |
fcbb34640a44
(compilation-mode-font-lock-keywords): Don't highlight start/end markers
Romain Francoise <romain@orebokech.com>
parents:
71667
diff
changeset
|
500 (0 '(face nil message nil help-echo nil mouse-face nil) t) |
64943
0734dceb92d1
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64926
diff
changeset
|
501 (1 compilation-info-face)) |
72025
7b30bf7651d1
(compilation-error-regexp-alist-alist) <gnu>:
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72001
diff
changeset
|
502 ("^Compilation \\(exited abnormally\\|interrupt\\|killed\\|terminated\\|segmentation fault\\)\\(?:.*with code \\([0-9]+\\)\\)?.*" |
71742
fcbb34640a44
(compilation-mode-font-lock-keywords): Don't highlight start/end markers
Romain Francoise <romain@orebokech.com>
parents:
71667
diff
changeset
|
503 (0 '(face nil message nil help-echo nil mouse-face nil) t) |
64943
0734dceb92d1
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64926
diff
changeset
|
504 (1 compilation-error-face) |
0734dceb92d1
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64926
diff
changeset
|
505 (2 compilation-error-face nil t))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
506 "Additional things to highlight in Compilation mode. |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
507 This gets tacked on the end of the generated expressions.") |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
508 |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
509 (defvar compilation-highlight-regexp t |
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
510 "Regexp matching part of visited source lines to highlight temporarily. |
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
511 Highlight entire line if t; don't highlight source lines if nil.") |
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
512 |
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
513 (defvar compilation-highlight-overlay nil |
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
514 "Overlay used to temporarily highlight compilation matches.") |
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
515 |
23263
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
516 (defcustom compilation-error-screen-columns t |
81795
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
517 "If non-nil, column numbers in error messages are screen columns. |
23263
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
518 Otherwise they are interpreted as character positions, with |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
519 each character occupying one column. |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
520 The default is to use screen columns, which requires that the compilation |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
521 program and Emacs agree about the display width of the characters, |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
522 especially the TAB character." |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
523 :type 'boolean |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
524 :group 'compilation |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
525 :version "20.4") |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
526 |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
527 (defcustom compilation-read-command t |
81795
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
528 "Non-nil means \\[compile] reads the compilation command to use. |
26222 | 529 Otherwise, \\[compile] just uses the value of `compile-command'." |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
530 :type 'boolean |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
531 :group 'compilation) |
5406
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
532 |
19766
0790c7dab24d
(compilation-ask-about-save): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
19616
diff
changeset
|
533 ;;;###autoload |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
534 (defcustom compilation-ask-about-save t |
81795
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
535 "Non-nil means \\[compile] asks which buffers to save before compiling. |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
536 Otherwise, it saves all modified buffers without asking." |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
537 :type 'boolean |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
538 :group 'compilation) |
5406
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
539 |
569 | 540 ;;;###autoload |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
541 (defcustom compilation-search-path '(nil) |
81795
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
542 "List of directories to search for source files named in error messages. |
418 | 543 Elements should be directory names, not file names of directories. |
77886
c90e5f7ef586
(compilation-find-file, compilation-handle-exit): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
77786
diff
changeset
|
544 The value nil as an element means to try the default directory." |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
545 :type '(repeat (choice (const :tag "Default" nil) |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
546 (string :tag "Directory"))) |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
547 :group 'compilation) |
71 | 548 |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
549 ;;;###autoload |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
550 (defcustom compile-command "make -k " |
81795
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
551 "Last shell command used to do a compilation; default for next compilation. |
71 | 552 |
553 Sometimes it is useful for files to supply local values for this variable. | |
554 You might also use mode hooks to specify it in certain modes, like this: | |
555 | |
19007
1606d5205bbc
(compile-command): More doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18987
diff
changeset
|
556 (add-hook 'c-mode-hook |
1606d5205bbc
(compile-command): More doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18987
diff
changeset
|
557 (lambda () |
1606d5205bbc
(compile-command): More doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18987
diff
changeset
|
558 (unless (or (file-exists-p \"makefile\") |
1606d5205bbc
(compile-command): More doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18987
diff
changeset
|
559 (file-exists-p \"Makefile\")) |
38493
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
560 (set (make-local-variable 'compile-command) |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
561 (concat \"make -k \" |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
562 (file-name-sans-extension buffer-file-name))))))" |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
563 :type 'string |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
564 :group 'compilation) |
70590
63b772bfba93
Move `safe-local-variable' declarations to the respective files.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69765
diff
changeset
|
565 ;;;###autoload(put 'compile-command 'safe-local-variable 'stringp) |
71 | 566 |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
567 ;;;###autoload |
65055
0b9598224a95
(compilation-disable-input): Default to nil.
Richard M. Stallman <rms@gnu.org>
parents:
65052
diff
changeset
|
568 (defcustom compilation-disable-input nil |
81795
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
569 "If non-nil, send end-of-file as compilation process input. |
65052
4ac20fef0d09
(compilation-disable-input): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
64993
diff
changeset
|
570 This only affects platforms that support asynchronous processes (see |
65070
5a147188ccac
(compilation-disable-input): Doc fix.
Juri Linkov <juri@jurta.org>
parents:
65055
diff
changeset
|
571 `start-process'); synchronous compilation processes never accept input." |
65052
4ac20fef0d09
(compilation-disable-input): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
64993
diff
changeset
|
572 :type 'boolean |
4ac20fef0d09
(compilation-disable-input): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
64993
diff
changeset
|
573 :group 'compilation |
4ac20fef0d09
(compilation-disable-input): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
64993
diff
changeset
|
574 :version "22.1") |
4ac20fef0d09
(compilation-disable-input): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
64993
diff
changeset
|
575 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
576 ;; A weak per-compilation-buffer hash indexed by (FILENAME . DIRECTORY). Each |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
577 ;; value is a FILE-STRUCTURE as described above, with the car eq to the hash |
74157 | 578 ;; key. This holds the tree seen from root, for storing new nodes. |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
579 (defvar compilation-locs ()) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
580 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
581 (defvar compilation-debug nil |
54941 | 582 "*Set this to t before creating a *compilation* buffer. |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
583 Then every error line will have a debug text property with the matcher that |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
584 fit this line and the match data. Use `describe-text-properties'.") |
418 | 585 |
12920
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
586 (defvar compilation-exit-message-function nil "\ |
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
587 If non-nil, called when a compilation process dies to return a status message. |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
588 This should be a function of three arguments: process status, exit status, |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
589 and exit message; it returns a cons (MESSAGE . MODELINE) of the strings to |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
590 write into the compilation buffer, and to put in its mode line.") |
12920
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
591 |
52061
d11e55dcc374
2003-07-28 Tak Ota <Takaaki.Ota@am.sony.com> (tiny change)
John Paul Wallington <jpw@pobox.com>
parents:
51797
diff
changeset
|
592 (defvar compilation-environment nil |
d11e55dcc374
2003-07-28 Tak Ota <Takaaki.Ota@am.sony.com> (tiny change)
John Paul Wallington <jpw@pobox.com>
parents:
51797
diff
changeset
|
593 "*List of environment variables for compilation to inherit. |
d11e55dcc374
2003-07-28 Tak Ota <Takaaki.Ota@am.sony.com> (tiny change)
John Paul Wallington <jpw@pobox.com>
parents:
51797
diff
changeset
|
594 Each element should be a string of the form ENVVARNAME=VALUE. |
d11e55dcc374
2003-07-28 Tak Ota <Takaaki.Ota@am.sony.com> (tiny change)
John Paul Wallington <jpw@pobox.com>
parents:
51797
diff
changeset
|
595 This list is temporarily prepended to `process-environment' prior to |
d11e55dcc374
2003-07-28 Tak Ota <Takaaki.Ota@am.sony.com> (tiny change)
John Paul Wallington <jpw@pobox.com>
parents:
51797
diff
changeset
|
596 starting the compilation process.") |
d11e55dcc374
2003-07-28 Tak Ota <Takaaki.Ota@am.sony.com> (tiny change)
John Paul Wallington <jpw@pobox.com>
parents:
51797
diff
changeset
|
597 |
864
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
598 ;; History of compile commands. |
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
599 (defvar compile-history nil) |
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
600 |
64739
acd7896a76ba
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64727
diff
changeset
|
601 (defface compilation-error |
acd7896a76ba
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64727
diff
changeset
|
602 '((t :inherit font-lock-warning-face)) |
acd7896a76ba
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64727
diff
changeset
|
603 "Face used to highlight compiler errors." |
65734
77732e123c4e
(compilation-error, compilation-warning)
Juri Linkov <juri@jurta.org>
parents:
65695
diff
changeset
|
604 :group 'compilation |
64739
acd7896a76ba
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64727
diff
changeset
|
605 :version "22.1") |
acd7896a76ba
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64727
diff
changeset
|
606 |
63196
72620d384ae2
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-367
Miles Bader <miles@gnu.org>
parents:
63057
diff
changeset
|
607 (defface compilation-warning |
55603
706a50524d5f
(compilation-warning-face, compilation-info-face): Use min-colors.
Eli Zaretskii <eliz@gnu.org>
parents:
55553
diff
changeset
|
608 '((((class color) (min-colors 16)) (:foreground "Orange" :weight bold)) |
706a50524d5f
(compilation-warning-face, compilation-info-face): Use min-colors.
Eli Zaretskii <eliz@gnu.org>
parents:
55553
diff
changeset
|
609 (((class color)) (:foreground "cyan" :weight bold)) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
610 (t (:weight bold))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
611 "Face used to highlight compiler warnings." |
65734
77732e123c4e
(compilation-error, compilation-warning)
Juri Linkov <juri@jurta.org>
parents:
65695
diff
changeset
|
612 :group 'compilation |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59773
diff
changeset
|
613 :version "22.1") |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
614 |
63196
72620d384ae2
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-367
Miles Bader <miles@gnu.org>
parents:
63057
diff
changeset
|
615 (defface compilation-info |
56877
e2576d47dd53
(compilation-buffer-name): Compare major
Juri Linkov <juri@jurta.org>
parents:
56864
diff
changeset
|
616 '((((class color) (min-colors 16) (background light)) |
55603
706a50524d5f
(compilation-warning-face, compilation-info-face): Use min-colors.
Eli Zaretskii <eliz@gnu.org>
parents:
55553
diff
changeset
|
617 (:foreground "Green3" :weight bold)) |
61394
31aa9a390538
* mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents:
61362
diff
changeset
|
618 (((class color) (min-colors 88) (background dark)) |
31aa9a390538
* mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents:
61362
diff
changeset
|
619 (:foreground "Green1" :weight bold)) |
56877
e2576d47dd53
(compilation-buffer-name): Compare major
Juri Linkov <juri@jurta.org>
parents:
56864
diff
changeset
|
620 (((class color) (min-colors 16) (background dark)) |
55603
706a50524d5f
(compilation-warning-face, compilation-info-face): Use min-colors.
Eli Zaretskii <eliz@gnu.org>
parents:
55553
diff
changeset
|
621 (:foreground "Green" :weight bold)) |
706a50524d5f
(compilation-warning-face, compilation-info-face): Use min-colors.
Eli Zaretskii <eliz@gnu.org>
parents:
55553
diff
changeset
|
622 (((class color)) (:foreground "green" :weight bold)) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
623 (t (:weight bold))) |
64739
acd7896a76ba
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64727
diff
changeset
|
624 "Face used to highlight compiler information." |
65734
77732e123c4e
(compilation-error, compilation-warning)
Juri Linkov <juri@jurta.org>
parents:
65695
diff
changeset
|
625 :group 'compilation |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59773
diff
changeset
|
626 :version "22.1") |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
627 |
63815
015343385a78
(compilation-next-error-function):
Richard M. Stallman <rms@gnu.org>
parents:
63299
diff
changeset
|
628 (defface compilation-line-number |
64863
2838cf662e70
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64739
diff
changeset
|
629 '((t :inherit font-lock-variable-name-face)) |
64739
acd7896a76ba
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64727
diff
changeset
|
630 "Face for displaying line numbers in compiler messages." |
65734
77732e123c4e
(compilation-error, compilation-warning)
Juri Linkov <juri@jurta.org>
parents:
65695
diff
changeset
|
631 :group 'compilation |
63815
015343385a78
(compilation-next-error-function):
Richard M. Stallman <rms@gnu.org>
parents:
63299
diff
changeset
|
632 :version "22.1") |
015343385a78
(compilation-next-error-function):
Richard M. Stallman <rms@gnu.org>
parents:
63299
diff
changeset
|
633 |
015343385a78
(compilation-next-error-function):
Richard M. Stallman <rms@gnu.org>
parents:
63299
diff
changeset
|
634 (defface compilation-column-number |
64863
2838cf662e70
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64739
diff
changeset
|
635 '((t :inherit font-lock-type-face)) |
64739
acd7896a76ba
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64727
diff
changeset
|
636 "Face for displaying column numbers in compiler messages." |
65734
77732e123c4e
(compilation-error, compilation-warning)
Juri Linkov <juri@jurta.org>
parents:
65695
diff
changeset
|
637 :group 'compilation |
63815
015343385a78
(compilation-next-error-function):
Richard M. Stallman <rms@gnu.org>
parents:
63299
diff
changeset
|
638 :version "22.1") |
015343385a78
(compilation-next-error-function):
Richard M. Stallman <rms@gnu.org>
parents:
63299
diff
changeset
|
639 |
69765
1a3385f6eeec
(compilation-message-face): Make it defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
68773
diff
changeset
|
640 (defcustom compilation-message-face 'underline |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
641 "Face name to use for whole messages. |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
642 Faces `compilation-error-face', `compilation-warning-face', |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
643 `compilation-info-face', `compilation-line-face' and |
69765
1a3385f6eeec
(compilation-message-face): Make it defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
68773
diff
changeset
|
644 `compilation-column-face' get prepended to this, when applicable." |
1a3385f6eeec
(compilation-message-face): Make it defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
68773
diff
changeset
|
645 :type 'face |
1a3385f6eeec
(compilation-message-face): Make it defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
68773
diff
changeset
|
646 :group 'compilation |
1a3385f6eeec
(compilation-message-face): Make it defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
68773
diff
changeset
|
647 :version "22.1") |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
648 |
64863
2838cf662e70
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64739
diff
changeset
|
649 (defvar compilation-error-face 'compilation-error |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
650 "Face name to use for file name in error messages.") |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
651 |
64863
2838cf662e70
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64739
diff
changeset
|
652 (defvar compilation-warning-face 'compilation-warning |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
653 "Face name to use for file name in warning messages.") |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
654 |
64863
2838cf662e70
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64739
diff
changeset
|
655 (defvar compilation-info-face 'compilation-info |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
656 "Face name to use for file name in informational messages.") |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
657 |
63815
015343385a78
(compilation-next-error-function):
Richard M. Stallman <rms@gnu.org>
parents:
63299
diff
changeset
|
658 (defvar compilation-line-face 'compilation-line-number |
64863
2838cf662e70
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64739
diff
changeset
|
659 "Face name to use for line numbers in compiler messages.") |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
660 |
63815
015343385a78
(compilation-next-error-function):
Richard M. Stallman <rms@gnu.org>
parents:
63299
diff
changeset
|
661 (defvar compilation-column-face 'compilation-column-number |
64739
acd7896a76ba
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64727
diff
changeset
|
662 "Face name to use for column numbers in compiler messages.") |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
663 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
664 ;; same faces as dired uses |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
665 (defvar compilation-enter-directory-face 'font-lock-function-name-face |
64739
acd7896a76ba
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64727
diff
changeset
|
666 "Face name to use for entering directory messages.") |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
667 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
668 (defvar compilation-leave-directory-face 'font-lock-type-face |
64739
acd7896a76ba
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64727
diff
changeset
|
669 "Face name to use for leaving directory messages.") |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
670 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
671 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
672 |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
673 ;; Used for compatibility with the old compile.el. |
55237
37068e6cd644
(compilation-last-buffer): Add var alias.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55227
diff
changeset
|
674 (defvaralias 'compilation-last-buffer 'next-error-last-buffer) |
54941 | 675 (defvar compilation-parsing-end (make-marker)) |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
676 (defvar compilation-parse-errors-function nil) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
677 (defvar compilation-error-list nil) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
678 (defvar compilation-old-error-list nil) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
679 |
81795
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
680 (defcustom compilation-auto-jump-to-first-error nil |
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
681 "If non-nil, automatically jump to the first error after `compile'." |
82004
af49557163c6
(compilation-auto-jump-to-first-error): Add
Dan Nicolaescu <dann@ics.uci.edu>
parents:
81999
diff
changeset
|
682 :type 'boolean |
af49557163c6
(compilation-auto-jump-to-first-error): Add
Dan Nicolaescu <dann@ics.uci.edu>
parents:
81999
diff
changeset
|
683 :group 'compilation |
af49557163c6
(compilation-auto-jump-to-first-error): Add
Dan Nicolaescu <dann@ics.uci.edu>
parents:
81999
diff
changeset
|
684 :version "23.1") |
81795
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
685 |
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
686 (defvar compilation-auto-jump-to-next nil |
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
687 "If non-nil, automatically jump to the next error encountered.") |
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
688 (make-variable-buffer-local 'compilation-auto-jump-to-next) |
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
689 |
85478
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
690 |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
691 (defvar compilation-skip-to-next-location t |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
692 "*If non-nil, skip multiple error messages for the same source location.") |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
693 |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
694 (defcustom compilation-skip-threshold 1 |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
695 "Compilation motion commands skip less important messages. |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
696 The value can be either 2 -- skip anything less than error, 1 -- |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
697 skip anything less than warning or 0 -- don't skip any messages. |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
698 Note that all messages not positively identified as warning or |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
699 info, are considered errors." |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
700 :type '(choice (const :tag "Warnings and info" 2) |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
701 (const :tag "Info" 1) |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
702 (const :tag "None" 0)) |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
703 :group 'compilation |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
704 :version "22.1") |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
705 |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
706 (defcustom compilation-skip-visited nil |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
707 "Compilation motion commands skip visited messages if this is t. |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
708 Visited messages are ones for which the file, line and column have been jumped |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
709 to from the current content in the current compilation buffer, even if it was |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
710 from a different message." |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
711 :type 'boolean |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
712 :group 'compilation |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
713 :version "22.1") |
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85366
diff
changeset
|
714 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
715 (defun compilation-face (type) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
716 (or (and (car type) (match-end (car type)) compilation-warning-face) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
717 (and (cdr type) (match-end (cdr type)) compilation-info-face) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
718 compilation-error-face)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
719 |
60353
ee6146798de1
Add comment for compilation-directory-properties.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
59996
diff
changeset
|
720 ;; Internal function for calculating the text properties of a directory |
ee6146798de1
Add comment for compilation-directory-properties.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
59996
diff
changeset
|
721 ;; change message. The directory property is important, because it is |
ee6146798de1
Add comment for compilation-directory-properties.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
59996
diff
changeset
|
722 ;; the stack of nested enter-messages. Relative filenames on the following |
ee6146798de1
Add comment for compilation-directory-properties.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
59996
diff
changeset
|
723 ;; lines are relative to the top of the stack. |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
724 (defun compilation-directory-properties (idx leave) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
725 (if leave (setq leave (match-end leave))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
726 ;; find previous stack, and push onto it, or if `leave' pop it |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
727 (let ((dir (previous-single-property-change (point) 'directory))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
728 (setq dir (if dir (or (get-text-property (1- dir) 'directory) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
729 (get-text-property dir 'directory)))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
730 `(face ,(if leave |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
731 compilation-leave-directory-face |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
732 compilation-enter-directory-face) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
733 directory ,(if leave |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
734 (or (cdr dir) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
735 '(nil)) ; nil only isn't a property-change |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
736 (cons (match-string-no-properties idx) dir)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
737 mouse-face highlight |
54941 | 738 keymap compilation-button-map |
76748
e22915955932
Change help-echo (again). `Entering directory DIR' visits DIR
Nick Roberts <nickrob@snap.net.nz>
parents:
76728
diff
changeset
|
739 help-echo "mouse-2: visit destination directory"))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
740 |
74157 | 741 ;; Data type `reverse-ordered-alist' retriever. This function retrieves the |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
742 ;; KEY element from the ALIST, creating it in the right position if not already |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
743 ;; present. ALIST structure is |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
744 ;; '(ANCHOR (KEY1 ...) (KEY2 ...)... (KEYn ALIST ...)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
745 ;; ANCHOR is ignored, but necessary so that elements can be inserted. KEY1 |
74157 | 746 ;; may be nil. The other KEYs are ordered backwards so that growing line |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
747 ;; numbers can be inserted in front and searching can abort after half the |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
748 ;; list on average. |
54941 | 749 (eval-when-compile ;Don't keep it at runtime if not needed. |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
750 (defmacro compilation-assq (key alist) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
751 `(let* ((l1 ,alist) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
752 (l2 (cdr l1))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
753 (car (if (if (null ,key) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
754 (if l2 (null (caar l2))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
755 (while (if l2 (if (caar l2) (< ,key (caar l2)) t)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
756 (setq l1 l2 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
757 l2 (cdr l1))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
758 (if l2 (eq ,key (caar l2)))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
759 l2 |
54941 | 760 (setcdr l1 (cons (list ,key) l2))))))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
761 |
81795
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
762 (defun compilation-auto-jump (buffer pos) |
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
763 (with-current-buffer buffer |
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
764 (goto-char pos) |
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
765 (compile-goto-error))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
766 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
767 ;; This function is the central driver, called when font-locking to gather |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
768 ;; all information needed to later jump to corresponding source code. |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
769 ;; Return a property list with all meta information on this error location. |
65695
e78a07e4c513
(compilation-error-properties): When getting the file from the
Richard M. Stallman <rms@gnu.org>
parents:
65680
diff
changeset
|
770 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
771 (defun compilation-error-properties (file line end-line col end-col type fmt) |
81795
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
772 (unless (< (next-single-property-change (match-beginning 0) |
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
773 'directory nil (point)) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
774 (point)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
775 (if file |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
776 (if (functionp file) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
777 (setq file (funcall file)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
778 (let (dir) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
779 (setq file (match-string-no-properties file)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
780 (unless (file-name-absolute-p file) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
781 (setq dir (previous-single-property-change (point) 'directory) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
782 dir (if dir (or (get-text-property (1- dir) 'directory) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
783 (get-text-property dir 'directory))))) |
55007
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
784 (setq file (cons file (car dir))))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
785 ;; This message didn't mention one, get it from previous |
65695
e78a07e4c513
(compilation-error-properties): When getting the file from the
Richard M. Stallman <rms@gnu.org>
parents:
65680
diff
changeset
|
786 (let ((prev-pos |
e78a07e4c513
(compilation-error-properties): When getting the file from the
Richard M. Stallman <rms@gnu.org>
parents:
65680
diff
changeset
|
787 ;; Find the previous message. |
e78a07e4c513
(compilation-error-properties): When getting the file from the
Richard M. Stallman <rms@gnu.org>
parents:
65680
diff
changeset
|
788 (previous-single-property-change (point) 'message))) |
e78a07e4c513
(compilation-error-properties): When getting the file from the
Richard M. Stallman <rms@gnu.org>
parents:
65680
diff
changeset
|
789 (if prev-pos |
e78a07e4c513
(compilation-error-properties): When getting the file from the
Richard M. Stallman <rms@gnu.org>
parents:
65680
diff
changeset
|
790 ;; Get the file structure that belongs to it. |
e78a07e4c513
(compilation-error-properties): When getting the file from the
Richard M. Stallman <rms@gnu.org>
parents:
65680
diff
changeset
|
791 (let* ((prev |
e78a07e4c513
(compilation-error-properties): When getting the file from the
Richard M. Stallman <rms@gnu.org>
parents:
65680
diff
changeset
|
792 (or (get-text-property (1- prev-pos) 'message) |
e78a07e4c513
(compilation-error-properties): When getting the file from the
Richard M. Stallman <rms@gnu.org>
parents:
65680
diff
changeset
|
793 (get-text-property prev-pos 'message))) |
e78a07e4c513
(compilation-error-properties): When getting the file from the
Richard M. Stallman <rms@gnu.org>
parents:
65680
diff
changeset
|
794 (prev-struct |
e78a07e4c513
(compilation-error-properties): When getting the file from the
Richard M. Stallman <rms@gnu.org>
parents:
65680
diff
changeset
|
795 (car (nth 2 (car prev))))) |
e78a07e4c513
(compilation-error-properties): When getting the file from the
Richard M. Stallman <rms@gnu.org>
parents:
65680
diff
changeset
|
796 ;; Construct FILE . DIR from that. |
e78a07e4c513
(compilation-error-properties): When getting the file from the
Richard M. Stallman <rms@gnu.org>
parents:
65680
diff
changeset
|
797 (if prev-struct |
e78a07e4c513
(compilation-error-properties): When getting the file from the
Richard M. Stallman <rms@gnu.org>
parents:
65680
diff
changeset
|
798 (setq file (cons (car prev-struct) |
e78a07e4c513
(compilation-error-properties): When getting the file from the
Richard M. Stallman <rms@gnu.org>
parents:
65680
diff
changeset
|
799 (cadr prev-struct)))))) |
e78a07e4c513
(compilation-error-properties): When getting the file from the
Richard M. Stallman <rms@gnu.org>
parents:
65680
diff
changeset
|
800 (unless file |
e78a07e4c513
(compilation-error-properties): When getting the file from the
Richard M. Stallman <rms@gnu.org>
parents:
65680
diff
changeset
|
801 (setq file '("*unknown*"))))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
802 ;; All of these fields are optional, get them only if we have an index, and |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
803 ;; it matched some part of the message. |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
804 (and line |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
805 (setq line (match-string-no-properties line)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
806 (setq line (string-to-number line))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
807 (and end-line |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
808 (setq end-line (match-string-no-properties end-line)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
809 (setq end-line (string-to-number end-line))) |
56880
6bb35c70240a
(compilation-error-properties): Allow to funcall col and end-col.
Juri Linkov <juri@jurta.org>
parents:
56877
diff
changeset
|
810 (if col |
6bb35c70240a
(compilation-error-properties): Allow to funcall col and end-col.
Juri Linkov <juri@jurta.org>
parents:
56877
diff
changeset
|
811 (if (functionp col) |
6bb35c70240a
(compilation-error-properties): Allow to funcall col and end-col.
Juri Linkov <juri@jurta.org>
parents:
56877
diff
changeset
|
812 (setq col (funcall col)) |
6bb35c70240a
(compilation-error-properties): Allow to funcall col and end-col.
Juri Linkov <juri@jurta.org>
parents:
56877
diff
changeset
|
813 (and |
6bb35c70240a
(compilation-error-properties): Allow to funcall col and end-col.
Juri Linkov <juri@jurta.org>
parents:
56877
diff
changeset
|
814 (setq col (match-string-no-properties col)) |
6bb35c70240a
(compilation-error-properties): Allow to funcall col and end-col.
Juri Linkov <juri@jurta.org>
parents:
56877
diff
changeset
|
815 (setq col (- (string-to-number col) compilation-first-column))))) |
6bb35c70240a
(compilation-error-properties): Allow to funcall col and end-col.
Juri Linkov <juri@jurta.org>
parents:
56877
diff
changeset
|
816 (if (and end-col (functionp end-col)) |
6bb35c70240a
(compilation-error-properties): Allow to funcall col and end-col.
Juri Linkov <juri@jurta.org>
parents:
56877
diff
changeset
|
817 (setq end-col (funcall end-col)) |
6bb35c70240a
(compilation-error-properties): Allow to funcall col and end-col.
Juri Linkov <juri@jurta.org>
parents:
56877
diff
changeset
|
818 (if (and end-col (setq end-col (match-string-no-properties end-col))) |
6bb35c70240a
(compilation-error-properties): Allow to funcall col and end-col.
Juri Linkov <juri@jurta.org>
parents:
56877
diff
changeset
|
819 (setq end-col (- (string-to-number end-col) compilation-first-column -1)) |
6bb35c70240a
(compilation-error-properties): Allow to funcall col and end-col.
Juri Linkov <juri@jurta.org>
parents:
56877
diff
changeset
|
820 (if end-line (setq end-col -1)))) |
54939
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
821 (if (consp type) ; not a static type, check what it is. |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
822 (setq type (or (and (car type) (match-end (car type)) 1) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
823 (and (cdr type) (match-end (cdr type)) 0) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
824 2))) |
81795
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
825 |
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
826 (when (and compilation-auto-jump-to-next |
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
827 (>= type compilation-skip-threshold)) |
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
828 (kill-local-variable 'compilation-auto-jump-to-next) |
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
829 (run-with-timer 0 nil 'compilation-auto-jump |
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
830 (current-buffer) (match-beginning 0))) |
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
831 |
55007
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
832 (compilation-internal-error-properties file line end-line col end-col type fmt))) |
54939
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
833 |
58244
1c84cc19e954
(compilation-move-to-column): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58227
diff
changeset
|
834 (defun compilation-move-to-column (col screen) |
1c84cc19e954
(compilation-move-to-column): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58227
diff
changeset
|
835 "Go to column COL on the current line. |
1c84cc19e954
(compilation-move-to-column): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58227
diff
changeset
|
836 If SCREEN is non-nil, columns are screen columns, otherwise, they are |
1c84cc19e954
(compilation-move-to-column): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58227
diff
changeset
|
837 just char-counts." |
1c84cc19e954
(compilation-move-to-column): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58227
diff
changeset
|
838 (if screen |
1c84cc19e954
(compilation-move-to-column): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58227
diff
changeset
|
839 (move-to-column col) |
1c84cc19e954
(compilation-move-to-column): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58227
diff
changeset
|
840 (goto-char (min (+ (line-beginning-position) col) (line-end-position))))) |
1c84cc19e954
(compilation-move-to-column): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58227
diff
changeset
|
841 |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
842 (defun compilation-internal-error-properties (file line end-line col end-col type fmts) |
55007
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
843 "Get the meta-info that will be added as text-properties. |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
844 LINE, END-LINE, COL, END-COL are integers or nil. |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
845 TYPE can be 0, 1, or 2, meaning error, warning, or just info. |
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
846 FILE should be (FILENAME) or (RELATIVE-FILENAME . DIRNAME) or nil. |
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
847 FMTS is a list of format specs for transforming the file name. |
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
848 (See `compilation-error-regexp-alist'.)" |
55007
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
849 (unless file (setq file '("*unknown*"))) |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
850 (let* ((file-struct (compilation-get-file-structure file fmts)) |
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
851 ;; Get first already existing marker (if any has one, all have one). |
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
852 ;; Do this first, as the compilation-assq`s may create new nodes. |
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
853 (marker-line (car (cddr file-struct))) ; a line structure |
55007
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
854 (marker (nth 3 (cadr marker-line))) ; its marker |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
855 (compilation-error-screen-columns compilation-error-screen-columns) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
856 end-marker loc end-loc) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
857 (if (not (and marker (marker-buffer marker))) |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
858 (setq marker nil) ; no valid marker for this file |
55131
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
859 (setq loc (or line 1)) ; normalize no linenumber to line 1 |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
860 (catch 'marker ; find nearest loc, at least one exists |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
861 (dolist (x (nthcdr 3 file-struct)) ; loop over remaining lines |
55131
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
862 (if (> (car x) loc) ; still bigger |
55007
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
863 (setq marker-line x) |
55131
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
864 (if (> (- (or (car marker-line) 1) loc) |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
865 (- loc (car x))) ; current line is nearer |
55007
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
866 (setq marker-line x)) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
867 (throw 'marker t)))) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
868 (setq marker (nth 3 (cadr marker-line)) |
55131
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
869 marker-line (or (car marker-line) 1)) |
55007
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
870 (with-current-buffer (marker-buffer marker) |
66735
11893f0cbfb1
(compilation-internal-error-properties):
Richard M. Stallman <rms@gnu.org>
parents:
66119
diff
changeset
|
871 (save-excursion |
11893f0cbfb1
(compilation-internal-error-properties):
Richard M. Stallman <rms@gnu.org>
parents:
66119
diff
changeset
|
872 (save-restriction |
11893f0cbfb1
(compilation-internal-error-properties):
Richard M. Stallman <rms@gnu.org>
parents:
66119
diff
changeset
|
873 (widen) |
11893f0cbfb1
(compilation-internal-error-properties):
Richard M. Stallman <rms@gnu.org>
parents:
66119
diff
changeset
|
874 (goto-char (marker-position marker)) |
11893f0cbfb1
(compilation-internal-error-properties):
Richard M. Stallman <rms@gnu.org>
parents:
66119
diff
changeset
|
875 (when (or end-col end-line) |
11893f0cbfb1
(compilation-internal-error-properties):
Richard M. Stallman <rms@gnu.org>
parents:
66119
diff
changeset
|
876 (beginning-of-line (- (or end-line line) marker-line -1)) |
11893f0cbfb1
(compilation-internal-error-properties):
Richard M. Stallman <rms@gnu.org>
parents:
66119
diff
changeset
|
877 (if (or (null end-col) (< end-col 0)) |
11893f0cbfb1
(compilation-internal-error-properties):
Richard M. Stallman <rms@gnu.org>
parents:
66119
diff
changeset
|
878 (end-of-line) |
11893f0cbfb1
(compilation-internal-error-properties):
Richard M. Stallman <rms@gnu.org>
parents:
66119
diff
changeset
|
879 (compilation-move-to-column |
11893f0cbfb1
(compilation-internal-error-properties):
Richard M. Stallman <rms@gnu.org>
parents:
66119
diff
changeset
|
880 end-col compilation-error-screen-columns)) |
11893f0cbfb1
(compilation-internal-error-properties):
Richard M. Stallman <rms@gnu.org>
parents:
66119
diff
changeset
|
881 (setq end-marker (list (point-marker)))) |
11893f0cbfb1
(compilation-internal-error-properties):
Richard M. Stallman <rms@gnu.org>
parents:
66119
diff
changeset
|
882 (beginning-of-line (if end-line |
11893f0cbfb1
(compilation-internal-error-properties):
Richard M. Stallman <rms@gnu.org>
parents:
66119
diff
changeset
|
883 (- line end-line -1) |
11893f0cbfb1
(compilation-internal-error-properties):
Richard M. Stallman <rms@gnu.org>
parents:
66119
diff
changeset
|
884 (- loc marker-line -1))) |
11893f0cbfb1
(compilation-internal-error-properties):
Richard M. Stallman <rms@gnu.org>
parents:
66119
diff
changeset
|
885 (if col |
11893f0cbfb1
(compilation-internal-error-properties):
Richard M. Stallman <rms@gnu.org>
parents:
66119
diff
changeset
|
886 (compilation-move-to-column |
11893f0cbfb1
(compilation-internal-error-properties):
Richard M. Stallman <rms@gnu.org>
parents:
66119
diff
changeset
|
887 col compilation-error-screen-columns) |
11893f0cbfb1
(compilation-internal-error-properties):
Richard M. Stallman <rms@gnu.org>
parents:
66119
diff
changeset
|
888 (forward-to-indentation 0)) |
11893f0cbfb1
(compilation-internal-error-properties):
Richard M. Stallman <rms@gnu.org>
parents:
66119
diff
changeset
|
889 (setq marker (list (point-marker))))))) |
54939
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
890 |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
891 (setq loc (compilation-assq line (cdr file-struct))) |
55007
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
892 (if end-line |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
893 (setq end-loc (compilation-assq end-line (cdr file-struct)) |
55007
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
894 end-loc (compilation-assq end-col end-loc)) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
895 (if end-col ; use same line element |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
896 (setq end-loc (compilation-assq end-col loc)))) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
897 (setq loc (compilation-assq col loc)) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
898 ;; If they are new, make the loc(s) reference the file they point to. |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
899 (or (cdr loc) (setcdr loc `(,line ,file-struct ,@marker))) |
55007
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
900 (if end-loc |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
901 (or (cdr end-loc) |
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
902 (setcdr end-loc `(,(or end-line line) ,file-struct ,@end-marker)))) |
55007
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
903 |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
904 ;; Must start with face |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
905 `(face ,compilation-message-face |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
906 message (,loc ,type ,end-loc) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
907 ,@(if compilation-debug |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
908 `(debug (,(assoc (with-no-warnings matcher) font-lock-keywords) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
909 ,@(match-data)))) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
910 help-echo ,(if col |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
911 "mouse-2: visit this file, line and column" |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
912 (if line |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
913 "mouse-2: visit this file and line" |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
914 "mouse-2: visit this file")) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
915 keymap compilation-button-map |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
916 mouse-face highlight))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
917 |
17056
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
918 (defun compilation-mode-font-lock-keywords () |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
919 "Return expressions to highlight in Compilation mode." |
54761
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
920 (if compilation-parse-errors-function |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
921 ;; An old package! Try the compatibility code. |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
922 '((compilation-compat-parse-errors)) |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
923 (append |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
924 ;; make directory tracking |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
925 (if compilation-directory-matcher |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
926 `((,(car compilation-directory-matcher) |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
927 ,@(mapcar (lambda (elt) |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
928 `(,(car elt) |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
929 (compilation-directory-properties |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
930 ,(car elt) ,(cdr elt)) |
61760
51f159119616
(next-error-highlight-timer): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
61425
diff
changeset
|
931 t t)) |
54761
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
932 (cdr compilation-directory-matcher))))) |
54742
0a2de4900b34
(compilation-warning-face, compilation-info-face, compilation-skip-threshold)
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54700
diff
changeset
|
933 |
54761
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
934 ;; Compiler warning/error lines. |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
935 (mapcar |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
936 (lambda (item) |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
937 (if (symbolp item) |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
938 (setq item (cdr (assq item |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
939 compilation-error-regexp-alist-alist)))) |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
940 (let ((file (nth 1 item)) |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
941 (line (nth 2 item)) |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
942 (col (nth 3 item)) |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
943 (type (nth 4 item)) |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
944 end-line end-col fmt) |
54854
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
945 (if (consp file) (setq fmt (cdr file) file (car file))) |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
946 (if (consp line) (setq end-line (cdr line) line (car line))) |
54761
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
947 (if (consp col) (setq end-col (cdr col) col (car col))) |
54854
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
948 |
54807
1e00569924bf
(compilation-mode-font-lock-keywords): Fix test not to treat nil as a function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54761
diff
changeset
|
949 (if (functionp line) |
54761
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
950 ;; The old compile.el had here an undocumented hook that |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
951 ;; allowed `line' to be a function that computed the actual |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
952 ;; error location. Let's do our best. |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
953 `(,(car item) |
61760
51f159119616
(next-error-highlight-timer): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
61425
diff
changeset
|
954 (0 (save-match-data |
51f159119616
(next-error-highlight-timer): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
61425
diff
changeset
|
955 (compilation-compat-error-properties |
51f159119616
(next-error-highlight-timer): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
61425
diff
changeset
|
956 (funcall ',line (cons (match-string ,file) |
51f159119616
(next-error-highlight-timer): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
61425
diff
changeset
|
957 (cons default-directory |
51f159119616
(next-error-highlight-timer): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
61425
diff
changeset
|
958 ',(nthcdr 4 item))) |
51f159119616
(next-error-highlight-timer): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
61425
diff
changeset
|
959 ,(if col `(match-string ,col)))))) |
54761
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
960 (,file compilation-error-face t)) |
54854
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
961 |
55080
b8afe141e350
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55068
diff
changeset
|
962 (unless (or (null (nth 5 item)) (integerp (nth 5 item))) |
b8afe141e350
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55068
diff
changeset
|
963 (error "HYPERLINK should be an integer: %s" (nth 5 item))) |
b8afe141e350
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55068
diff
changeset
|
964 |
54761
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
965 `(,(nth 0 item) |
54742
0a2de4900b34
(compilation-warning-face, compilation-info-face, compilation-skip-threshold)
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54700
diff
changeset
|
966 |
54761
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
967 ,@(when (integerp file) |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
968 `((,file ,(if (consp type) |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
969 `(compilation-face ',type) |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
970 (aref [compilation-info-face |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
971 compilation-warning-face |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
972 compilation-error-face] |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
973 (or type 2)))))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
974 |
54761
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
975 ,@(when line |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
976 `((,line compilation-line-face nil t))) |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
977 ,@(when end-line |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
978 `((,end-line compilation-line-face nil t))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
979 |
56880
6bb35c70240a
(compilation-error-properties): Allow to funcall col and end-col.
Juri Linkov <juri@jurta.org>
parents:
56877
diff
changeset
|
980 ,@(when (integerp col) |
54761
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
981 `((,col compilation-column-face nil t))) |
56880
6bb35c70240a
(compilation-error-properties): Allow to funcall col and end-col.
Juri Linkov <juri@jurta.org>
parents:
56877
diff
changeset
|
982 ,@(when (integerp end-col) |
54761
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
983 `((,end-col compilation-column-face nil t))) |
54747 | 984 |
54761
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
985 ,@(nthcdr 6 item) |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
986 (,(or (nth 5 item) 0) |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
987 (compilation-error-properties ',file ,line ,end-line |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
988 ,col ,end-col ',(or type 2) |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
989 ',fmt) |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
990 append))))) ; for compilation-message-face |
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
991 compilation-error-regexp-alist) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
992 |
54761
8fd08fa510b6
(compilation-mode-font-lock-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54747
diff
changeset
|
993 compilation-mode-font-lock-keywords))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
994 |
12920
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
995 |
418 | 996 ;;;###autoload |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
997 (defun compile (command &optional comint) |
71 | 998 "Compile the program including the current buffer. Default: run `make'. |
999 Runs COMMAND, a shell command, in a separate process asynchronously | |
1000 with output going to the buffer `*compilation*'. | |
418 | 1001 |
75145 | 1002 You can then use the command \\[next-error] to find the next error message |
1003 and move to the source code that caused it. | |
1004 | |
54941 | 1005 If optional second arg COMINT is t the buffer will be in Comint mode with |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1006 `compilation-shell-minor-mode'. |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1007 |
9888
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
1008 Interactively, prompts for the command if `compilation-read-command' is |
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
1009 non-nil; otherwise uses `compile-command'. With prefix arg, always prompts. |
55513
6bdc57e42324
(compile): Add universal prefix arg.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55325
diff
changeset
|
1010 Additionally, with universal prefix arg, compilation buffer will be in |
6bdc57e42324
(compile): Add universal prefix arg.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55325
diff
changeset
|
1011 comint mode, i.e. interactive. |
9888
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
1012 |
78388
b589cafd502b
(compilation-find-buffer): Return current buffer immediately if suitable.
Richard M. Stallman <rms@gnu.org>
parents:
78234
diff
changeset
|
1013 To run more than one compilation at once, start one then rename |
51797
7ea30d8ab42d
(compile-auto-highlight): Default now t.
Richard M. Stallman <rms@gnu.org>
parents:
51452
diff
changeset
|
1014 the \`*compilation*' buffer to some other name with |
78388
b589cafd502b
(compilation-find-buffer): Return current buffer immediately if suitable.
Richard M. Stallman <rms@gnu.org>
parents:
78234
diff
changeset
|
1015 \\[rename-buffer]. Then _switch buffers_ and start the new compilation. |
b589cafd502b
(compilation-find-buffer): Return current buffer immediately if suitable.
Richard M. Stallman <rms@gnu.org>
parents:
78234
diff
changeset
|
1016 It will create a new \`*compilation*' buffer. |
b589cafd502b
(compilation-find-buffer): Return current buffer immediately if suitable.
Richard M. Stallman <rms@gnu.org>
parents:
78234
diff
changeset
|
1017 |
b589cafd502b
(compilation-find-buffer): Return current buffer immediately if suitable.
Richard M. Stallman <rms@gnu.org>
parents:
78234
diff
changeset
|
1018 On most systems, termination of the main compilation process |
b589cafd502b
(compilation-find-buffer): Return current buffer immediately if suitable.
Richard M. Stallman <rms@gnu.org>
parents:
78234
diff
changeset
|
1019 kills its subprocesses. |
418 | 1020 |
1021 The name used for the buffer is actually whatever is returned by | |
1022 the function in `compilation-buffer-name-function', so you can set that | |
1023 to a function that generates a unique name." | |
5406
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
1024 (interactive |
55513
6bdc57e42324
(compile): Add universal prefix arg.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55325
diff
changeset
|
1025 (list |
58031
65d3c6f26162
(compile): Don't overwrite last command in minibuffer history
Juri Linkov <juri@jurta.org>
parents:
57731
diff
changeset
|
1026 (let ((command (eval compile-command))) |
65d3c6f26162
(compile): Don't overwrite last command in minibuffer history
Juri Linkov <juri@jurta.org>
parents:
57731
diff
changeset
|
1027 (if (or compilation-read-command current-prefix-arg) |
65d3c6f26162
(compile): Don't overwrite last command in minibuffer history
Juri Linkov <juri@jurta.org>
parents:
57731
diff
changeset
|
1028 (read-from-minibuffer "Compile command: " |
65d3c6f26162
(compile): Don't overwrite last command in minibuffer history
Juri Linkov <juri@jurta.org>
parents:
57731
diff
changeset
|
1029 command nil nil |
65d3c6f26162
(compile): Don't overwrite last command in minibuffer history
Juri Linkov <juri@jurta.org>
parents:
57731
diff
changeset
|
1030 (if (equal (car compile-history) command) |
65d3c6f26162
(compile): Don't overwrite last command in minibuffer history
Juri Linkov <juri@jurta.org>
parents:
57731
diff
changeset
|
1031 '(compile-history . 1) |
65d3c6f26162
(compile): Don't overwrite last command in minibuffer history
Juri Linkov <juri@jurta.org>
parents:
57731
diff
changeset
|
1032 'compile-history)) |
65d3c6f26162
(compile): Don't overwrite last command in minibuffer history
Juri Linkov <juri@jurta.org>
parents:
57731
diff
changeset
|
1033 command)) |
55513
6bdc57e42324
(compile): Add universal prefix arg.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55325
diff
changeset
|
1034 (consp current-prefix-arg))) |
38493
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
1035 (unless (equal command (eval compile-command)) |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
1036 (setq compile-command command)) |
5406
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
1037 (save-some-buffers (not compilation-ask-about-save) nil) |
81999
c0fc8e3cb6b4
(compilation-start): Remember the original directory in a buffer-local
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81816
diff
changeset
|
1038 (setq-default compilation-directory default-directory) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1039 (compilation-start command comint)) |
71 | 1040 |
38493
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
1041 ;; run compile with the default command line |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1042 (defun recompile () |
41037
5dd37d315c33
(recompile): Use compilation-arguments if set, so as to be able to M-x
Richard M. Stallman <rms@gnu.org>
parents:
40902
diff
changeset
|
1043 "Re-compile the program including the current buffer. |
54941 | 1044 If this is run in a Compilation mode buffer, re-use the arguments from the |
1045 original use. Otherwise, recompile using `compile-command'." | |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1046 (interactive) |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1047 (save-some-buffers (not compilation-ask-about-save) nil) |
81999
c0fc8e3cb6b4
(compilation-start): Remember the original directory in a buffer-local
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81816
diff
changeset
|
1048 (let ((default-directory (or compilation-directory default-directory))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1049 (apply 'compilation-start (or compilation-arguments |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1050 `(,(eval compile-command)))))) |
12256
e50e5d419c51
(grep-null-device): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
12219
diff
changeset
|
1051 |
20877
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
1052 (defcustom compilation-scroll-output nil |
81795
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
1053 "Non-nil to scroll the *compilation* buffer window as output appears. |
20877
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
1054 |
54941 | 1055 Setting it causes the Compilation mode commands to put point at the |
20877
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
1056 end of their output window so that the end of the output is always |
54941 | 1057 visible rather than the beginning." |
20877
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
1058 :type 'boolean |
22291
7c8d8ad75d43
(compilation-scroll-output): Correct the :version
Karl Heuer <kwzh@gnu.org>
parents:
22208
diff
changeset
|
1059 :version "20.3" |
20877
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
1060 :group 'compilation) |
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
1061 |
39602
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
1062 |
65783
a2cbf1cc9c6d
(compilation-buffer-name): New arg MODE-COMMAND.
Richard M. Stallman <rms@gnu.org>
parents:
65734
diff
changeset
|
1063 (defun compilation-buffer-name (mode-name mode-command name-function) |
39602
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
1064 "Return the name of a compilation buffer to use. |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
1065 If NAME-FUNCTION is non-nil, call it with one argument MODE-NAME |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
1066 to determine the buffer name. |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
1067 Likewise if `compilation-buffer-name-function' is non-nil. |
78388
b589cafd502b
(compilation-find-buffer): Return current buffer immediately if suitable.
Richard M. Stallman <rms@gnu.org>
parents:
78234
diff
changeset
|
1068 If current buffer has the major mode MODE-COMMAND, |
39602
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
1069 return the name of the current buffer, so that it gets reused. |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
1070 Otherwise, construct a buffer name from MODE-NAME." |
48035
c27fdc870952
(grep-find-use-xargs): Fix docstring. Patch from Matt Swift
Juanma Barranquero <lekktu@gmail.com>
parents:
47787
diff
changeset
|
1071 (cond (name-function |
39602
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
1072 (funcall name-function mode-name)) |
48035
c27fdc870952
(grep-find-use-xargs): Fix docstring. Patch from Matt Swift
Juanma Barranquero <lekktu@gmail.com>
parents:
47787
diff
changeset
|
1073 (compilation-buffer-name-function |
39602
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
1074 (funcall compilation-buffer-name-function mode-name)) |
82352
0349c504d001
(compilation-buffer-name): Don't check compilation-arguments. It is
Glenn Morris <rgm@gnu.org>
parents:
82323
diff
changeset
|
1075 ((eq mode-command major-mode) |
39602
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
1076 (buffer-name)) |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
1077 (t |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
1078 (concat "*" (downcase mode-name) "*")))) |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
1079 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1080 ;; This is a rough emulation of the old hack, until the transition to new |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1081 ;; compile is complete. |
71 | 1082 (defun compile-internal (command error-message |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1083 &optional name-of-mode parser |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1084 error-regexp-alist name-function |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1085 enter-regexp-alist leave-regexp-alist |
47300
5128d5a8980c
(compile-internal): Add optional argument no-async.
Colin Walters <walters@gnu.org>
parents:
46344
diff
changeset
|
1086 file-regexp-alist nomessage-regexp-alist |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1087 no-async highlight-regexp local-map) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1088 (if parser |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1089 (error "Compile now works very differently, see `compilation-error-regexp-alist'")) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1090 (let ((compilation-error-regexp-alist |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1091 (append file-regexp-alist (or error-regexp-alist |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1092 compilation-error-regexp-alist))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1093 (compilation-error (replace-regexp-in-string "^No more \\(.+\\)s\\.?" |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1094 "\\1" error-message))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1095 (compilation-start command nil name-function highlight-regexp))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1096 (make-obsolete 'compile-internal 'compilation-start) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1097 |
65175
0ef9e8908562
* progmodes/compile.el (compilation-start): Add autoload cookie.
Romain Francoise <romain@orebokech.com>
parents:
65162
diff
changeset
|
1098 ;;;###autoload |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1099 (defun compilation-start (command &optional mode name-function highlight-regexp) |
71 | 1100 "Run compilation command COMMAND (low level interface). |
57067
e9dd601d101f
Parse command to see if it starts with a cd, and if so perform it for the *compilation* buffer. Change the header to reflect this.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57021
diff
changeset
|
1101 If COMMAND starts with a cd command, that becomes the `default-directory'. |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1102 The rest of the arguments are optional; for them, nil means use the default. |
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1103 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1104 MODE is the major mode to set in the compilation buffer. Mode |
54941 | 1105 may also be t meaning use `compilation-shell-minor-mode' under `comint-mode'. |
78388
b589cafd502b
(compilation-find-buffer): Return current buffer immediately if suitable.
Richard M. Stallman <rms@gnu.org>
parents:
78234
diff
changeset
|
1106 |
65162
217750047c30
(compilation-start): Doc fix.
Romain Francoise <romain@orebokech.com>
parents:
65070
diff
changeset
|
1107 If NAME-FUNCTION is non-nil, call it with one argument (the mode name) |
78388
b589cafd502b
(compilation-find-buffer): Return current buffer immediately if suitable.
Richard M. Stallman <rms@gnu.org>
parents:
78234
diff
changeset
|
1108 to determine the buffer name. Otherwise, the default is to |
b589cafd502b
(compilation-find-buffer): Return current buffer immediately if suitable.
Richard M. Stallman <rms@gnu.org>
parents:
78234
diff
changeset
|
1109 reuses the current buffer if it has the proper major mode, |
b589cafd502b
(compilation-find-buffer): Return current buffer immediately if suitable.
Richard M. Stallman <rms@gnu.org>
parents:
78234
diff
changeset
|
1110 else use or create a buffer with name based on the major mode. |
47300
5128d5a8980c
(compile-internal): Add optional argument no-async.
Colin Walters <walters@gnu.org>
parents:
46344
diff
changeset
|
1111 |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1112 If HIGHLIGHT-REGEXP is non-nil, `next-error' will temporarily highlight |
54941 | 1113 the matching section of the visited source line; the default is to use the |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1114 global value of `compilation-highlight-regexp'. |
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1115 |
894 | 1116 Returns the compilation buffer created." |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1117 (or mode (setq mode 'compilation-mode)) |
57067
e9dd601d101f
Parse command to see if it starts with a cd, and if so perform it for the *compilation* buffer. Change the header to reflect this.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57021
diff
changeset
|
1118 (let* ((name-of-mode |
e9dd601d101f
Parse command to see if it starts with a cd, and if so perform it for the *compilation* buffer. Change the header to reflect this.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57021
diff
changeset
|
1119 (if (eq mode t) |
e9dd601d101f
Parse command to see if it starts with a cd, and if so perform it for the *compilation* buffer. Change the header to reflect this.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57021
diff
changeset
|
1120 (prog1 "compilation" (require 'comint)) |
e9dd601d101f
Parse command to see if it starts with a cd, and if so perform it for the *compilation* buffer. Change the header to reflect this.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57021
diff
changeset
|
1121 (replace-regexp-in-string "-mode$" "" (symbol-name mode)))) |
57628
cce8a9fe7de8
(compilation-start): Rely on `cd' to get dir right and also allow argumentless cd.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57600
diff
changeset
|
1122 (thisdir default-directory) |
57067
e9dd601d101f
Parse command to see if it starts with a cd, and if so perform it for the *compilation* buffer. Change the header to reflect this.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57021
diff
changeset
|
1123 outwin outbuf) |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1124 (with-current-buffer |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1125 (setq outbuf |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1126 (get-buffer-create |
82352
0349c504d001
(compilation-buffer-name): Don't check compilation-arguments. It is
Glenn Morris <rgm@gnu.org>
parents:
82323
diff
changeset
|
1127 (compilation-buffer-name name-of-mode mode name-function))) |
418 | 1128 (let ((comp-proc (get-buffer-process (current-buffer)))) |
1129 (if comp-proc | |
1130 (if (or (not (eq (process-status comp-proc) 'run)) | |
1131 (yes-or-no-p | |
1554
5af75a1a9a24
* compile.el (compile-internal): Use NAME-OF-MODE in the prompt
Jim Blandy <jimb@redhat.com>
parents:
1294
diff
changeset
|
1132 (format "A %s process is running; kill it? " |
5af75a1a9a24
* compile.el (compile-internal): Use NAME-OF-MODE in the prompt
Jim Blandy <jimb@redhat.com>
parents:
1294
diff
changeset
|
1133 name-of-mode))) |
418 | 1134 (condition-case () |
1135 (progn | |
1136 (interrupt-process comp-proc) | |
1137 (sit-for 1) | |
1138 (delete-process comp-proc)) | |
1139 (error nil)) | |
1140 (error "Cannot have two processes in `%s' at once" | |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1141 (buffer-name))))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1142 (buffer-disable-undo (current-buffer)) |
57628
cce8a9fe7de8
(compilation-start): Rely on `cd' to get dir right and also allow argumentless cd.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57600
diff
changeset
|
1143 ;; first transfer directory from where M-x compile was called |
cce8a9fe7de8
(compilation-start): Rely on `cd' to get dir right and also allow argumentless cd.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57600
diff
changeset
|
1144 (setq default-directory thisdir) |
81999
c0fc8e3cb6b4
(compilation-start): Remember the original directory in a buffer-local
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81816
diff
changeset
|
1145 ;; Remember the original dir, so we can use it when we recompile. |
c0fc8e3cb6b4
(compilation-start): Remember the original directory in a buffer-local
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81816
diff
changeset
|
1146 ;; default-directory' can't be used reliably for that because it may be |
c0fc8e3cb6b4
(compilation-start): Remember the original directory in a buffer-local
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81816
diff
changeset
|
1147 ;; affected by the special handling of "cd ...;". |
c0fc8e3cb6b4
(compilation-start): Remember the original directory in a buffer-local
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81816
diff
changeset
|
1148 (set (make-local-variable 'compilation-directory) thisdir) |
57517
7a899182458c
(compilation-start): Assume compilation-mode will make the buffer read-only.
Richard M. Stallman <rms@gnu.org>
parents:
57067
diff
changeset
|
1149 ;; Make compilation buffer read-only. The filter can still write it. |
7a899182458c
(compilation-start): Assume compilation-mode will make the buffer read-only.
Richard M. Stallman <rms@gnu.org>
parents:
57067
diff
changeset
|
1150 ;; Clear out the compilation buffer. |
57628
cce8a9fe7de8
(compilation-start): Rely on `cd' to get dir right and also allow argumentless cd.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57600
diff
changeset
|
1151 (let ((inhibit-read-only t) |
cce8a9fe7de8
(compilation-start): Rely on `cd' to get dir right and also allow argumentless cd.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57600
diff
changeset
|
1152 (default-directory thisdir)) |
81795
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
1153 ;; Then evaluate a cd command if any, but don't perform it yet, else |
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
1154 ;; start-command would do it again through the shell: (cd "..") AND |
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
1155 ;; sh -c "cd ..; make" |
57628
cce8a9fe7de8
(compilation-start): Rely on `cd' to get dir right and also allow argumentless cd.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57600
diff
changeset
|
1156 (cd (if (string-match "^\\s *cd\\(?:\\s +\\(\\S +?\\)\\)?\\s *[;&\n]" command) |
cce8a9fe7de8
(compilation-start): Rely on `cd' to get dir right and also allow argumentless cd.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57600
diff
changeset
|
1157 (if (match-end 1) |
58445
4b0746e87898
(compilation-start): In cd command use substitute-env-vars -- not quite shell compatible but better than nothing.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
58256
diff
changeset
|
1158 (substitute-env-vars (match-string 1 command)) |
57628
cce8a9fe7de8
(compilation-start): Rely on `cd' to get dir right and also allow argumentless cd.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57600
diff
changeset
|
1159 "~") |
cce8a9fe7de8
(compilation-start): Rely on `cd' to get dir right and also allow argumentless cd.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57600
diff
changeset
|
1160 default-directory)) |
63057
3949ec3f5f5a
(compilation-start): Move `erase-buffer' up
Juri Linkov <juri@jurta.org>
parents:
62964
diff
changeset
|
1161 (erase-buffer) |
62859
c18eb4cd2ef7
(compilation-start): Set the mode before inserting the initial text.
Richard M. Stallman <rms@gnu.org>
parents:
62527
diff
changeset
|
1162 ;; Select the desired mode. |
c18eb4cd2ef7
(compilation-start): Set the mode before inserting the initial text.
Richard M. Stallman <rms@gnu.org>
parents:
62527
diff
changeset
|
1163 (if (not (eq mode t)) |
c18eb4cd2ef7
(compilation-start): Set the mode before inserting the initial text.
Richard M. Stallman <rms@gnu.org>
parents:
62527
diff
changeset
|
1164 (funcall mode) |
c18eb4cd2ef7
(compilation-start): Set the mode before inserting the initial text.
Richard M. Stallman <rms@gnu.org>
parents:
62527
diff
changeset
|
1165 (setq buffer-read-only nil) |
c18eb4cd2ef7
(compilation-start): Set the mode before inserting the initial text.
Richard M. Stallman <rms@gnu.org>
parents:
62527
diff
changeset
|
1166 (with-no-warnings (comint-mode)) |
c18eb4cd2ef7
(compilation-start): Set the mode before inserting the initial text.
Richard M. Stallman <rms@gnu.org>
parents:
62527
diff
changeset
|
1167 (compilation-shell-minor-mode)) |
c18eb4cd2ef7
(compilation-start): Set the mode before inserting the initial text.
Richard M. Stallman <rms@gnu.org>
parents:
62527
diff
changeset
|
1168 (if highlight-regexp |
c18eb4cd2ef7
(compilation-start): Set the mode before inserting the initial text.
Richard M. Stallman <rms@gnu.org>
parents:
62527
diff
changeset
|
1169 (set (make-local-variable 'compilation-highlight-regexp) |
c18eb4cd2ef7
(compilation-start): Set the mode before inserting the initial text.
Richard M. Stallman <rms@gnu.org>
parents:
62527
diff
changeset
|
1170 highlight-regexp)) |
81795
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
1171 (if compilation-auto-jump-to-first-error |
15008ad392dc
(compilation-auto-jump-to-first-error,compilation-auto-jump-to-next): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81758
diff
changeset
|
1172 (set (make-local-variable 'compilation-auto-jump-to-next) t)) |
62859
c18eb4cd2ef7
(compilation-start): Set the mode before inserting the initial text.
Richard M. Stallman <rms@gnu.org>
parents:
62527
diff
changeset
|
1173 ;; Output a mode setter, for saving and later reloading this buffer. |
57517
7a899182458c
(compilation-start): Assume compilation-mode will make the buffer read-only.
Richard M. Stallman <rms@gnu.org>
parents:
57067
diff
changeset
|
1174 (insert "-*- mode: " name-of-mode |
77183
9d01047fbeaf
Revert 2007-03-25 change.
Chong Yidong <cyd@stupidchicken.com>
parents:
76748
diff
changeset
|
1175 "; default-directory: " (prin1-to-string default-directory) |
64926
37347aa3aaae
(compilation-start): Add the line "Compilation started" with compilation
Eli Zaretskii <eliz@gnu.org>
parents:
64863
diff
changeset
|
1176 " -*-\n" |
64943
0734dceb92d1
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64926
diff
changeset
|
1177 (format "%s started at %s\n\n" |
0734dceb92d1
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64926
diff
changeset
|
1178 mode-name |
0734dceb92d1
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64926
diff
changeset
|
1179 (substring (current-time-string) 0 19)) |
64926
37347aa3aaae
(compilation-start): Add the line "Compilation started" with compilation
Eli Zaretskii <eliz@gnu.org>
parents:
64863
diff
changeset
|
1180 command "\n") |
63057
3949ec3f5f5a
(compilation-start): Move `erase-buffer' up
Juri Linkov <juri@jurta.org>
parents:
62964
diff
changeset
|
1181 (setq thisdir default-directory)) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1182 (set-buffer-modified-p nil)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1183 ;; Pop up the compilation buffer. |
87332
4a1edf137bff
John J Foerch <jjfoerch at earthlink.net> (tiny change)
Glenn Morris <rgm@gnu.org>
parents:
86046
diff
changeset
|
1184 ;; http://lists.gnu.org/archive/html/emacs-devel/2007-11/msg01638.html |
4a1edf137bff
John J Foerch <jjfoerch at earthlink.net> (tiny change)
Glenn Morris <rgm@gnu.org>
parents:
86046
diff
changeset
|
1185 (setq outwin (display-buffer outbuf)) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1186 (with-current-buffer outbuf |
57530
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1187 (let ((process-environment |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1188 (append |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1189 compilation-environment |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1190 (if (if (boundp 'system-uses-terminfo) ; `if' for compiler warning |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1191 system-uses-terminfo) |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1192 (list "TERM=dumb" "TERMCAP=" |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1193 (format "COLUMNS=%d" (window-width))) |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1194 (list "TERM=emacs" |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1195 (format "TERMCAP=emacs:co#%d:tc=unknown:" |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1196 (window-width)))) |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1197 ;; Set the EMACS variable, but |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1198 ;; don't override users' setting of $EMACS. |
72833
81a55a7dc3c3
* etc/NEWS: In terminal-oriented subshells, the EMACS environment
Paul Eggert <eggert@twinsun.com>
parents:
72830
diff
changeset
|
1199 (unless (getenv "EMACS") |
74057
636627b25f70
(compilation-start): Set EMACS and INSIDE_EMACS to t.
Chong Yidong <cyd@stupidchicken.com>
parents:
73913
diff
changeset
|
1200 (list "EMACS=t")) |
636627b25f70
(compilation-start): Set EMACS and INSIDE_EMACS to t.
Chong Yidong <cyd@stupidchicken.com>
parents:
73913
diff
changeset
|
1201 (list "INSIDE_EMACS=t") |
57530
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1202 (copy-sequence process-environment)))) |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1203 (set (make-local-variable 'compilation-arguments) |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1204 (list command mode name-function highlight-regexp)) |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1205 (set (make-local-variable 'revert-buffer-function) |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1206 'compilation-revert-buffer) |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1207 (set-window-start outwin (point-min)) |
79635
0aa6ec4cac21
(compilation-start): Set initial visible point properly even when
Richard M. Stallman <rms@gnu.org>
parents:
78848
diff
changeset
|
1208 |
0aa6ec4cac21
(compilation-start): Set initial visible point properly even when
Richard M. Stallman <rms@gnu.org>
parents:
78848
diff
changeset
|
1209 ;; Position point as the user will see it. |
0aa6ec4cac21
(compilation-start): Set initial visible point properly even when
Richard M. Stallman <rms@gnu.org>
parents:
78848
diff
changeset
|
1210 (let ((desired-visible-point |
0aa6ec4cac21
(compilation-start): Set initial visible point properly even when
Richard M. Stallman <rms@gnu.org>
parents:
78848
diff
changeset
|
1211 ;; Put it at the end if `compilation-scroll-output' is set. |
0aa6ec4cac21
(compilation-start): Set initial visible point properly even when
Richard M. Stallman <rms@gnu.org>
parents:
78848
diff
changeset
|
1212 (if compilation-scroll-output |
0aa6ec4cac21
(compilation-start): Set initial visible point properly even when
Richard M. Stallman <rms@gnu.org>
parents:
78848
diff
changeset
|
1213 (point-max) |
0aa6ec4cac21
(compilation-start): Set initial visible point properly even when
Richard M. Stallman <rms@gnu.org>
parents:
78848
diff
changeset
|
1214 ;; Normally put it at the top. |
0aa6ec4cac21
(compilation-start): Set initial visible point properly even when
Richard M. Stallman <rms@gnu.org>
parents:
78848
diff
changeset
|
1215 (point-min)))) |
0aa6ec4cac21
(compilation-start): Set initial visible point properly even when
Richard M. Stallman <rms@gnu.org>
parents:
78848
diff
changeset
|
1216 (if (eq outwin (selected-window)) |
0aa6ec4cac21
(compilation-start): Set initial visible point properly even when
Richard M. Stallman <rms@gnu.org>
parents:
78848
diff
changeset
|
1217 (goto-char desired-visible-point) |
0aa6ec4cac21
(compilation-start): Set initial visible point properly even when
Richard M. Stallman <rms@gnu.org>
parents:
78848
diff
changeset
|
1218 (set-window-point outwin desired-visible-point))) |
0aa6ec4cac21
(compilation-start): Set initial visible point properly even when
Richard M. Stallman <rms@gnu.org>
parents:
78848
diff
changeset
|
1219 |
57530
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1220 ;; The setup function is called before compilation-set-window-height |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1221 ;; so it can set the compilation-window-height buffer locally. |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1222 (if compilation-process-setup-function |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1223 (funcall compilation-process-setup-function)) |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1224 (compilation-set-window-height outwin) |
2aec2ccb618b
(compilation-start): Move let-binding of
Juri Linkov <juri@jurta.org>
parents:
57517
diff
changeset
|
1225 ;; Start the compilation. |
81816
8c1a05c2d668
* progmodes/compile.el (compilation-start): `start-process' must
Michael Albinus <michael.albinus@gmx.de>
parents:
81801
diff
changeset
|
1226 (let ((proc |
8c1a05c2d668
* progmodes/compile.el (compilation-start): `start-process' must
Michael Albinus <michael.albinus@gmx.de>
parents:
81801
diff
changeset
|
1227 (if (eq mode t) |
8c1a05c2d668
* progmodes/compile.el (compilation-start): `start-process' must
Michael Albinus <michael.albinus@gmx.de>
parents:
81801
diff
changeset
|
1228 ;; comint uses `start-file-process'. |
8c1a05c2d668
* progmodes/compile.el (compilation-start): `start-process' must
Michael Albinus <michael.albinus@gmx.de>
parents:
81801
diff
changeset
|
1229 (get-buffer-process |
8c1a05c2d668
* progmodes/compile.el (compilation-start): `start-process' must
Michael Albinus <michael.albinus@gmx.de>
parents:
81801
diff
changeset
|
1230 (with-no-warnings |
82094
76546b143f2d
* subr.el (start-file-process-shell-command)
Michael Albinus <michael.albinus@gmx.de>
parents:
82004
diff
changeset
|
1231 (comint-exec |
76546b143f2d
* subr.el (start-file-process-shell-command)
Michael Albinus <michael.albinus@gmx.de>
parents:
82004
diff
changeset
|
1232 outbuf (downcase mode-name) |
76546b143f2d
* subr.el (start-file-process-shell-command)
Michael Albinus <michael.albinus@gmx.de>
parents:
82004
diff
changeset
|
1233 (if (file-remote-p default-directory) |
76546b143f2d
* subr.el (start-file-process-shell-command)
Michael Albinus <michael.albinus@gmx.de>
parents:
82004
diff
changeset
|
1234 "/bin/sh" |
76546b143f2d
* subr.el (start-file-process-shell-command)
Michael Albinus <michael.albinus@gmx.de>
parents:
82004
diff
changeset
|
1235 shell-file-name) |
82323
3892324d724a
(compilation-start): Pass nil as startfile to comint-exec.
Sam Steingold <sds@gnu.org>
parents:
82251
diff
changeset
|
1236 nil `("-c" ,command)))) |
82094
76546b143f2d
* subr.el (start-file-process-shell-command)
Michael Albinus <michael.albinus@gmx.de>
parents:
82004
diff
changeset
|
1237 (start-file-process-shell-command (downcase mode-name) |
76546b143f2d
* subr.el (start-file-process-shell-command)
Michael Albinus <michael.albinus@gmx.de>
parents:
82004
diff
changeset
|
1238 outbuf command)))) |
81801
2e8d5916d236
* comint.el (make-comint, make-comint-in-buffer)
Michael Albinus <michael.albinus@gmx.de>
parents:
81795
diff
changeset
|
1239 ;; Make the buffer's mode line show process state. |
2e8d5916d236
* comint.el (make-comint, make-comint-in-buffer)
Michael Albinus <michael.albinus@gmx.de>
parents:
81795
diff
changeset
|
1240 (setq mode-line-process '(":%s")) |
2e8d5916d236
* comint.el (make-comint, make-comint-in-buffer)
Michael Albinus <michael.albinus@gmx.de>
parents:
81795
diff
changeset
|
1241 (set-process-sentinel proc 'compilation-sentinel) |
2e8d5916d236
* comint.el (make-comint, make-comint-in-buffer)
Michael Albinus <michael.albinus@gmx.de>
parents:
81795
diff
changeset
|
1242 (set-process-filter proc 'compilation-filter) |
87453 | 1243 ;; Use (point-max) here so that output comes in |
1244 ;; after the initial text, | |
1245 ;; regardless of where the user sees point. | |
1246 (set-marker (process-mark proc) (point-max) outbuf) | |
81801
2e8d5916d236
* comint.el (make-comint, make-comint-in-buffer)
Michael Albinus <michael.albinus@gmx.de>
parents:
81795
diff
changeset
|
1247 (when compilation-disable-input |
2e8d5916d236
* comint.el (make-comint, make-comint-in-buffer)
Michael Albinus <michael.albinus@gmx.de>
parents:
81795
diff
changeset
|
1248 (condition-case nil |
2e8d5916d236
* comint.el (make-comint, make-comint-in-buffer)
Michael Albinus <michael.albinus@gmx.de>
parents:
81795
diff
changeset
|
1249 (process-send-eof proc) |
2e8d5916d236
* comint.el (make-comint, make-comint-in-buffer)
Michael Albinus <michael.albinus@gmx.de>
parents:
81795
diff
changeset
|
1250 ;; The process may have exited already. |
2e8d5916d236
* comint.el (make-comint, make-comint-in-buffer)
Michael Albinus <michael.albinus@gmx.de>
parents:
81795
diff
changeset
|
1251 (error nil))) |
2e8d5916d236
* comint.el (make-comint, make-comint-in-buffer)
Michael Albinus <michael.albinus@gmx.de>
parents:
81795
diff
changeset
|
1252 (setq compilation-in-progress |
2e8d5916d236
* comint.el (make-comint, make-comint-in-buffer)
Michael Albinus <michael.albinus@gmx.de>
parents:
81795
diff
changeset
|
1253 (cons proc compilation-in-progress)))) |
57628
cce8a9fe7de8
(compilation-start): Rely on `cd' to get dir right and also allow argumentless cd.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57600
diff
changeset
|
1254 ;; Now finally cd to where the shell started make/grep/... |
cce8a9fe7de8
(compilation-start): Rely on `cd' to get dir right and also allow argumentless cd.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
57600
diff
changeset
|
1255 (setq default-directory thisdir)) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1256 (if (buffer-local-value 'compilation-scroll-output outbuf) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1257 (save-selected-window |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1258 (select-window outwin) |
54424
6ea174960a93
(compilation-start): Always set compilation-last-buffer and return it.
Kim F. Storm <storm@cua.dk>
parents:
54368
diff
changeset
|
1259 (goto-char (point-max)))) |
6ea174960a93
(compilation-start): Always set compilation-last-buffer and return it.
Kim F. Storm <storm@cua.dk>
parents:
54368
diff
changeset
|
1260 ;; Make it so the next C-x ` will use this buffer. |
55068
0cdcedeb25c5
From: Teodor Zlatanov <tzz@lifelogs.com>
Kim F. Storm <storm@cua.dk>
parents:
55007
diff
changeset
|
1261 (setq next-error-last-buffer outbuf))) |
71 | 1262 |
8483
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
1263 (defun compilation-set-window-height (window) |
26222 | 1264 "Set the height of WINDOW according to `compilation-window-height'." |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1265 (let ((height (buffer-local-value 'compilation-window-height (window-buffer window)))) |
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1266 (and height |
78465
b8c25f200566
(compilation-set-window-height): Use window-full-width-p instead of
Martin Rudalics <rudalics@gmx.at>
parents:
78388
diff
changeset
|
1267 (window-full-width-p window) |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1268 ;; If window is alone in its frame, aside from a minibuffer, |
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1269 ;; don't change its height. |
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1270 (not (eq window (frame-root-window (window-frame window)))) |
55990
c6610cef9b75
(compilation-set-window-height): Rearrange the save-* functions because a buffer can have several current point in different windows.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55806
diff
changeset
|
1271 ;; Stef said that doing the saves in this order is safer: |
c6610cef9b75
(compilation-set-window-height): Rearrange the save-* functions because a buffer can have several current point in different windows.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55806
diff
changeset
|
1272 (save-excursion |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1273 (save-selected-window |
55990
c6610cef9b75
(compilation-set-window-height): Rearrange the save-* functions because a buffer can have several current point in different windows.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55806
diff
changeset
|
1274 (select-window window) |
c6610cef9b75
(compilation-set-window-height): Rearrange the save-* functions because a buffer can have several current point in different windows.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55806
diff
changeset
|
1275 (enlarge-window (- height (window-height)))))))) |
8483
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
1276 |
48204
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1277 (defvar compilation-menu-map |
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1278 (let ((map (make-sparse-keymap "Errors"))) |
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1279 (define-key map [stop-subjob] |
48835
750e9e67d3e9
(compilation-menu-map): Use `kill-compilation' to stop compilation.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48721
diff
changeset
|
1280 '("Stop Compilation" . kill-compilation)) |
48204
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1281 (define-key map [compilation-mode-separator2] |
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1282 '("----" . nil)) |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1283 (define-key map [compilation-first-error] |
48204
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1284 '("First Error" . first-error)) |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1285 (define-key map [compilation-previous-error] |
48204
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1286 '("Previous Error" . previous-error)) |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1287 (define-key map [compilation-next-error] |
48204
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1288 '("Next Error" . next-error)) |
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1289 map)) |
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1290 |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1291 (defvar compilation-minor-mode-map |
71 | 1292 (let ((map (make-sparse-keymap))) |
54856
6a45f159f315
(compilation-minor-mode-map)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54854
diff
changeset
|
1293 (define-key map [mouse-2] 'compile-goto-error) |
59025 | 1294 (define-key map [follow-link] 'mouse-face) |
71 | 1295 (define-key map "\C-c\C-c" 'compile-goto-error) |
10268
84777124c262
(compilation-minor-mode-map): Bind C-m to compilation-goto-error.
Richard M. Stallman <rms@gnu.org>
parents:
10096
diff
changeset
|
1296 (define-key map "\C-m" 'compile-goto-error) |
418 | 1297 (define-key map "\C-c\C-k" 'kill-compilation) |
894 | 1298 (define-key map "\M-n" 'compilation-next-error) |
1299 (define-key map "\M-p" 'compilation-previous-error) | |
946 | 1300 (define-key map "\M-{" 'compilation-previous-file) |
1301 (define-key map "\M-}" 'compilation-next-file) | |
48204
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1302 ;; Set up the menu-bar |
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1303 (define-key map [menu-bar compilation] |
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1304 (cons "Errors" compilation-menu-map)) |
71 | 1305 map) |
2760
1c7595e3089b
(Setting minor-mode-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
2603
diff
changeset
|
1306 "Keymap for `compilation-minor-mode'.") |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1307 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1308 (defvar compilation-shell-minor-mode-map |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1309 (let ((map (make-sparse-keymap))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1310 (define-key map "\M-\C-m" 'compile-goto-error) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1311 (define-key map "\M-\C-n" 'compilation-next-error) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1312 (define-key map "\M-\C-p" 'compilation-previous-error) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1313 (define-key map "\M-{" 'compilation-previous-file) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1314 (define-key map "\M-}" 'compilation-next-file) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1315 ;; Set up the menu-bar |
48204
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1316 (define-key map [menu-bar compilation] |
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1317 (cons "Errors" compilation-menu-map)) |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1318 map) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1319 "Keymap for `compilation-shell-minor-mode'.") |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1320 |
54875
21c1ccea9533
(compilation-button-map): New keymap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54868
diff
changeset
|
1321 (defvar compilation-button-map |
21c1ccea9533
(compilation-button-map): New keymap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54868
diff
changeset
|
1322 (let ((map (make-sparse-keymap))) |
21c1ccea9533
(compilation-button-map): New keymap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54868
diff
changeset
|
1323 (define-key map [mouse-2] 'compile-goto-error) |
59025 | 1324 (define-key map [follow-link] 'mouse-face) |
54875
21c1ccea9533
(compilation-button-map): New keymap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54868
diff
changeset
|
1325 (define-key map "\C-m" 'compile-goto-error) |
21c1ccea9533
(compilation-button-map): New keymap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54868
diff
changeset
|
1326 map) |
21c1ccea9533
(compilation-button-map): New keymap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54868
diff
changeset
|
1327 "Keymap for compilation-message buttons.") |
21c1ccea9533
(compilation-button-map): New keymap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54868
diff
changeset
|
1328 (fset 'compilation-button-map compilation-button-map) |
21c1ccea9533
(compilation-button-map): New keymap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54868
diff
changeset
|
1329 |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1330 (defvar compilation-mode-map |
48204
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1331 (let ((map (make-sparse-keymap))) |
58503
dc83ecc1ac97
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
58491
diff
changeset
|
1332 ;; Don't inherit from compilation-minor-mode-map, |
dc83ecc1ac97
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
58491
diff
changeset
|
1333 ;; because that introduces a menu bar item we don't want. |
dc83ecc1ac97
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
58491
diff
changeset
|
1334 ;; That confuses C-down-mouse-3. |
58491
2a47737d91b0
(compilation-mode-map): Don't inherit from compilation-minor-mode-map;
Richard M. Stallman <rms@gnu.org>
parents:
58445
diff
changeset
|
1335 (define-key map [mouse-2] 'compile-goto-error) |
59025 | 1336 (define-key map [follow-link] 'mouse-face) |
58491
2a47737d91b0
(compilation-mode-map): Don't inherit from compilation-minor-mode-map;
Richard M. Stallman <rms@gnu.org>
parents:
58445
diff
changeset
|
1337 (define-key map "\C-c\C-c" 'compile-goto-error) |
2a47737d91b0
(compilation-mode-map): Don't inherit from compilation-minor-mode-map;
Richard M. Stallman <rms@gnu.org>
parents:
58445
diff
changeset
|
1338 (define-key map "\C-m" 'compile-goto-error) |
2a47737d91b0
(compilation-mode-map): Don't inherit from compilation-minor-mode-map;
Richard M. Stallman <rms@gnu.org>
parents:
58445
diff
changeset
|
1339 (define-key map "\C-c\C-k" 'kill-compilation) |
2a47737d91b0
(compilation-mode-map): Don't inherit from compilation-minor-mode-map;
Richard M. Stallman <rms@gnu.org>
parents:
58445
diff
changeset
|
1340 (define-key map "\M-n" 'compilation-next-error) |
2a47737d91b0
(compilation-mode-map): Don't inherit from compilation-minor-mode-map;
Richard M. Stallman <rms@gnu.org>
parents:
58445
diff
changeset
|
1341 (define-key map "\M-p" 'compilation-previous-error) |
2a47737d91b0
(compilation-mode-map): Don't inherit from compilation-minor-mode-map;
Richard M. Stallman <rms@gnu.org>
parents:
58445
diff
changeset
|
1342 (define-key map "\M-{" 'compilation-previous-file) |
2a47737d91b0
(compilation-mode-map): Don't inherit from compilation-minor-mode-map;
Richard M. Stallman <rms@gnu.org>
parents:
58445
diff
changeset
|
1343 (define-key map "\M-}" 'compilation-next-file) |
64727
5f8a240b7621
(compilation-mode-map): Bind TAB to `compilation-next-error'
Juri Linkov <juri@jurta.org>
parents:
64699
diff
changeset
|
1344 (define-key map "\t" 'compilation-next-error) |
5f8a240b7621
(compilation-mode-map): Bind TAB to `compilation-next-error'
Juri Linkov <juri@jurta.org>
parents:
64699
diff
changeset
|
1345 (define-key map [backtab] 'compilation-previous-error) |
58491
2a47737d91b0
(compilation-mode-map): Don't inherit from compilation-minor-mode-map;
Richard M. Stallman <rms@gnu.org>
parents:
58445
diff
changeset
|
1346 |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1347 (define-key map " " 'scroll-up) |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1348 (define-key map "\^?" 'scroll-down) |
57021
600db57321a8
(compilation-mode-map): Rename `next-error-follow-mode' to `next-error-follow-minor-mode'.
Juri Linkov <juri@jurta.org>
parents:
56961
diff
changeset
|
1349 (define-key map "\C-c\C-f" 'next-error-follow-minor-mode) |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1350 |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1351 ;; Set up the menu-bar |
58491
2a47737d91b0
(compilation-mode-map): Don't inherit from compilation-minor-mode-map;
Richard M. Stallman <rms@gnu.org>
parents:
58445
diff
changeset
|
1352 (let ((submap (make-sparse-keymap "Compile"))) |
2a47737d91b0
(compilation-mode-map): Don't inherit from compilation-minor-mode-map;
Richard M. Stallman <rms@gnu.org>
parents:
58445
diff
changeset
|
1353 (define-key map [menu-bar compilation] |
2a47737d91b0
(compilation-mode-map): Don't inherit from compilation-minor-mode-map;
Richard M. Stallman <rms@gnu.org>
parents:
58445
diff
changeset
|
1354 (cons "Compile" submap)) |
2a47737d91b0
(compilation-mode-map): Don't inherit from compilation-minor-mode-map;
Richard M. Stallman <rms@gnu.org>
parents:
58445
diff
changeset
|
1355 (set-keymap-parent submap compilation-menu-map)) |
48204
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1356 (define-key map [menu-bar compilation compilation-separator2] |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1357 '("----" . nil)) |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1358 (define-key map [menu-bar compilation compilation-grep] |
64943
0734dceb92d1
(compilation-mode-font-lock-keywords):
Juri Linkov <juri@jurta.org>
parents:
64926
diff
changeset
|
1359 '("Search Files (grep)..." . grep)) |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1360 (define-key map [menu-bar compilation compilation-recompile] |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1361 '("Recompile" . recompile)) |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1362 (define-key map [menu-bar compilation compilation-compile] |
17057
e54588a6cea9
Add ... to relevant menu entries.
Simon Marshall <simon@gnu.org>
parents:
17056
diff
changeset
|
1363 '("Compile..." . compile)) |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1364 map) |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1365 "Keymap for compilation log buffers. |
48204
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1366 `compilation-minor-mode-map' is a parent of this.") |
71 | 1367 |
17653
b7810d4fb620
(compilation-mode): Add a mode-class property.
Richard M. Stallman <rms@gnu.org>
parents:
17639
diff
changeset
|
1368 (put 'compilation-mode 'mode-class 'special) |
b7810d4fb620
(compilation-mode): Add a mode-class property.
Richard M. Stallman <rms@gnu.org>
parents:
17639
diff
changeset
|
1369 |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
1370 ;;;###autoload |
57517
7a899182458c
(compilation-start): Assume compilation-mode will make the buffer read-only.
Richard M. Stallman <rms@gnu.org>
parents:
57067
diff
changeset
|
1371 (defun compilation-mode (&optional name-of-mode) |
71 | 1372 "Major mode for compilation log buffers. |
1373 \\<compilation-mode-map>To visit the source for a line-numbered error, | |
418 | 1374 move point to the error message line and type \\[compile-goto-error]. |
569 | 1375 To kill the compilation, type \\[kill-compilation]. |
1376 | |
64194
76fced56e97e
(compilation-mode-hook, compilation-mode): Doc fix.
Juri Linkov <juri@jurta.org>
parents:
64085
diff
changeset
|
1377 Runs `compilation-mode-hook' with `run-mode-hooks' (which see). |
56687
fb266772e0e7
(compilation-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
56154
diff
changeset
|
1378 |
fb266772e0e7
(compilation-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
56154
diff
changeset
|
1379 \\{compilation-mode-map}" |
71 | 1380 (interactive) |
9376
f0ac347309e2
(compilation-mode-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8976
diff
changeset
|
1381 (kill-all-local-variables) |
71 | 1382 (use-local-map compilation-mode-map) |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1383 (setq major-mode 'compilation-mode |
57517
7a899182458c
(compilation-start): Assume compilation-mode will make the buffer read-only.
Richard M. Stallman <rms@gnu.org>
parents:
57067
diff
changeset
|
1384 mode-name (or name-of-mode "Compilation")) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1385 (set (make-local-variable 'page-delimiter) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1386 compilation-page-delimiter) |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1387 (compilation-setup) |
58256
02a1d74082fd
(compilation-setup): Don't set buffer-read-only.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58244
diff
changeset
|
1388 (setq buffer-read-only t) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1389 (run-mode-hooks 'compilation-mode-hook)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1390 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1391 (defmacro define-compilation-mode (mode name doc &rest body) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1392 "This is like `define-derived-mode' without the PARENT argument. |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1393 The parent is always `compilation-mode' and the customizable `compilation-...' |
65070
5a147188ccac
(compilation-disable-input): Doc fix.
Juri Linkov <juri@jurta.org>
parents:
65055
diff
changeset
|
1394 variables are also set from the name of the mode you have chosen, |
5a147188ccac
(compilation-disable-input): Doc fix.
Juri Linkov <juri@jurta.org>
parents:
65055
diff
changeset
|
1395 by replacing the first word, e.g `compilation-scroll-output' from |
5a147188ccac
(compilation-disable-input): Doc fix.
Juri Linkov <juri@jurta.org>
parents:
65055
diff
changeset
|
1396 `grep-scroll-output' if that variable exists." |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1397 (let ((mode-name (replace-regexp-in-string "-mode\\'" "" (symbol-name mode)))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1398 `(define-derived-mode ,mode compilation-mode ,name |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1399 ,doc |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1400 ,@(mapcar (lambda (v) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1401 (setq v (cons v |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1402 (intern-soft (replace-regexp-in-string |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1403 "^compilation" mode-name |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1404 (symbol-name v))))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1405 (and (cdr v) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1406 (or (boundp (cdr v)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1407 (if (boundp 'byte-compile-bound-variables) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1408 (memq (cdr v) byte-compile-bound-variables))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1409 `(set (make-local-variable ',(car v)) ,(cdr v)))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1410 '(compilation-buffer-name-function |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1411 compilation-directory-matcher |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1412 compilation-error |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1413 compilation-error-regexp-alist |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1414 compilation-error-regexp-alist-alist |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1415 compilation-error-screen-columns |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1416 compilation-finish-function |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1417 compilation-finish-functions |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1418 compilation-first-column |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1419 compilation-mode-font-lock-keywords |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1420 compilation-page-delimiter |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1421 compilation-parse-errors-filename-function |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1422 compilation-process-setup-function |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1423 compilation-scroll-output |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1424 compilation-search-path |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1425 compilation-skip-threshold |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1426 compilation-window-height)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1427 ,@body))) |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1428 |
17866
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
1429 (defun compilation-revert-buffer (ignore-auto noconfirm) |
49186
ce4ad428dcab
(compilation-revert-buffer): If buffer has a file, revert it in the normal way.
Richard M. Stallman <rms@gnu.org>
parents:
48844
diff
changeset
|
1430 (if buffer-file-name |
ce4ad428dcab
(compilation-revert-buffer): If buffer has a file, revert it in the normal way.
Richard M. Stallman <rms@gnu.org>
parents:
48844
diff
changeset
|
1431 (let (revert-buffer-function) |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1432 (revert-buffer ignore-auto noconfirm)) |
49186
ce4ad428dcab
(compilation-revert-buffer): If buffer has a file, revert it in the normal way.
Richard M. Stallman <rms@gnu.org>
parents:
48844
diff
changeset
|
1433 (if (or noconfirm (yes-or-no-p (format "Restart compilation? "))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1434 (apply 'compilation-start compilation-arguments)))) |
17866
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
1435 |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1436 (defvar compilation-current-error nil |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1437 "Marker to the location from where the next error will be found. |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1438 The global commands next/previous/first-error/goto-error use this.") |
54676 | 1439 |
55299
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
1440 (defvar compilation-messages-start nil |
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
1441 "Buffer position of the beginning of the compilation messages. |
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
1442 If nil, use the beginning of buffer.") |
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
1443 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1444 ;; A function name can't be a hook, must be something with a value. |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1445 (defconst compilation-turn-on-font-lock 'turn-on-font-lock) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1446 |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1447 (defun compilation-setup (&optional minor) |
54941 | 1448 "Prepare the buffer for the compilation parsing commands to work. |
1449 Optional argument MINOR indicates this is called from | |
1450 `compilation-minor-mode'." | |
54676 | 1451 (make-local-variable 'compilation-current-error) |
55299
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
1452 (make-local-variable 'compilation-messages-start) |
30688
f0a91dd9685b
(compilation-setup): Make variable
Gerd Moellmann <gerd@gnu.org>
parents:
29121
diff
changeset
|
1453 (make-local-variable 'compilation-error-screen-columns) |
54854
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1454 (make-local-variable 'overlay-arrow-position) |
62381
30c05755e6b5
(compilation-setup): Set local value of
Nick Roberts <nickrob@snap.net.nz>
parents:
62158
diff
changeset
|
1455 (set (make-local-variable 'overlay-arrow-string) "") |
61362 | 1456 (setq next-error-overlay-arrow-position nil) |
1457 (add-hook 'kill-buffer-hook | |
1458 (lambda () (setq next-error-overlay-arrow-position nil)) nil t) | |
55299
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
1459 ;; Note that compilation-next-error-function is for interfacing |
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
1460 ;; with the next-error function in simple.el, and it's only |
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
1461 ;; coincidentally named similarly to compilation-next-error. |
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
1462 (setq next-error-function 'compilation-next-error-function) |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
81135
diff
changeset
|
1463 (set (make-local-variable 'comint-file-name-prefix) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
81135
diff
changeset
|
1464 (or (file-remote-p default-directory) "")) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1465 (set (make-local-variable 'font-lock-extra-managed-props) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1466 '(directory message help-echo mouse-face debug)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1467 (set (make-local-variable 'compilation-locs) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1468 (make-hash-table :test 'equal :weakness 'value)) |
54941 | 1469 ;; lazy-lock would never find the message unless it's scrolled to. |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1470 ;; jit-lock might fontify some things too late. |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1471 (set (make-local-variable 'font-lock-support-mode) nil) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1472 (set (make-local-variable 'font-lock-maximum-size) nil) |
67112
146389d32df6
* hi-lock.el (hi-lock-buffer-mode): Renamed from `hi-lock-mode'.
Chong Yidong <cyd@stupidchicken.com>
parents:
66735
diff
changeset
|
1473 (if minor |
146389d32df6
* hi-lock.el (hi-lock-buffer-mode): Renamed from `hi-lock-mode'.
Chong Yidong <cyd@stupidchicken.com>
parents:
66735
diff
changeset
|
1474 (let ((fld font-lock-defaults)) |
54742
0a2de4900b34
(compilation-warning-face, compilation-info-face, compilation-skip-threshold)
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54700
diff
changeset
|
1475 (font-lock-add-keywords nil (compilation-mode-font-lock-keywords)) |
0a2de4900b34
(compilation-warning-face, compilation-info-face, compilation-skip-threshold)
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54700
diff
changeset
|
1476 (if font-lock-mode |
0a2de4900b34
(compilation-warning-face, compilation-info-face, compilation-skip-threshold)
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54700
diff
changeset
|
1477 (if fld |
0a2de4900b34
(compilation-warning-face, compilation-info-face, compilation-skip-threshold)
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54700
diff
changeset
|
1478 (font-lock-fontify-buffer) |
0a2de4900b34
(compilation-warning-face, compilation-info-face, compilation-skip-threshold)
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54700
diff
changeset
|
1479 (font-lock-change-mode) |
0a2de4900b34
(compilation-warning-face, compilation-info-face, compilation-skip-threshold)
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54700
diff
changeset
|
1480 (turn-on-font-lock)) |
67112
146389d32df6
* hi-lock.el (hi-lock-buffer-mode): Renamed from `hi-lock-mode'.
Chong Yidong <cyd@stupidchicken.com>
parents:
66735
diff
changeset
|
1481 (turn-on-font-lock))) |
67126
ed2c1481cde9
* progmodes/compile.el (compilation-setup): Fix last fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
67112
diff
changeset
|
1482 (setq font-lock-defaults '(compilation-mode-font-lock-keywords t)) |
67112
146389d32df6
* hi-lock.el (hi-lock-buffer-mode): Renamed from `hi-lock-mode'.
Chong Yidong <cyd@stupidchicken.com>
parents:
66735
diff
changeset
|
1483 ;; maybe defer font-lock till after derived mode is set up |
146389d32df6
* hi-lock.el (hi-lock-buffer-mode): Renamed from `hi-lock-mode'.
Chong Yidong <cyd@stupidchicken.com>
parents:
66735
diff
changeset
|
1484 (run-mode-hooks 'compilation-turn-on-font-lock))) |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1485 |
48204
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1486 ;;;###autoload |
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1487 (define-minor-mode compilation-shell-minor-mode |
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1488 "Toggle compilation shell minor mode. |
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1489 With arg, turn compilation mode on if and only if arg is positive. |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1490 In this minor mode, all the error-parsing commands of the |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1491 Compilation major mode are available but bound to keys that don't |
48204
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1492 collide with Shell mode. See `compilation-mode'. |
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1493 Turning the mode on runs the normal hook `compilation-shell-minor-mode-hook'." |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1494 nil " Shell-Compile" |
48400
e57b9088b4a1
(compilation-shell-minor-mode): Add group.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48279
diff
changeset
|
1495 :group 'compilation |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1496 (if compilation-shell-minor-mode |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1497 (compilation-setup t) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1498 (font-lock-remove-keywords nil (compilation-mode-font-lock-keywords)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1499 (font-lock-fontify-buffer))) |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1500 |
4445
a1e412873732
(compilation-minor-mode): Make variable buffer-local.
Roland McGrath <roland@gnu.org>
parents:
4350
diff
changeset
|
1501 ;;;###autoload |
48204
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1502 (define-minor-mode compilation-minor-mode |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1503 "Toggle compilation minor mode. |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1504 With arg, turn compilation mode on if and only if arg is positive. |
48204
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1505 In this minor mode, all the error-parsing commands of the |
1ee4b312fef0
(grep-default-command): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48197
diff
changeset
|
1506 Compilation major mode are available. See `compilation-mode'. |
14607
3c86ac6a871a
(compilation-minor-mode): Run compilation-minor-mode-hook.
Roland McGrath <roland@gnu.org>
parents:
14562
diff
changeset
|
1507 Turning the mode on runs the normal hook `compilation-minor-mode-hook'." |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1508 nil " Compilation" |
48400
e57b9088b4a1
(compilation-shell-minor-mode): Add group.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48279
diff
changeset
|
1509 :group 'compilation |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1510 (if compilation-minor-mode |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1511 (compilation-setup t) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1512 (font-lock-remove-keywords nil (compilation-mode-font-lock-keywords)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1513 (font-lock-fontify-buffer))) |
71 | 1514 |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1515 (defun compilation-handle-exit (process-status exit-status msg) |
77886
c90e5f7ef586
(compilation-find-file, compilation-handle-exit): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
77786
diff
changeset
|
1516 "Write MSG in the current buffer and hack its `mode-line-process'." |
57517
7a899182458c
(compilation-start): Assume compilation-mode will make the buffer read-only.
Richard M. Stallman <rms@gnu.org>
parents:
57067
diff
changeset
|
1517 (let ((inhibit-read-only t) |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1518 (status (if compilation-exit-message-function |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1519 (funcall compilation-exit-message-function |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1520 process-status exit-status msg) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1521 (cons msg exit-status))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1522 (omax (point-max)) |
77786
a4a6ec16f923
Nikolaj Schumacher <n_schumacher at web.de> (tiny change)
Glenn Morris <rgm@gnu.org>
parents:
77723
diff
changeset
|
1523 (opoint (point)) |
a4a6ec16f923
Nikolaj Schumacher <n_schumacher at web.de> (tiny change)
Glenn Morris <rgm@gnu.org>
parents:
77723
diff
changeset
|
1524 (cur-buffer (current-buffer))) |
54854
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1525 ;; Record where we put the message, so we can ignore it later on. |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1526 (goto-char omax) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1527 (insert ?\n mode-name " " (car status)) |
44209
9501986a69c8
(compilation-handle-exit):
Richard M. Stallman <rms@gnu.org>
parents:
44139
diff
changeset
|
1528 (if (and (numberp compilation-window-height) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1529 (zerop compilation-window-height)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1530 (message "%s" (cdr status))) |
24558
ea8a9509b52f
(compilation-handle-exit): Do right thing
Richard M. Stallman <rms@gnu.org>
parents:
24326
diff
changeset
|
1531 (if (bolp) |
ea8a9509b52f
(compilation-handle-exit): Do right thing
Richard M. Stallman <rms@gnu.org>
parents:
24326
diff
changeset
|
1532 (forward-char -1)) |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1533 (insert " at " (substring (current-time-string) 0 19)) |
24558
ea8a9509b52f
(compilation-handle-exit): Do right thing
Richard M. Stallman <rms@gnu.org>
parents:
24326
diff
changeset
|
1534 (goto-char (point-max)) |
42939
0786ea38f9fd
(compilation-handle-exit):
Richard M. Stallman <rms@gnu.org>
parents:
42408
diff
changeset
|
1535 ;; Prevent that message from being recognized as a compilation error. |
0786ea38f9fd
(compilation-handle-exit):
Richard M. Stallman <rms@gnu.org>
parents:
42408
diff
changeset
|
1536 (add-text-properties omax (point) |
0786ea38f9fd
(compilation-handle-exit):
Richard M. Stallman <rms@gnu.org>
parents:
42408
diff
changeset
|
1537 (append '(compilation-handle-exit t) nil)) |
14260
4577848d3ef2
(compilation-handle-exit): Undo previous change.
Karl Heuer <kwzh@gnu.org>
parents:
14250
diff
changeset
|
1538 (setq mode-line-process (format ":%s [%s]" process-status (cdr status))) |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1539 ;; Force mode line redisplay soon. |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1540 (force-mode-line-update) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1541 (if (and opoint (< opoint omax)) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1542 (goto-char opoint)) |
63815
015343385a78
(compilation-next-error-function):
Richard M. Stallman <rms@gnu.org>
parents:
63299
diff
changeset
|
1543 (with-no-warnings |
015343385a78
(compilation-next-error-function):
Richard M. Stallman <rms@gnu.org>
parents:
63299
diff
changeset
|
1544 (if compilation-finish-function |
77786
a4a6ec16f923
Nikolaj Schumacher <n_schumacher at web.de> (tiny change)
Glenn Morris <rgm@gnu.org>
parents:
77723
diff
changeset
|
1545 (funcall compilation-finish-function cur-buffer msg))) |
a4a6ec16f923
Nikolaj Schumacher <n_schumacher at web.de> (tiny change)
Glenn Morris <rgm@gnu.org>
parents:
77723
diff
changeset
|
1546 (run-hook-with-args 'compilation-finish-functions cur-buffer msg))) |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1547 |
71 | 1548 ;; Called when compilation process changes state. |
1549 (defun compilation-sentinel (proc msg) | |
418 | 1550 "Sentinel for compilation buffers." |
54854
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1551 (if (memq (process-status proc) '(exit signal)) |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1552 (let ((buffer (process-buffer proc))) |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1553 (if (null (buffer-name buffer)) |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1554 ;; buffer killed |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1555 (set-process-buffer proc nil) |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1556 (with-current-buffer buffer |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1557 ;; Write something in the compilation buffer |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1558 ;; and hack its mode line. |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1559 (compilation-handle-exit (process-status proc) |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1560 (process-exit-status proc) |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1561 msg) |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1562 ;; Since the buffer and mode line will show that the |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1563 ;; process is dead, we can delete it now. Otherwise it |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1564 ;; will stay around until M-x list-processes. |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1565 (delete-process proc))) |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1566 (setq compilation-in-progress (delq proc compilation-in-progress))))) |
71 | 1567 |
2472
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
1568 (defun compilation-filter (proc string) |
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
1569 "Process filter for compilation buffers. |
2760
1c7595e3089b
(Setting minor-mode-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
2603
diff
changeset
|
1570 Just inserts the text, but uses `insert-before-markers'." |
9511
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
1571 (if (buffer-name (process-buffer proc)) |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1572 (with-current-buffer (process-buffer proc) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1573 (let ((inhibit-read-only t)) |
9511
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
1574 (save-excursion |
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
1575 (goto-char (process-mark proc)) |
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
1576 (insert-before-markers string) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1577 (run-hooks 'compilation-filter-hook)))))) |
920 | 1578 |
55068
0cdcedeb25c5
From: Teodor Zlatanov <tzz@lifelogs.com>
Kim F. Storm <storm@cua.dk>
parents:
55007
diff
changeset
|
1579 ;;; test if a buffer is a compilation buffer, assuming we're in the buffer |
0cdcedeb25c5
From: Teodor Zlatanov <tzz@lifelogs.com>
Kim F. Storm <storm@cua.dk>
parents:
55007
diff
changeset
|
1580 (defsubst compilation-buffer-internal-p () |
0cdcedeb25c5
From: Teodor Zlatanov <tzz@lifelogs.com>
Kim F. Storm <storm@cua.dk>
parents:
55007
diff
changeset
|
1581 "Test if inside a compilation buffer." |
0cdcedeb25c5
From: Teodor Zlatanov <tzz@lifelogs.com>
Kim F. Storm <storm@cua.dk>
parents:
55007
diff
changeset
|
1582 (local-variable-p 'compilation-locs)) |
0cdcedeb25c5
From: Teodor Zlatanov <tzz@lifelogs.com>
Kim F. Storm <storm@cua.dk>
parents:
55007
diff
changeset
|
1583 |
0cdcedeb25c5
From: Teodor Zlatanov <tzz@lifelogs.com>
Kim F. Storm <storm@cua.dk>
parents:
55007
diff
changeset
|
1584 ;;; test if a buffer is a compilation buffer, using compilation-buffer-internal-p |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1585 (defsubst compilation-buffer-p (buffer) |
55068
0cdcedeb25c5
From: Teodor Zlatanov <tzz@lifelogs.com>
Kim F. Storm <storm@cua.dk>
parents:
55007
diff
changeset
|
1586 "Test if BUFFER is a compilation buffer." |
0cdcedeb25c5
From: Teodor Zlatanov <tzz@lifelogs.com>
Kim F. Storm <storm@cua.dk>
parents:
55007
diff
changeset
|
1587 (with-current-buffer buffer |
0cdcedeb25c5
From: Teodor Zlatanov <tzz@lifelogs.com>
Kim F. Storm <storm@cua.dk>
parents:
55007
diff
changeset
|
1588 (compilation-buffer-internal-p))) |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1589 |
75281
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1590 (defmacro compilation-loop (< property-change 1+ error limit) |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1591 `(let (opt) |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1592 (while (,< n 0) |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1593 (setq opt pt) |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1594 (or (setq pt (,property-change pt 'message)) |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1595 ;; Handle the case where where the first error message is |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1596 ;; at the start of the buffer, and n < 0. |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1597 (if (or (eq (get-text-property ,limit 'message) |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1598 (get-text-property opt 'message)) |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1599 (eq pt opt)) |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1600 (error ,error compilation-error) |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1601 (setq pt ,limit))) |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1602 ;; prop 'message usually has 2 changes, on and off, so |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1603 ;; re-search if off |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1604 (or (setq msg (get-text-property pt 'message)) |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1605 (if (setq pt (,property-change pt 'message nil ,limit)) |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1606 (setq msg (get-text-property pt 'message))) |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1607 (error ,error compilation-error)) |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1608 (or (< (cadr msg) compilation-skip-threshold) |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1609 (if different-file |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1610 (eq (prog1 last (setq last (nth 2 (car msg)))) |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1611 last)) |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1612 (if compilation-skip-visited |
81133
1b2ee4e66d28
Add TIMESTAMP to LOC to handle "incremental compilation", e.g.,
Sam Steingold <sds@gnu.org>
parents:
81047
diff
changeset
|
1613 (nthcdr 5 (car msg))) |
75281
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1614 (if compilation-skip-to-next-location |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1615 (eq (car msg) loc)) |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1616 ;; count this message only if none of the above are true |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1617 (setq n (,1+ n)))))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1618 |
54676 | 1619 (defun compilation-next-error (n &optional different-file pt) |
894 | 1620 "Move point to the next error in the compilation buffer. |
26222 | 1621 Prefix arg N says how many error messages to move forwards (or |
1622 backwards, if negative). | |
894 | 1623 Does NOT find the source line like \\[next-error]." |
1624 (interactive "p") | |
1625 (or (compilation-buffer-p (current-buffer)) | |
26222 | 1626 (error "Not in a compilation buffer")) |
54676 | 1627 (or pt (setq pt (point))) |
1628 (let* ((msg (get-text-property pt 'message)) | |
1629 (loc (car msg)) | |
1630 last) | |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1631 (if (zerop n) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1632 (unless (or msg ; find message near here |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1633 (setq msg (get-text-property (max (1- pt) (point-min)) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1634 'message))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1635 (setq pt (previous-single-property-change pt 'message nil |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1636 (line-beginning-position))) |
54854
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1637 (unless (setq msg (get-text-property (max (1- pt) (point-min)) 'message)) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1638 (setq pt (next-single-property-change pt 'message nil |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1639 (line-end-position))) |
54854
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1640 (or (setq msg (get-text-property pt 'message)) |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1641 (setq pt (point))))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1642 (setq last (nth 2 (car msg))) |
54676 | 1643 (if (>= n 0) |
1644 (compilation-loop > next-single-property-change 1- | |
1645 (if (get-buffer-process (current-buffer)) | |
1646 "No more %ss yet" | |
75281
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1647 "Moved past last %s") |
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1648 (point-max)) |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1649 ;; Don't move "back" to message at or before point. |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1650 ;; Pass an explicit (point-min) to make sure pt is non-nil. |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1651 (setq pt (previous-single-property-change pt 'message nil (point-min))) |
54676 | 1652 (compilation-loop < previous-single-property-change 1+ |
75281
4f425a488281
(compilation-loop): New arg limit. Handle case where the first error
Chong Yidong <cyd@stupidchicken.com>
parents:
75145
diff
changeset
|
1653 "Moved back before first %s" (point-min)))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1654 (goto-char pt) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1655 (or msg |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1656 (error "No %s here" compilation-error)))) |
894 | 1657 |
1658 (defun compilation-previous-error (n) | |
1659 "Move point to the previous error in the compilation buffer. | |
26222 | 1660 Prefix arg N says how many error messages to move backwards (or |
1661 forwards, if negative). | |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1662 Does NOT find the source line like \\[previous-error]." |
894 | 1663 (interactive "p") |
1664 (compilation-next-error (- n))) | |
1665 | |
920 | 1666 (defun compilation-next-file (n) |
54610
3ae52d0dfe0b
doc fixes and restore optionality of next-error's arg
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54424
diff
changeset
|
1667 "Move point to the next error for a different file than the current one. |
3ae52d0dfe0b
doc fixes and restore optionality of next-error's arg
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54424
diff
changeset
|
1668 Prefix arg N says how many files to move forwards (or backwards, if negative)." |
920 | 1669 (interactive "p") |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1670 (compilation-next-error n t)) |
920 | 1671 |
1672 (defun compilation-previous-file (n) | |
54610
3ae52d0dfe0b
doc fixes and restore optionality of next-error's arg
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54424
diff
changeset
|
1673 "Move point to the previous error for a different file than the current one. |
3ae52d0dfe0b
doc fixes and restore optionality of next-error's arg
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54424
diff
changeset
|
1674 Prefix arg N says how many files to move backwards (or forwards, if negative)." |
920 | 1675 (interactive "p") |
1676 (compilation-next-file (- n))) | |
1677 | |
71 | 1678 (defun kill-compilation () |
45582
08fe4d419957
Modified doc string to say that the kill-compilation function also
Robert J. Chassell <bob@rattlesnake.com>
parents:
45215
diff
changeset
|
1679 "Kill the process made by the \\[compile] or \\[grep] commands." |
71 | 1680 (interactive) |
418 | 1681 (let ((buffer (compilation-find-buffer))) |
71 | 1682 (if (get-buffer-process buffer) |
418 | 1683 (interrupt-process (get-buffer-process buffer)) |
65070
5a147188ccac
(compilation-disable-input): Doc fix.
Juri Linkov <juri@jurta.org>
parents:
65055
diff
changeset
|
1684 (error "The %s process is not running" (downcase mode-name))))) |
71 | 1685 |
54856
6a45f159f315
(compilation-minor-mode-map)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54854
diff
changeset
|
1686 (defalias 'compile-mouse-goto-error 'compile-goto-error) |
6a45f159f315
(compilation-minor-mode-map)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54854
diff
changeset
|
1687 |
6a45f159f315
(compilation-minor-mode-map)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54854
diff
changeset
|
1688 (defun compile-goto-error (&optional event) |
6a45f159f315
(compilation-minor-mode-map)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54854
diff
changeset
|
1689 "Visit the source for the error message at point. |
6a45f159f315
(compilation-minor-mode-map)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54854
diff
changeset
|
1690 Use this command in a compilation log buffer. Sets the mark at point there." |
6a45f159f315
(compilation-minor-mode-map)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54854
diff
changeset
|
1691 (interactive (list last-input-event)) |
54868
a50d004dc072
(compile-goto-error): Use it.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54857
diff
changeset
|
1692 (if event (posn-set-point (event-end event))) |
418 | 1693 (or (compilation-buffer-p (current-buffer)) |
26222 | 1694 (error "Not in a compilation buffer")) |
54854
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1695 (if (get-text-property (point) 'directory) |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1696 (dired-other-window (car (get-text-property (point) 'directory))) |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1697 (push-mark) |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1698 (setq compilation-current-error (point)) |
65788
cbc600deccb5
(compile-goto-error): Delete extra paren.
Romain Francoise <romain@orebokech.com>
parents:
65783
diff
changeset
|
1699 (next-error-internal))) |
71 | 1700 |
59116
dc790c155f8a
(compilation-find-buffer): Rename arg.
Richard M. Stallman <rms@gnu.org>
parents:
59025
diff
changeset
|
1701 (defun compilation-find-buffer (&optional avoid-current) |
78388
b589cafd502b
(compilation-find-buffer): Return current buffer immediately if suitable.
Richard M. Stallman <rms@gnu.org>
parents:
78234
diff
changeset
|
1702 "Return a compilation buffer. |
78465
b8c25f200566
(compilation-set-window-height): Use window-full-width-p instead of
Martin Rudalics <rudalics@gmx.at>
parents:
78388
diff
changeset
|
1703 If AVOID-CURRENT is nil, and the current buffer is a compilation buffer, |
b8c25f200566
(compilation-set-window-height): Use window-full-width-p instead of
Martin Rudalics <rudalics@gmx.at>
parents:
78388
diff
changeset
|
1704 return it. If AVOID-CURRENT is non-nil, return the current buffer only |
b8c25f200566
(compilation-set-window-height): Use window-full-width-p instead of
Martin Rudalics <rudalics@gmx.at>
parents:
78388
diff
changeset
|
1705 as a last resort." |
b8c25f200566
(compilation-set-window-height): Use window-full-width-p instead of
Martin Rudalics <rudalics@gmx.at>
parents:
78388
diff
changeset
|
1706 (if (and (compilation-buffer-internal-p) (not avoid-current)) |
78388
b589cafd502b
(compilation-find-buffer): Return current buffer immediately if suitable.
Richard M. Stallman <rms@gnu.org>
parents:
78234
diff
changeset
|
1707 (current-buffer) |
b589cafd502b
(compilation-find-buffer): Return current buffer immediately if suitable.
Richard M. Stallman <rms@gnu.org>
parents:
78234
diff
changeset
|
1708 (next-error-find-buffer avoid-current 'compilation-buffer-internal-p))) |
418 | 1709 |
1710 ;;;###autoload | |
55068
0cdcedeb25c5
From: Teodor Zlatanov <tzz@lifelogs.com>
Kim F. Storm <storm@cua.dk>
parents:
55007
diff
changeset
|
1711 (defun compilation-next-error-function (n &optional reset) |
63815
015343385a78
(compilation-next-error-function):
Richard M. Stallman <rms@gnu.org>
parents:
63299
diff
changeset
|
1712 "Advance to the next error message and visit the file where the error was. |
015343385a78
(compilation-next-error-function):
Richard M. Stallman <rms@gnu.org>
parents:
63299
diff
changeset
|
1713 This is the value of `next-error-function' in Compilation buffers." |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1714 (interactive "p") |
55068
0cdcedeb25c5
From: Teodor Zlatanov <tzz@lifelogs.com>
Kim F. Storm <storm@cua.dk>
parents:
55007
diff
changeset
|
1715 (when reset |
0cdcedeb25c5
From: Teodor Zlatanov <tzz@lifelogs.com>
Kim F. Storm <storm@cua.dk>
parents:
55007
diff
changeset
|
1716 (setq compilation-current-error nil)) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1717 (let* ((columns compilation-error-screen-columns) ; buffer's local value |
81133
1b2ee4e66d28
Add TIMESTAMP to LOC to handle "incremental compilation", e.g.,
Sam Steingold <sds@gnu.org>
parents:
81047
diff
changeset
|
1718 (last 1) timestamp |
54676 | 1719 (loc (compilation-next-error (or n 1) nil |
55299
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
1720 (or compilation-current-error |
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
1721 compilation-messages-start |
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
1722 (point-min)))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1723 (end-loc (nth 2 loc)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1724 (marker (point-marker))) |
54676 | 1725 (setq compilation-current-error (point-marker) |
54854
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1726 overlay-arrow-position |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1727 (if (bolp) |
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
1728 compilation-current-error |
55299
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
1729 (copy-marker (line-beginning-position))) |
54676 | 1730 loc (car loc)) |
81133
1b2ee4e66d28
Add TIMESTAMP to LOC to handle "incremental compilation", e.g.,
Sam Steingold <sds@gnu.org>
parents:
81047
diff
changeset
|
1731 ;; If loc contains no marker, no error in that file has been visited. |
1b2ee4e66d28
Add TIMESTAMP to LOC to handle "incremental compilation", e.g.,
Sam Steingold <sds@gnu.org>
parents:
81047
diff
changeset
|
1732 ;; If the marker is invalid the buffer has been killed. |
1b2ee4e66d28
Add TIMESTAMP to LOC to handle "incremental compilation", e.g.,
Sam Steingold <sds@gnu.org>
parents:
81047
diff
changeset
|
1733 ;; If the file is newer than the timestamp, it has been modified |
1b2ee4e66d28
Add TIMESTAMP to LOC to handle "incremental compilation", e.g.,
Sam Steingold <sds@gnu.org>
parents:
81047
diff
changeset
|
1734 ;; (`omake -P' polls filesystem for changes and recompiles when needed |
1b2ee4e66d28
Add TIMESTAMP to LOC to handle "incremental compilation", e.g.,
Sam Steingold <sds@gnu.org>
parents:
81047
diff
changeset
|
1735 ;; in the same process and buffer). |
1b2ee4e66d28
Add TIMESTAMP to LOC to handle "incremental compilation", e.g.,
Sam Steingold <sds@gnu.org>
parents:
81047
diff
changeset
|
1736 ;; So, recalculate all markers for that file. |
1b2ee4e66d28
Add TIMESTAMP to LOC to handle "incremental compilation", e.g.,
Sam Steingold <sds@gnu.org>
parents:
81047
diff
changeset
|
1737 (unless (and (nth 3 loc) (marker-buffer (nth 3 loc)) |
85366
e8f9d460bc3e
(compilation-next-error-function): Fix timestamp
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85114
diff
changeset
|
1738 ;; There may be no timestamp info if the loc is a `fake-loc'. |
e8f9d460bc3e
(compilation-next-error-function): Fix timestamp
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85114
diff
changeset
|
1739 ;; So we skip the time-check here, although we should maybe |
e8f9d460bc3e
(compilation-next-error-function): Fix timestamp
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85114
diff
changeset
|
1740 ;; change `compilation-fake-loc' to add timestamp info. |
e8f9d460bc3e
(compilation-next-error-function): Fix timestamp
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85114
diff
changeset
|
1741 (or (null (nth 4 loc)) |
e8f9d460bc3e
(compilation-next-error-function): Fix timestamp
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85114
diff
changeset
|
1742 (equal (nth 4 loc) |
e8f9d460bc3e
(compilation-next-error-function): Fix timestamp
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85114
diff
changeset
|
1743 (setq timestamp |
e8f9d460bc3e
(compilation-next-error-function): Fix timestamp
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85114
diff
changeset
|
1744 (with-current-buffer |
e8f9d460bc3e
(compilation-next-error-function): Fix timestamp
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85114
diff
changeset
|
1745 (marker-buffer (nth 3 loc)) |
e8f9d460bc3e
(compilation-next-error-function): Fix timestamp
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85114
diff
changeset
|
1746 (visited-file-modtime)))))) |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1747 (with-current-buffer (compilation-find-file marker (caar (nth 2 loc)) |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
1748 (cadr (car (nth 2 loc)))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1749 (save-restriction |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1750 (widen) |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1751 (goto-char (point-min)) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1752 ;; Treat file's found lines in forward order, 1 by 1. |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1753 (dolist (line (reverse (cddr (nth 2 loc)))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1754 (when (car line) ; else this is a filename w/o a line# |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1755 (beginning-of-line (- (car line) last -1)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1756 (setq last (car line))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1757 ;; Treat line's found columns and store/update a marker for each. |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1758 (dolist (col (cdr line)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1759 (if (car col) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1760 (if (eq (car col) -1) ; special case for range end |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1761 (end-of-line) |
58244
1c84cc19e954
(compilation-move-to-column): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58227
diff
changeset
|
1762 (compilation-move-to-column (car col) columns)) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1763 (beginning-of-line) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1764 (skip-chars-forward " \t")) |
54939
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1765 (if (nth 3 col) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1766 (set-marker (nth 3 col) (point)) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1767 (setcdr (nthcdr 2 col) `(,(point-marker))))))))) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1768 (compilation-goto-locus marker (nth 3 loc) (nth 3 end-loc)) |
81133
1b2ee4e66d28
Add TIMESTAMP to LOC to handle "incremental compilation", e.g.,
Sam Steingold <sds@gnu.org>
parents:
81047
diff
changeset
|
1769 (setcdr (nthcdr 3 loc) (list timestamp)) |
1b2ee4e66d28
Add TIMESTAMP to LOC to handle "incremental compilation", e.g.,
Sam Steingold <sds@gnu.org>
parents:
81047
diff
changeset
|
1770 (setcdr (nthcdr 4 loc) t))) ; Set this one as visited. |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1771 |
55324
8e480ee75c47
(compilation-gcpro): New var
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55313
diff
changeset
|
1772 (defvar compilation-gcpro nil |
8e480ee75c47
(compilation-gcpro): New var
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55313
diff
changeset
|
1773 "Internal variable used to keep some values from being GC'd.") |
8e480ee75c47
(compilation-gcpro): New var
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55313
diff
changeset
|
1774 (make-variable-buffer-local 'compilation-gcpro) |
8e480ee75c47
(compilation-gcpro): New var
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55313
diff
changeset
|
1775 |
54939
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1776 (defun compilation-fake-loc (marker file &optional line col) |
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1777 "Preassociate MARKER with FILE. |
55131
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
1778 FILE should be ABSOLUTE-FILENAME or (RELATIVE-FILENAME . DIRNAME). |
54939
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1779 This is useful when you compile temporary files, but want |
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1780 automatic translation of the messages to the real buffer from |
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1781 which the temporary file came. This only works if done before a |
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1782 message about FILE appears! |
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1783 |
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1784 Optional args LINE and COL default to 1 and beginning of |
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1785 indentation respectively. The marker is expected to reflect |
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1786 this. In the simplest case the marker points to the first line |
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1787 of the region that was saved to the temp file. |
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1788 |
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1789 If you concatenate several regions into the temp file (e.g. a |
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1790 header with variable assignments and a code region), you must |
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1791 call this several times, once each for the last line of one |
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1792 region and the first line of the next region." |
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1793 (or (consp file) (setq file (list file))) |
55131
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
1794 (setq file (compilation-get-file-structure file)) |
55324
8e480ee75c47
(compilation-gcpro): New var
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55313
diff
changeset
|
1795 ;; Between the current call to compilation-fake-loc and the first occurrence |
85366
e8f9d460bc3e
(compilation-next-error-function): Fix timestamp
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85114
diff
changeset
|
1796 ;; of an error message referring to `file', the data is only kept in the |
55324
8e480ee75c47
(compilation-gcpro): New var
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55313
diff
changeset
|
1797 ;; weak hash-table compilation-locs, so we need to prevent this entry |
8e480ee75c47
(compilation-gcpro): New var
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55313
diff
changeset
|
1798 ;; in compilation-locs from being GC'd away. --Stef |
8e480ee75c47
(compilation-gcpro): New var
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55313
diff
changeset
|
1799 (push file compilation-gcpro) |
54939
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1800 (let ((loc (compilation-assq (or line 1) (cdr file)))) |
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1801 (setq loc (compilation-assq col loc)) |
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1802 (if (cdr loc) |
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1803 (setcdr (cddr loc) (list marker)) |
55131
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
1804 (setcdr loc (list line file marker))) |
54939
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1805 loc)) |
9c3e575d5a2b
(compilation-error-properties): Fix for adding messages when there are already
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54875
diff
changeset
|
1806 |
62381
30c05755e6b5
(compilation-setup): Set local value of
Nick Roberts <nickrob@snap.net.nz>
parents:
62158
diff
changeset
|
1807 (defcustom compilation-context-lines nil |
30c05755e6b5
(compilation-setup): Set local value of
Nick Roberts <nickrob@snap.net.nz>
parents:
62158
diff
changeset
|
1808 "Display this many lines of leading context before the current message. |
30c05755e6b5
(compilation-setup): Set local value of
Nick Roberts <nickrob@snap.net.nz>
parents:
62158
diff
changeset
|
1809 If nil and the left fringe is displayed, don't scroll the |
30c05755e6b5
(compilation-setup): Set local value of
Nick Roberts <nickrob@snap.net.nz>
parents:
62158
diff
changeset
|
1810 compilation output window; an arrow in the left fringe points to |
30c05755e6b5
(compilation-setup): Set local value of
Nick Roberts <nickrob@snap.net.nz>
parents:
62158
diff
changeset
|
1811 the current message. If nil and there is no left fringe, the message |
30c05755e6b5
(compilation-setup): Set local value of
Nick Roberts <nickrob@snap.net.nz>
parents:
62158
diff
changeset
|
1812 displays at the top of the window; there is no arrow." |
55227
193a4c332536
(compilation-context-lines): Add nil option to disable compilation output window scrolling.
Juri Linkov <juri@jurta.org>
parents:
55210
diff
changeset
|
1813 :type '(choice integer (const :tag "No window scrolling" nil)) |
54742
0a2de4900b34
(compilation-warning-face, compilation-info-face, compilation-skip-threshold)
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54700
diff
changeset
|
1814 :group 'compilation |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59773
diff
changeset
|
1815 :version "22.1") |
418 | 1816 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1817 (defsubst compilation-set-window (w mk) |
54941 | 1818 "Align the compilation output window W with marker MK near top." |
55227
193a4c332536
(compilation-context-lines): Add nil option to disable compilation output window scrolling.
Juri Linkov <juri@jurta.org>
parents:
55210
diff
changeset
|
1819 (if (integerp compilation-context-lines) |
193a4c332536
(compilation-context-lines): Add nil option to disable compilation output window scrolling.
Juri Linkov <juri@jurta.org>
parents:
55210
diff
changeset
|
1820 (set-window-start w (save-excursion |
62381
30c05755e6b5
(compilation-setup): Set local value of
Nick Roberts <nickrob@snap.net.nz>
parents:
62158
diff
changeset
|
1821 (goto-char mk) |
30c05755e6b5
(compilation-setup): Set local value of
Nick Roberts <nickrob@snap.net.nz>
parents:
62158
diff
changeset
|
1822 (beginning-of-line |
30c05755e6b5
(compilation-setup): Set local value of
Nick Roberts <nickrob@snap.net.nz>
parents:
62158
diff
changeset
|
1823 (- 1 compilation-context-lines)) |
30c05755e6b5
(compilation-setup): Set local value of
Nick Roberts <nickrob@snap.net.nz>
parents:
62158
diff
changeset
|
1824 (point))) |
62518
88b93ce112d1
(compilation-finish-function): Mark obsolete.
Richard M. Stallman <rms@gnu.org>
parents:
62381
diff
changeset
|
1825 ;; If there is no left fringe. |
88b93ce112d1
(compilation-finish-function): Mark obsolete.
Richard M. Stallman <rms@gnu.org>
parents:
62381
diff
changeset
|
1826 (if (equal (car (window-fringes)) 0) |
62381
30c05755e6b5
(compilation-setup): Set local value of
Nick Roberts <nickrob@snap.net.nz>
parents:
62158
diff
changeset
|
1827 (set-window-start w (save-excursion |
30c05755e6b5
(compilation-setup): Set local value of
Nick Roberts <nickrob@snap.net.nz>
parents:
62158
diff
changeset
|
1828 (goto-char mk) |
30c05755e6b5
(compilation-setup): Set local value of
Nick Roberts <nickrob@snap.net.nz>
parents:
62158
diff
changeset
|
1829 (beginning-of-line 1) |
30c05755e6b5
(compilation-setup): Set local value of
Nick Roberts <nickrob@snap.net.nz>
parents:
62158
diff
changeset
|
1830 (point))))) |
30c05755e6b5
(compilation-setup): Set local value of
Nick Roberts <nickrob@snap.net.nz>
parents:
62158
diff
changeset
|
1831 (set-window-point w mk)) |
418 | 1832 |
61760
51f159119616
(next-error-highlight-timer): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
61425
diff
changeset
|
1833 (defvar next-error-highlight-timer) |
51f159119616
(next-error-highlight-timer): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
61425
diff
changeset
|
1834 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1835 (defun compilation-goto-locus (msg mk end-mk) |
54941 | 1836 "Jump to an error corresponding to MSG at MK. |
56880
6bb35c70240a
(compilation-error-properties): Allow to funcall col and end-col.
Juri Linkov <juri@jurta.org>
parents:
56877
diff
changeset
|
1837 All arguments are markers. If END-MK is non-nil, mark is set there |
6bb35c70240a
(compilation-error-properties): Allow to funcall col and end-col.
Juri Linkov <juri@jurta.org>
parents:
56877
diff
changeset
|
1838 and overlay is highlighted between MK and END-MK." |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1839 ;; Show compilation buffer in other window, scrolled to this error. |
66119
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1840 (let* ((from-compilation-buffer (eq (window-buffer (selected-window)) |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1841 (marker-buffer msg))) |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1842 ;; Use an existing window if it is in a visible frame. |
65338
4bc5f5d3e625
(compilation-goto-locus): Take into account
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65316
diff
changeset
|
1843 (pre-existing (get-buffer-window (marker-buffer msg) 0)) |
66119
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1844 (w (if (and from-compilation-buffer pre-existing) |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1845 ;; Calling display-buffer here may end up (partly) hiding |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1846 ;; the error location if the two buffers are in two |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1847 ;; different frames. So don't do it if it's not necessary. |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1848 pre-existing |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1849 (let ((display-buffer-reuse-frames t) |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1850 (pop-up-windows t)) |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1851 ;; Pop up a window. |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1852 (display-buffer (marker-buffer msg))))) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1853 (highlight-regexp (with-current-buffer (marker-buffer msg) |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1854 ;; also do this while we change buffer |
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1855 (compilation-set-window w msg) |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1856 compilation-highlight-regexp))) |
65338
4bc5f5d3e625
(compilation-goto-locus): Take into account
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65316
diff
changeset
|
1857 ;; Ideally, the window-size should be passed to `display-buffer' (via |
4bc5f5d3e625
(compilation-goto-locus): Take into account
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65316
diff
changeset
|
1858 ;; something like special-display-buffer) so it's only used when |
4bc5f5d3e625
(compilation-goto-locus): Take into account
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65316
diff
changeset
|
1859 ;; creating a new window. |
4bc5f5d3e625
(compilation-goto-locus): Take into account
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65316
diff
changeset
|
1860 (unless pre-existing (compilation-set-window-height w)) |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1861 |
66119
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1862 (if from-compilation-buffer |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1863 ;; If the compilation buffer window was selected, |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1864 ;; keep the compilation buffer in this window; |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1865 ;; display the source in another window. |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1866 (let ((pop-up-windows t)) |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1867 (pop-to-buffer (marker-buffer mk) 'other-window)) |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1868 (if (window-dedicated-p (selected-window)) |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1869 (pop-to-buffer (marker-buffer mk)) |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1870 (switch-to-buffer (marker-buffer mk)))) |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1871 ;; If narrowing gets in the way of going to the right place, widen. |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1872 (unless (eq (goto-char mk) (point)) |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1873 (widen) |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1874 (goto-char mk)) |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1875 (if end-mk |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1876 (push-mark end-mk t) |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1877 (if mark-active (setq mark-active))) |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1878 ;; If hideshow got in the way of |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1879 ;; seeing the right place, open permanently. |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1880 (dolist (ov (overlays-at (point))) |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1881 (when (eq 'hs (overlay-get ov 'invisible)) |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1882 (delete-overlay ov) |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1883 (goto-char mk))) |
bc2d2dc9f534
(compilation-goto-locus): Display the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65788
diff
changeset
|
1884 |
56880
6bb35c70240a
(compilation-error-properties): Allow to funcall col and end-col.
Juri Linkov <juri@jurta.org>
parents:
56877
diff
changeset
|
1885 (when highlight-regexp |
61071 | 1886 (if (timerp next-error-highlight-timer) |
1887 (cancel-timer next-error-highlight-timer)) | |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1888 (unless compilation-highlight-overlay |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1889 (setq compilation-highlight-overlay |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1890 (make-overlay (point-min) (point-min))) |
56864
c77183f170cf
(compilation-goto-locus): Use `next-error' face instead of `region'.
Juri Linkov <juri@jurta.org>
parents:
56687
diff
changeset
|
1891 (overlay-put compilation-highlight-overlay 'face 'next-error)) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1892 (with-current-buffer (marker-buffer mk) |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1893 (save-excursion |
56880
6bb35c70240a
(compilation-error-properties): Allow to funcall col and end-col.
Juri Linkov <juri@jurta.org>
parents:
56877
diff
changeset
|
1894 (if end-mk (goto-char end-mk) (end-of-line)) |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
1895 (let ((end (point))) |
56880
6bb35c70240a
(compilation-error-properties): Allow to funcall col and end-col.
Juri Linkov <juri@jurta.org>
parents:
56877
diff
changeset
|
1896 (if mk (goto-char mk) (beginning-of-line)) |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1897 (if (and (stringp highlight-regexp) |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
1898 (re-search-forward highlight-regexp end t)) |
53140
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1899 (progn |
00845c3bc4e4
(grep-command, grep-use-null-device)
Kim F. Storm <storm@cua.dk>
parents:
52892
diff
changeset
|
1900 (goto-char (match-beginning 0)) |
56864
c77183f170cf
(compilation-goto-locus): Use `next-error' face instead of `region'.
Juri Linkov <juri@jurta.org>
parents:
56687
diff
changeset
|
1901 (move-overlay compilation-highlight-overlay |
c77183f170cf
(compilation-goto-locus): Use `next-error' face instead of `region'.
Juri Linkov <juri@jurta.org>
parents:
56687
diff
changeset
|
1902 (match-beginning 0) (match-end 0) |
c77183f170cf
(compilation-goto-locus): Use `next-error' face instead of `region'.
Juri Linkov <juri@jurta.org>
parents:
56687
diff
changeset
|
1903 (current-buffer))) |
c77183f170cf
(compilation-goto-locus): Use `next-error' face instead of `region'.
Juri Linkov <juri@jurta.org>
parents:
56687
diff
changeset
|
1904 (move-overlay compilation-highlight-overlay |
c77183f170cf
(compilation-goto-locus): Use `next-error' face instead of `region'.
Juri Linkov <juri@jurta.org>
parents:
56687
diff
changeset
|
1905 (point) end (current-buffer))) |
73104
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1906 (if (or (eq next-error-highlight t) |
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1907 (numberp next-error-highlight)) |
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1908 ;; We want highlighting: delete overlay on next input. |
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1909 (add-hook 'pre-command-hook |
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1910 'compilation-goto-locus-delete-o) |
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1911 ;; We don't want highlighting: delete overlay now. |
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1912 (delete-overlay compilation-highlight-overlay)) |
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1913 ;; We want highlighting for a limited time: |
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1914 ;; set up a timer to delete it. |
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1915 (when (numberp next-error-highlight) |
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1916 (setq next-error-highlight-timer |
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1917 (run-at-time next-error-highlight nil |
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1918 'compilation-goto-locus-delete-o))))))) |
56864
c77183f170cf
(compilation-goto-locus): Use `next-error' face instead of `region'.
Juri Linkov <juri@jurta.org>
parents:
56687
diff
changeset
|
1919 (when (and (eq next-error-highlight 'fringe-arrow)) |
73104
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1920 ;; We want a fringe arrow (instead of highlighting). |
61362 | 1921 (setq next-error-overlay-arrow-position |
1922 (copy-marker (line-beginning-position)))))) | |
1923 | |
73104
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1924 (defun compilation-goto-locus-delete-o () |
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1925 (delete-overlay compilation-highlight-overlay) |
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1926 ;; Get rid of timer and hook that would try to do this again. |
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1927 (if (timerp next-error-highlight-timer) |
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1928 (cancel-timer next-error-highlight-timer)) |
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1929 (remove-hook 'pre-command-hook |
a90c9318cca9
(compilation-goto-locus-delete-o): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
72894
diff
changeset
|
1930 'compilation-goto-locus-delete-o)) |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1931 |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
1932 (defun compilation-find-file (marker filename directory &rest formats) |
26222 | 1933 "Find a buffer for file FILENAME. |
30878
13a1a0ec31e5
(grep): Provide a default set of files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30688
diff
changeset
|
1934 Search the directories in `compilation-search-path'. |
13a1a0ec31e5
(grep): Provide a default set of files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30688
diff
changeset
|
1935 A nil in `compilation-search-path' means to try the |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
1936 \"current\" directory, which is passed in DIRECTORY. |
77886
c90e5f7ef586
(compilation-find-file, compilation-handle-exit): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
77786
diff
changeset
|
1937 If DIRECTORY is relative, it is combined with `default-directory'. |
c90e5f7ef586
(compilation-find-file, compilation-handle-exit): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
77786
diff
changeset
|
1938 If DIRECTORY is nil, that means use `default-directory'. |
26222 | 1939 If FILENAME is not found at all, ask the user where to find it. |
1940 Pop up the buffer containing MARKER and scroll to MARKER if we ask the user." | |
10928
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
1941 (or formats (setq formats '("%s"))) |
71789
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1942 (let ((dirs compilation-search-path) |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1943 (spec-dir (if directory |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1944 (expand-file-name directory) |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1945 default-directory)) |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1946 buffer thisdir fmts name) |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1947 (if (file-name-absolute-p filename) |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1948 ;; The file name is absolute. Use its explicit directory as |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1949 ;; the first in the search path, and strip it from FILENAME. |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1950 (setq filename (abbreviate-file-name (expand-file-name filename)) |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1951 dirs (cons (file-name-directory filename) dirs) |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1952 filename (file-name-nondirectory filename))) |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1953 ;; Now search the path. |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1954 (while (and dirs (null buffer)) |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1955 (setq thisdir (or (car dirs) spec-dir) |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1956 fmts formats) |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1957 ;; For each directory, try each format string. |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1958 (while (and fmts (null buffer)) |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1959 (setq name (expand-file-name (format (car fmts) filename) thisdir) |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1960 buffer (and (file-exists-p name) |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1961 (find-file-noselect name)) |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1962 fmts (cdr fmts))) |
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
1963 (setq dirs (cdr dirs))) |
72001
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
1964 (while (null buffer) ;Repeat until the user selects an existing file. |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
1965 ;; The file doesn't exist. Ask the user where to find it. |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
1966 (save-excursion ;This save-excursion is probably not right. |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
1967 (let ((pop-up-windows t)) |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
1968 (compilation-set-window (display-buffer (marker-buffer marker)) |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
1969 marker) |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
1970 (let* ((name (read-file-name |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
1971 (format "Find this %s in (default %s): " |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
1972 compilation-error filename) |
80878
98ca0b616c89
(compilation-find-file): Add a big comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77183
diff
changeset
|
1973 spec-dir filename t nil |
98ca0b616c89
(compilation-find-file): Add a big comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77183
diff
changeset
|
1974 ;; The predicate below is fine when called from |
98ca0b616c89
(compilation-find-file): Add a big comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77183
diff
changeset
|
1975 ;; minibuffer-complete-and-exit, but it's too |
98ca0b616c89
(compilation-find-file): Add a big comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77183
diff
changeset
|
1976 ;; restrictive otherwise, since it also prevents the |
98ca0b616c89
(compilation-find-file): Add a big comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77183
diff
changeset
|
1977 ;; user from completing "fo" to "foo/" when she |
98ca0b616c89
(compilation-find-file): Add a big comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77183
diff
changeset
|
1978 ;; wants to enter "foo/bar". |
81135
89afbe74739e
(compilation-find-file, compilation-handle-exit): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
81133
diff
changeset
|
1979 ;; |
80878
98ca0b616c89
(compilation-find-file): Add a big comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77183
diff
changeset
|
1980 ;; Try to make sure the user can only select |
98ca0b616c89
(compilation-find-file): Add a big comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77183
diff
changeset
|
1981 ;; a valid answer. This predicate may be ignored, |
98ca0b616c89
(compilation-find-file): Add a big comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77183
diff
changeset
|
1982 ;; tho, so we still have to double-check afterwards. |
98ca0b616c89
(compilation-find-file): Add a big comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77183
diff
changeset
|
1983 ;; TODO: We should probably fix read-file-name so |
98ca0b616c89
(compilation-find-file): Add a big comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77183
diff
changeset
|
1984 ;; that it never ignores this predicate, even when |
98ca0b616c89
(compilation-find-file): Add a big comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77183
diff
changeset
|
1985 ;; using popup dialog boxes. |
98ca0b616c89
(compilation-find-file): Add a big comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77183
diff
changeset
|
1986 ;; (lambda (name) |
98ca0b616c89
(compilation-find-file): Add a big comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77183
diff
changeset
|
1987 ;; (if (file-directory-p name) |
98ca0b616c89
(compilation-find-file): Add a big comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77183
diff
changeset
|
1988 ;; (setq name (expand-file-name filename name))) |
98ca0b616c89
(compilation-find-file): Add a big comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77183
diff
changeset
|
1989 ;; (file-exists-p name)) |
98ca0b616c89
(compilation-find-file): Add a big comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77183
diff
changeset
|
1990 )) |
72001
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
1991 (origname name)) |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
1992 (cond |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
1993 ((not (file-exists-p name)) |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
1994 (message "Cannot find file `%s'" name) |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
1995 (ding) (sit-for 2)) |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
1996 ((and (file-directory-p name) |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
1997 (not (file-exists-p |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
1998 (setq name (expand-file-name filename name))))) |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
1999 (message "No `%s' in directory %s" filename origname) |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
2000 (ding) (sit-for 2)) |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
2001 (t |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
2002 (setq buffer (find-file-noselect name)))))))) |
71789
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
2003 ;; Make intangible overlays tangible. |
72001
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
2004 ;; This is weird: it's not even clear which is the current buffer, |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
2005 ;; so the code below can't be expected to DTRT here. -- Stef |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
2006 (dolist (ov (overlays-in (point-min) (point-max))) |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
2007 (when (overlay-get ov 'intangible) |
adaad9cef326
(compilation-find-file): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71929
diff
changeset
|
2008 (overlay-put ov 'intangible nil))) |
71789
aa53161fdb21
(compilation-error-regexp-alist-alist): Fix ambiguity introduced by last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71742
diff
changeset
|
2009 buffer)) |
26990
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
2010 |
55131
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2011 (defun compilation-get-file-structure (file &optional fmt) |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2012 "Retrieve FILE's file-structure or create a new one. |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
2013 FILE should be (FILENAME) or (RELATIVE-FILENAME . DIRNAME). |
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
2014 In the former case, FILENAME may be relative or absolute. |
46324
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2015 |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
2016 The file-structure looks like this: |
78749
4256a2145ba2
(compilation-get-file-structure): Complete last
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78578
diff
changeset
|
2017 (list (list FILENAME [DIR-FROM-PREV-MSG]) FMT LINE-STRUCT...)" |
55131
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2018 (or (gethash file compilation-locs) |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2019 ;; File was not previously encountered, at least not in the form passed. |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2020 ;; Let's normalize it and look again. |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2021 (let ((filename (car file)) |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
2022 ;; Get the specified directory from FILE. |
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
2023 (spec-directory (if (cdr file) |
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
2024 (file-truename (cdr file))))) |
46324
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2025 |
55131
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2026 ;; Check for a comint-file-name-prefix and prepend it if appropriate. |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2027 ;; (This is very useful for compilation-minor-mode in an rlogin-mode |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2028 ;; buffer.) |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
2029 (when (and (boundp 'comint-file-name-prefix) |
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
2030 (not (equal comint-file-name-prefix ""))) |
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
2031 (if (file-name-absolute-p filename) |
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
2032 (setq filename |
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
2033 (concat comint-file-name-prefix filename)) |
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
2034 (if spec-directory |
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
2035 (setq spec-directory |
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
2036 (file-truename |
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
2037 (concat comint-file-name-prefix spec-directory)))))) |
71 | 2038 |
55131
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2039 ;; If compilation-parse-errors-filename-function is |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2040 ;; defined, use it to process the filename. |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2041 (when compilation-parse-errors-filename-function |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2042 (setq filename |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2043 (funcall compilation-parse-errors-filename-function |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2044 filename))) |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2045 |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2046 ;; Some compilers (e.g. Sun's java compiler, reportedly) produce bogus |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2047 ;; file names like "./bar//foo.c" for file "bar/foo.c"; |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2048 ;; expand-file-name will collapse these into "/foo.c" and fail to find |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2049 ;; the appropriate file. So we look for doubled slashes in the file |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2050 ;; name and fix them. |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2051 (setq filename (command-line-normalize-file-name filename)) |
12219
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
2052 |
55131
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2053 ;; Store it for the possibly unnormalized name |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2054 (puthash file |
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2055 ;; Retrieve or create file-structure for normalized name |
78578
be466566559a
(compilation-get-file-structure): Make use of the directory part when
Glenn Morris <rgm@gnu.org>
parents:
78465
diff
changeset
|
2056 ;; The gethash used to not use spec-directory, but |
be466566559a
(compilation-get-file-structure): Make use of the directory part when
Glenn Morris <rgm@gnu.org>
parents:
78465
diff
changeset
|
2057 ;; this leads to errors when files in different |
be466566559a
(compilation-get-file-structure): Make use of the directory part when
Glenn Morris <rgm@gnu.org>
parents:
78465
diff
changeset
|
2058 ;; directories have the same name: |
be466566559a
(compilation-get-file-structure): Make use of the directory part when
Glenn Morris <rgm@gnu.org>
parents:
78465
diff
changeset
|
2059 ;; http://lists.gnu.org/archive/html/emacs-devel/2007-08/msg00463.html |
be466566559a
(compilation-get-file-structure): Make use of the directory part when
Glenn Morris <rgm@gnu.org>
parents:
78465
diff
changeset
|
2060 (or (gethash (cons filename spec-directory) compilation-locs) |
78749
4256a2145ba2
(compilation-get-file-structure): Complete last
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78578
diff
changeset
|
2061 (puthash (cons filename spec-directory) |
65451
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
2062 (list (list filename spec-directory) fmt) |
c1b85b32abab
Don't decide a file's directory
Richard M. Stallman <rms@gnu.org>
parents:
65338
diff
changeset
|
2063 compilation-locs)) |
55131
2a263df48184
(compilation-error-regexp-alist-alist): Also recognize severe Irix et al. messages.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
55080
diff
changeset
|
2064 compilation-locs)))) |
3940
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
2065 |
54361
63ef4a00326a
(compile-auto-highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53978
diff
changeset
|
2066 (add-to-list 'debug-ignored-errors "^No more [-a-z ]+s yet$") |
29078 | 2067 |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2068 ;;; Compatibility with the old compile.el. |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2069 |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2070 (defun compile-buffer-substring (n) (if n (match-string n))) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2071 |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2072 (defun compilation-compat-error-properties (err) |
54941 | 2073 "Map old-style error ERR to new-style message." |
55007
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
2074 ;; Old-style structure is (MARKER (FILE DIR) LINE COL) or |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
2075 ;; (MARKER . MARKER). |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
2076 (let ((dst (cdr err))) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
2077 (if (markerp dst) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
2078 ;; Must start with a face, for font-lock. |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
2079 `(face nil |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
2080 message ,(list (list nil nil nil dst) 2) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
2081 help-echo "mouse-2: visit the source location" |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
2082 keymap compilation-button-map |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
2083 mouse-face highlight) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
2084 ;; Too difficult to do it by hand: dispatch to the normal code. |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
2085 (let* ((file (pop dst)) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
2086 (line (pop dst)) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
2087 (col (pop dst)) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
2088 (filename (pop file)) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
2089 (dirname (pop file)) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
2090 (fmt (pop file))) |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
2091 (compilation-internal-error-properties |
c4901d9dd86a
(compilation-error-properties): Split in two.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54968
diff
changeset
|
2092 (cons filename dirname) line nil col nil 2 fmt))))) |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2093 |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2094 (defun compilation-compat-parse-errors (limit) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2095 (when compilation-parse-errors-function |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2096 ;; FIXME: We should remove the rest of the compilation keywords |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2097 ;; but we can't do that from here because font-lock is using |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2098 ;; the value right now. --stef |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2099 (save-excursion |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2100 (setq compilation-error-list nil) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2101 ;; Reset compilation-parsing-end each time because font-lock |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2102 ;; might force us the re-parse many times (typically because |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2103 ;; some code adds some text-property to the output that we |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2104 ;; already parsed). You might say "why reparse", well: |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2105 ;; because font-lock has just removed the `message' property so |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2106 ;; have to do it all over again. |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2107 (if compilation-parsing-end |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2108 (set-marker compilation-parsing-end (point)) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2109 (setq compilation-parsing-end (point-marker))) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2110 (condition-case nil |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2111 ;; Ignore any error: we're calling this function earlier than |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2112 ;; in the old compile.el so things might not all be setup yet. |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2113 (funcall compilation-parse-errors-function limit nil) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2114 (error nil)) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2115 (dolist (err (if (listp compilation-error-list) compilation-error-list)) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2116 (let* ((src (car err)) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2117 (dst (cdr err)) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2118 (loc (cond ((markerp dst) (list nil nil nil dst)) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2119 ((consp dst) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2120 (list (nth 2 dst) (nth 1 dst) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2121 (cons (cdar dst) (caar dst))))))) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2122 (when loc |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2123 (goto-char src) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2124 ;; (put-text-property src (line-end-position) 'font-lock-face 'font-lock-warning-face) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2125 (put-text-property src (line-end-position) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2126 'message (list loc 2))))))) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2127 (goto-char limit) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2128 nil) |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2129 |
55299
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
2130 ;; Beware: this is not only compatiblity code. New code stil uses it. --Stef |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2131 (defun compilation-forget-errors () |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2132 ;; In case we hit the same file/line specs, we want to recompute a new |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2133 ;; marker for them, so flush our cache. |
54854
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
2134 (setq compilation-locs (make-hash-table :test 'equal :weakness 'value)) |
55324
8e480ee75c47
(compilation-gcpro): New var
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55313
diff
changeset
|
2135 (setq compilation-gcpro nil) |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2136 ;; FIXME: the old code reset the directory-stack, so maybe we should |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2137 ;; put a `directory change' marker of some sort, but where? -stef |
54854
eb5c70ae728c
(compilation-setup): Localize overlay-arrow-position.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
54833
diff
changeset
|
2138 ;; |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2139 ;; FIXME: The old code moved compilation-current-error (which was |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2140 ;; virtually represented by a mix of compilation-parsing-end and |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2141 ;; compilation-error-list) to point-min, but that was only meaningful for |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2142 ;; the internal uses of compilation-forget-errors: all calls from external |
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2143 ;; packages seem to be followed by a move of compilation-parsing-end to |
82212
acc4dc607d14
(compilation-forget-errors): Reset compilation-auto-jump-to-next.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82140
diff
changeset
|
2144 ;; something equivalent to point-max. So we heuristically move |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2145 ;; compilation-current-error to point-max (since the external package |
82212
acc4dc607d14
(compilation-forget-errors): Reset compilation-auto-jump-to-next.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82140
diff
changeset
|
2146 ;; won't know that it should do it). --Stef |
55299
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
2147 (setq compilation-current-error nil) |
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
2148 (let* ((proc (get-buffer-process (current-buffer))) |
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
2149 (mark (if proc (process-mark proc))) |
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
2150 (pos (or mark (point-max)))) |
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
2151 (setq compilation-messages-start |
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
2152 ;; In the future, ignore the text already present in the buffer. |
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
2153 ;; Since many process filter functions insert before markers, |
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
2154 ;; we need to put ours just before the insertion point rather |
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
2155 ;; than at the insertion point. If that's not possible, then |
19ff0d2ea8e8
(compilation-messages-start): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55237
diff
changeset
|
2156 ;; don't use a marker. --Stef |
82212
acc4dc607d14
(compilation-forget-errors): Reset compilation-auto-jump-to-next.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82140
diff
changeset
|
2157 (if (> pos (point-min)) (copy-marker (1- pos)) pos))) |
acc4dc607d14
(compilation-forget-errors): Reset compilation-auto-jump-to-next.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82140
diff
changeset
|
2158 ;; Again, since this command is used in buffers that contain several |
acc4dc607d14
(compilation-forget-errors): Reset compilation-auto-jump-to-next.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82140
diff
changeset
|
2159 ;; compilations, to set the beginning of "this compilation", it's a good |
acc4dc607d14
(compilation-forget-errors): Reset compilation-auto-jump-to-next.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82140
diff
changeset
|
2160 ;; place to reset compilation-auto-jump-to-next. |
acc4dc607d14
(compilation-forget-errors): Reset compilation-auto-jump-to-next.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82140
diff
changeset
|
2161 (set (make-local-variable 'compilation-auto-jump-to-next) |
acc4dc607d14
(compilation-forget-errors): Reset compilation-auto-jump-to-next.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82140
diff
changeset
|
2162 compilation-auto-jump-to-first-error)) |
54700
677905e471e2
(font-lock): Don't require any more.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54676
diff
changeset
|
2163 |
61425
6dfecf2a19ab
* compilation.txt (symbol): Added gcov-file
Masatake YAMATO <jet@gyve.org>
parents:
61394
diff
changeset
|
2164 ;;;###autoload |
6dfecf2a19ab
* compilation.txt (symbol): Added gcov-file
Masatake YAMATO <jet@gyve.org>
parents:
61394
diff
changeset
|
2165 (add-to-list 'auto-mode-alist '("\\.gcov\\'" . compilation-mode)) |
6dfecf2a19ab
* compilation.txt (symbol): Added gcov-file
Masatake YAMATO <jet@gyve.org>
parents:
61394
diff
changeset
|
2166 |
621 | 2167 (provide 'compile) |
712
16823e891d56
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
621
diff
changeset
|
2168 |
55325
e95e9c689608
Arch-tags shouldn't be outline headers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55324
diff
changeset
|
2169 ;; arch-tag: 12465727-7382-4f72-b234-79855a00dd8c |
712
16823e891d56
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
621
diff
changeset
|
2170 ;;; compile.el ends here |