Mercurial > emacs
annotate lisp/progmodes/compile.el @ 8288:8695e414a2b1
(compilation-error-regexp-alist): Allow `(' after
linenum in "FILE", line LINENUM. Add backslash so C-M-a works.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 19 Jul 1994 20:03:12 +0000 |
parents | bef94cf432af |
children | 95c011057e51 |
rev | line source |
---|---|
727 | 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 |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
3 ;; Copyright (C) 1985, 86, 87, 93, 94 Free Software Foundation, Inc. |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
4 |
804 | 5 ;; Author: Roland McGrath <roland@prep.ai.mit.edu> |
795
c693d56ef36d
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
6 ;; Maintainer: FSF |
2247
2c7997f249eb
Add or correct keywords
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1846
diff
changeset
|
7 ;; Keywords: tools, processes |
795
c693d56ef36d
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
8 |
71 | 9 ;; This file is part of GNU Emacs. |
10 | |
804 | 11 ;; GNU Emacs is free software; you can redistribute it and/or modify |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
71 | 15 |
804 | 16 ;; GNU Emacs is distributed in the hope that it will be useful, |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
22 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
23 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
71 | 24 |
2337
2ee64176069c
Fix library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
25 ;;; Commentary: |
2ee64176069c
Fix library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
26 |
2ee64176069c
Fix library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
27 ;; This package provides the compile and grep facilities documented in |
2ee64176069c
Fix library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
28 ;; the Emacs user's manual. |
2ee64176069c
Fix library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
29 |
795
c693d56ef36d
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
30 ;;; Code: |
c693d56ef36d
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
31 |
569 | 32 ;;;###autoload |
33 (defvar compilation-mode-hook nil | |
2760
1c7595e3089b
(Setting minor-mode-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
2603
diff
changeset
|
34 "*List of hook functions run by `compilation-mode' (see `run-hooks').") |
569 | 35 |
36 ;;;###autoload | |
8189
b88934e64021
(compilation-window-height): Use defvar.
Richard M. Stallman <rms@gnu.org>
parents:
7882
diff
changeset
|
37 (defvar compilation-window-height nil |
418 | 38 "*Number of lines in a compilation window. If nil, use Emacs default.") |
39 | |
71 | 40 (defvar compilation-error-list nil |
41 "List of error message descriptors for visiting erring functions. | |
4153
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
42 Each error descriptor is a cons (or nil). Its car is a marker pointing to |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
43 an error message. If its cdr is a marker, it points to the text of the |
5606
f600a46890d1
(copmilation-error-list): Doc fix.
Roland McGrath <roland@gnu.org>
parents:
5605
diff
changeset
|
44 line the message is about. If its cdr is a cons, it is a list |
f600a46890d1
(copmilation-error-list): Doc fix.
Roland McGrath <roland@gnu.org>
parents:
5605
diff
changeset
|
45 \(\(DIRECTORY . FILE\) LINE [COLUMN]\). Or its cdr may be nil if that |
f600a46890d1
(copmilation-error-list): Doc fix.
Roland McGrath <roland@gnu.org>
parents:
5605
diff
changeset
|
46 error is not interesting. |
418 | 47 |
48 The value may be t instead of a list; this means that the buffer of | |
3607 | 49 error messages should be reparsed the next time the list of errors is wanted. |
50 | |
51 Some other commands (like `diff') use this list to control the error | |
52 message tracking facilites; if you change its structure, you should make | |
53 sure you also change those packages. Perhaps it is better not to change | |
54 it at all.") | |
71 | 55 |
56 (defvar compilation-old-error-list nil | |
57 "Value of `compilation-error-list' after errors were parsed.") | |
58 | |
418 | 59 (defvar compilation-parse-errors-function 'compilation-parse-errors |
885 | 60 "Function to call to parse error messages from a compilation. |
907 | 61 It takes args LIMIT-SEARCH and FIND-AT-LEAST. |
62 If LIMIT-SEARCH is non-nil, don't bother parsing past that location. | |
63 If FIND-AT-LEAST is non-nil, don't bother parsing after finding that | |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
64 many new errors. |
418 | 65 It should read in the source files which have errors and set |
66 `compilation-error-list' to a list with an element for each error message | |
67 found. See that variable for more info.") | |
71 | 68 |
474 | 69 ;;;###autoload |
418 | 70 (defvar compilation-buffer-name-function nil |
1133 | 71 "Function to compute the name of a compilation buffer. |
72 The function receives one argument, the name of the major mode of the | |
73 compilation buffer. It should return a string. | |
74 nil means compute the name with `(concat \"*\" (downcase major-mode) \"*\")'.") | |
71 | 75 |
474 | 76 ;;;###autoload |
418 | 77 (defvar compilation-finish-function nil |
474 | 78 "*Function to call when a compilation process finishes. |
418 | 79 It is called with two arguments: the compilation buffer, and a string |
80 describing how the process finished.") | |
81 | |
82 (defvar compilation-last-buffer nil | |
1133 | 83 "The most recent compilation buffer. |
84 A buffer becomes most recent when its compilation is started | |
85 or when it is used with \\[next-error] or \\[compile-goto-error].") | |
71 | 86 |
740 | 87 (defvar compilation-in-progress nil |
88 "List of compilation processes now running.") | |
89 (or (assq 'compilation-in-progress minor-mode-alist) | |
90 (setq minor-mode-alist (cons '(compilation-in-progress " Compiling") | |
91 minor-mode-alist))) | |
92 | |
71 | 93 (defvar compilation-parsing-end nil |
418 | 94 "Position of end of buffer when last error messages were parsed.") |
71 | 95 |
418 | 96 (defvar compilation-error-message "No more errors" |
1133 | 97 "Message to print when no more matches are found.") |
98 | |
99 (defvar compilation-num-errors-found) | |
71 | 100 |
418 | 101 (defvar compilation-error-regexp-alist |
102 '( | |
1072 | 103 ;; NOTE! This first one is repeated in grep-regexp-alist, below. |
2461
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
104 |
418 | 105 ;; 4.3BSD grep, cc, lint pass 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
|
106 ;; /usr/src/foo/foo.c(8): warning: w may be used before set |
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
107 ;; or GNU utilities: |
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
108 ;; foo.c:8: error message |
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
109 ;; or HP-UX 7.0 fc: |
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
110 ;; foo.f :16 some horrible error message |
7876
bffe692e2844
(compilation-error-regexp-alist): Extend first regexp to handle Borland C++
Roland McGrath <roland@gnu.org>
parents:
7768
diff
changeset
|
111 ;; or Borland C++: |
bffe692e2844
(compilation-error-regexp-alist): Extend first regexp to handle Borland C++
Roland McGrath <roland@gnu.org>
parents:
7768
diff
changeset
|
112 ;; Error ping.c 15: Unable to open include file 'sys/types.h' |
bffe692e2844
(compilation-error-regexp-alist): Extend first regexp to handle Borland C++
Roland McGrath <roland@gnu.org>
parents:
7768
diff
changeset
|
113 ;; Warning ping.c 68: Call to function 'func' with no prototype |
1702
817bd71e0e72
* compile.el (compilation-error-regexp-alist): Tightened up
Jim Blandy <jimb@redhat.com>
parents:
1554
diff
changeset
|
114 ;; |
817bd71e0e72
* compile.el (compilation-error-regexp-alist): Tightened up
Jim Blandy <jimb@redhat.com>
parents:
1554
diff
changeset
|
115 ;; We'll insist that the number be followed by a colon or closing |
817bd71e0e72
* compile.el (compilation-error-regexp-alist): Tightened up
Jim Blandy <jimb@redhat.com>
parents:
1554
diff
changeset
|
116 ;; paren, because otherwise this matches just about anything |
817bd71e0e72
* compile.el (compilation-error-regexp-alist): Tightened up
Jim Blandy <jimb@redhat.com>
parents:
1554
diff
changeset
|
117 ;; containing a number with spaces around it. |
7882
b91169855db4
Fix regexp in last change.
Roland McGrath <roland@gnu.org>
parents:
7876
diff
changeset
|
118 ("\n\\(Error\\|Warning\\)?[ \t]*\\([^:( \t\n]+\\)\ |
8288
8695e414a2b1
(compilation-error-regexp-alist): Allow `(' after
Richard M. Stallman <rms@gnu.org>
parents:
8218
diff
changeset
|
119 \[:(]?[ \t]*\\([0-9]+\\)[:) \t]" 2 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
|
120 |
418 | 121 ;; 4.3BSD lint pass 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
|
122 ;; strcmp: variable # of args. llib-lc(359) :: /usr/src/foo/foo.c(8) |
3606
713c76a95b74
* compile.el (compilation-error-list): When we haven't yet
Jim Blandy <jimb@redhat.com>
parents:
3514
diff
changeset
|
123 ("[ \t:]\\([^:( \t\n]+\\)[:(](+[ \t]*\\([0-9]+\\))[:) \t]*$" 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
|
124 |
418 | 125 ;; 4.3BSD lint pass 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
|
126 ;; bloofle defined( /users/wolfgang/foo.c(4) ), but never used |
727 | 127 ;; This used to be |
128 ;; ("[ \t(]+\\([^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]+" 1 2) | |
129 ;; which is regexp Impressionism - it matches almost anything! | |
3606
713c76a95b74
* compile.el (compilation-error-list): When we haven't yet
Jim Blandy <jimb@redhat.com>
parents:
3514
diff
changeset
|
130 ("([ \t]*\\([^:( \t\n]+\\)[:(][ \t]*\\([0-9]+\\))" 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
|
131 |
4045
a37868b332ac
(compilation-error-regexp-alist): Broaden ``Line N of "FILE": msg'' regexp
Roland McGrath <roland@gnu.org>
parents:
3940
diff
changeset
|
132 ;; Ultrix 3.0 f77: |
7138
cbe3820953c6
(compilation-error-regexp-alist): Add fortran pattern.
Karl Heuer <kwzh@gnu.org>
parents:
7099
diff
changeset
|
133 ;; fort: Severe: addstf.f, line 82: Missing operator or delimiter symbol |
cbe3820953c6
(compilation-error-regexp-alist): Add fortran pattern.
Karl Heuer <kwzh@gnu.org>
parents:
7099
diff
changeset
|
134 ("\nfort: [^:\n]*: \\([^ \n]*\\), line \\([0-9]+\\):" 1 2) |
4045
a37868b332ac
(compilation-error-regexp-alist): Broaden ``Line N of "FILE": msg'' regexp
Roland McGrath <roland@gnu.org>
parents:
3940
diff
changeset
|
135 ;; Error on line 3 of t.f: Execution error unclassifiable statement |
a37868b332ac
(compilation-error-regexp-alist): Broaden ``Line N of "FILE": msg'' regexp
Roland McGrath <roland@gnu.org>
parents:
3940
diff
changeset
|
136 ;; Unknown who does this: |
a37868b332ac
(compilation-error-regexp-alist): Broaden ``Line N of "FILE": msg'' regexp
Roland McGrath <roland@gnu.org>
parents:
3940
diff
changeset
|
137 ;; Line 45 of "foo.c": bloofel undefined |
6412
84d5a22db4c8
(compilation-error-regexp-alist): Generalize ultrix 3 f77 regexp to match
Roland McGrath <roland@gnu.org>
parents:
6240
diff
changeset
|
138 ;; Absoft FORTRAN 77 Compiler 3.1.3 |
84d5a22db4c8
(compilation-error-regexp-alist): Generalize ultrix 3 f77 regexp to match
Roland McGrath <roland@gnu.org>
parents:
6240
diff
changeset
|
139 ;; error on line 19 of fplot.f: spelling error? |
84d5a22db4c8
(compilation-error-regexp-alist): Generalize ultrix 3 f77 regexp to match
Roland McGrath <roland@gnu.org>
parents:
6240
diff
changeset
|
140 ;; warning on line 17 of fplot.f: data type is undefined for variable d |
84d5a22db4c8
(compilation-error-regexp-alist): Generalize ultrix 3 f77 regexp to match
Roland McGrath <roland@gnu.org>
parents:
6240
diff
changeset
|
141 ("\\(\n\\|on \\)[Ll]ine[ \t]+\\([0-9]+\\)[ \t]+\ |
5961
bd2a637f1b30
(copmilation-error-regexp-alist): Tighten up Ultrix 3.0 f77 regexp to
Roland McGrath <roland@gnu.org>
parents:
5633
diff
changeset
|
142 of[ \t]+\"?\\([^\":\n]+\\)\"?:" 3 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
|
143 |
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
144 ;; Apollo cc, 4.3BSD fc: |
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
145 ;; "foo.f", line 3: Error: syntax error near end of statement |
3825
ae1462a1a8d4
(compilation-error-regexp-alist): Generalize the
Richard M. Stallman <rms@gnu.org>
parents:
3607
diff
changeset
|
146 ;; IBM RS6000: |
ae1462a1a8d4
(compilation-error-regexp-alist): Generalize the
Richard M. Stallman <rms@gnu.org>
parents:
3607
diff
changeset
|
147 ;; "vvouch.c", line 19.5: 1506-046 (S) Syntax error. |
4350
7ef7f31aab53
(compilation-error-regexp-alist): Broaden RS6000 regexp to match
Roland McGrath <roland@gnu.org>
parents:
4153
diff
changeset
|
148 ;; Unknown compiler: |
7ef7f31aab53
(compilation-error-regexp-alist): Broaden RS6000 regexp to match
Roland McGrath <roland@gnu.org>
parents:
4153
diff
changeset
|
149 ;; File "foobar.ml", lines 5-8, characters 20-155: blah blah |
5215
4d6ab37798ff
(compilation-error-regexp-alist): Generalize `"foo.c", line 13:' regexp to
Roland McGrath <roland@gnu.org>
parents:
4757
diff
changeset
|
150 ;; Microtec mcc68k: |
4d6ab37798ff
(compilation-error-regexp-alist): Generalize `"foo.c", line 13:' regexp to
Roland McGrath <roland@gnu.org>
parents:
4757
diff
changeset
|
151 ;; "foo.c", line 32 pos 1; (E) syntax error; unexpected symbol: "lossage" |
8288
8695e414a2b1
(compilation-error-regexp-alist): Allow `(' after
Richard M. Stallman <rms@gnu.org>
parents:
8218
diff
changeset
|
152 ;; GNAT (as of July 94): |
8695e414a2b1
(compilation-error-regexp-alist): Allow `(' after
Richard M. Stallman <rms@gnu.org>
parents:
8218
diff
changeset
|
153 ;; "foo.adb", line 2(11): warning: file name does not match ... |
8695e414a2b1
(compilation-error-regexp-alist): Allow `(' after
Richard M. Stallman <rms@gnu.org>
parents:
8218
diff
changeset
|
154 ("\"\\([^,\" \n\t]+\\)\", lines? \\([0-9]+\\)[:., (-]" 1 2) |
3606
713c76a95b74
* compile.el (compilation-error-list): When we haven't yet
Jim Blandy <jimb@redhat.com>
parents:
3514
diff
changeset
|
155 |
713c76a95b74
* compile.el (compilation-error-list): When we haven't yet
Jim Blandy <jimb@redhat.com>
parents:
3514
diff
changeset
|
156 ;; MIPS RISC CC - the one distributed with Ultrix: |
2461
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
157 ;; ccom: Error: foo.c, line 2: syntax error |
5633
6e0443843832
(compilation-error-regexp-alist): Handle DEC AXP OSF/1.
Richard M. Stallman <rms@gnu.org>
parents:
5606
diff
changeset
|
158 ;; DEC AXP OSF/1 cc |
6e0443843832
(compilation-error-regexp-alist): Handle DEC AXP OSF/1.
Richard M. Stallman <rms@gnu.org>
parents:
5606
diff
changeset
|
159 ;; /usr/lib/cmplrs/cc/cfe: Error: foo.c: 1: blah blah |
6e0443843832
(compilation-error-regexp-alist): Handle DEC AXP OSF/1.
Richard M. Stallman <rms@gnu.org>
parents:
5606
diff
changeset
|
160 ("rror: \\([^,\" \n\t]+\\)[,:] \\(line \\)?\\([0-9]+\\):" 1 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
|
161 |
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
162 ;; IBM AIX PS/2 C version 1.1: |
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
163 ;; ****** Error number 140 in line 8 of file errors.c ****** |
727 | 164 ("in line \\([0-9]+\\) of file \\([^ \n]+[^. \n]\\)\\.? " 2 1) |
418 | 165 ;; IBM AIX lint is too painful to do right this way. File name |
166 ;; prefixes entire sections rather than being on each line. | |
1702
817bd71e0e72
* compile.el (compilation-error-regexp-alist): Tightened up
Jim Blandy <jimb@redhat.com>
parents:
1554
diff
changeset
|
167 |
5605
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
168 ;; Lucid Compiler, lcc 3.x |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
169 ;; E, file.cc(35,52) Illegal operation on pointers |
7768
2032401dcc86
(compilation-error-regexp-alist): Stricter Lucid regexp.
Richard M. Stallman <rms@gnu.org>
parents:
7567
diff
changeset
|
170 ("\n[EW], \\([^(\n]*\\)(\\([0-9]+\\),[ \t]*\\([0-9]+\\)" 1 2 3) |
5605
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
171 |
418 | 172 ) |
1133 | 173 "Alist that specifies how to match errors in compiler output. |
5605
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
174 Each element has the form (REGEXP FILE-IDX LINE-IDX [COLUMN-IDX]). |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
175 If REGEXP matches, the FILE-IDX'th subexpression gives the file name, and |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
176 the LINE-IDX'th subexpression gives the line number. If COLUMN-IDX is |
5606
f600a46890d1
(copmilation-error-list): Doc fix.
Roland McGrath <roland@gnu.org>
parents:
5605
diff
changeset
|
177 given, the COLUMN-IDX'th subexpression gives the column number on that line.") |
71 | 178 |
5406
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
179 (defvar compilation-read-command t |
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
180 "If not nil, M-x compile reads the compilation command to use. |
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
181 Otherwise, M-x compile just uses the value of `compile-command'.") |
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
182 |
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
183 (defvar compilation-ask-about-save t |
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
184 "If not nil, M-x compile asks which buffers to save before compiling. |
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
185 Otherwise, it saves all modified buffers without asking.") |
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
186 |
1072 | 187 (defvar grep-regexp-alist |
188 '(("^\\([^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 2)) | |
189 "Regexp used to match grep hits. See `compilation-error-regexp-alist'.") | |
190 | |
5260
93a5ed7aaeb5
(grep-command): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5215
diff
changeset
|
191 (defvar grep-command "grep -n " |
93a5ed7aaeb5
(grep-command): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5215
diff
changeset
|
192 "Last grep command used in \\{grep}; default for next grep.") |
93a5ed7aaeb5
(grep-command): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5215
diff
changeset
|
193 |
569 | 194 ;;;###autoload |
418 | 195 (defvar compilation-search-path '(nil) |
569 | 196 "*List of directories to search for source files named in error messages. |
418 | 197 Elements should be directory names, not file names of directories. |
198 nil as an element means to try the default directory.") | |
71 | 199 |
200 (defvar compile-command "make -k " | |
201 "Last shell command used to do a compilation; default for next compilation. | |
202 | |
203 Sometimes it is useful for files to supply local values for this variable. | |
204 You might also use mode hooks to specify it in certain modes, like this: | |
205 | |
206 (setq c-mode-hook | |
207 '(lambda () (or (file-exists-p \"makefile\") (file-exists-p \"Makefile\") | |
208 (progn (make-local-variable 'compile-command) | |
209 (setq compile-command | |
210 (concat \"make -k \" | |
211 buffer-file-name))))))") | |
212 | |
8189
b88934e64021
(compilation-window-height): Use defvar.
Richard M. Stallman <rms@gnu.org>
parents:
7882
diff
changeset
|
213 (defvar compilation-enter-directory-regexp |
727 | 214 ": Entering directory `\\(.*\\)'$" |
1133 | 215 "Regular expression matching lines that indicate a new current directory. |
216 This must contain one \\(, \\) pair around the directory name. | |
418 | 217 |
218 The default value matches lines printed by the `-w' option of GNU Make.") | |
71 | 219 |
8189
b88934e64021
(compilation-window-height): Use defvar.
Richard M. Stallman <rms@gnu.org>
parents:
7882
diff
changeset
|
220 (defvar compilation-leave-directory-regexp |
727 | 221 ": Leaving directory `\\(.*\\)'$" |
1133 | 222 "Regular expression matching lines that indicate restoring current directory. |
223 This may contain one \\(, \\) pair around the name of the directory | |
224 being moved from. If it does not, the last directory entered \(by a | |
225 line matching `compilation-enter-directory-regexp'\) is assumed. | |
418 | 226 |
227 The default value matches lines printed by the `-w' option of GNU Make.") | |
228 | |
229 (defvar compilation-directory-stack nil | |
1133 | 230 "Stack of previous directories for `compilation-leave-directory-regexp'. |
231 The head element is the directory the compilation was started in.") | |
418 | 232 |
864
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
233 ;; History of compile commands. |
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
234 (defvar compile-history nil) |
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
235 ;; History of grep commands. |
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
236 (defvar grep-history nil) |
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
237 |
418 | 238 ;;;###autoload |
71 | 239 (defun compile (command) |
240 "Compile the program including the current buffer. Default: run `make'. | |
241 Runs COMMAND, a shell command, in a separate process asynchronously | |
242 with output going to the buffer `*compilation*'. | |
418 | 243 |
71 | 244 You can then use the command \\[next-error] to find the next error message |
245 and move to the source code that caused it. | |
246 | |
247 To run more than one compilation at once, start one and rename the | |
418 | 248 \`*compilation*' buffer to some other name with \\[rename-buffer]. |
249 Then start the next one. | |
250 | |
251 The name used for the buffer is actually whatever is returned by | |
252 the function in `compilation-buffer-name-function', so you can set that | |
253 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
|
254 (interactive |
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
255 (if compilation-read-command |
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
256 (list (read-from-minibuffer "Compile command: " |
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
257 compile-command nil nil |
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
258 '(compile-history . 1))) |
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
259 (list compile-command))) |
71 | 260 (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
|
261 (save-some-buffers (not compilation-ask-about-save) nil) |
418 | 262 (compile-internal compile-command "No more errors")) |
71 | 263 |
418 | 264 ;;;###autoload |
71 | 265 (defun grep (command-args) |
266 "Run grep, with user-specified args, and collect output in a buffer. | |
267 While grep runs asynchronously, you can use the \\[next-error] command | |
418 | 268 to find the text that grep hits refer to. |
269 | |
864
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
270 This command uses a special history list for its arguments, so you can |
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
271 easily repeat a grep command." |
71 | 272 (interactive |
864
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
273 (list (read-from-minibuffer "Run grep (like this): " |
5260
93a5ed7aaeb5
(grep-command): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5215
diff
changeset
|
274 grep-command nil nil 'grep-history))) |
864
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
275 (compile-internal (concat command-args " /dev/null") |
1072 | 276 "No more grep hits" "grep" |
277 ;; Give it a simpler regexp to match. | |
278 nil grep-regexp-alist)) | |
71 | 279 |
280 (defun compile-internal (command error-message | |
418 | 281 &optional name-of-mode parser regexp-alist |
282 name-function) | |
71 | 283 "Run compilation command COMMAND (low level interface). |
284 ERROR-MESSAGE is a string to print if the user asks to see another error | |
285 and there are no more errors. Third argument NAME-OF-MODE is the name | |
418 | 286 to display as the major mode in the compilation buffer. |
71 | 287 |
418 | 288 Fourth arg PARSER is the error parser function (nil means the default). Fifth |
289 arg REGEXP-ALIST is the error message regexp alist to use (nil means the | |
290 default). Sixth arg NAME-FUNCTION is a function called to name the buffer (nil | |
291 means the default). The defaults for these variables are the global values of | |
292 \`compilation-parse-errors-function', `compilation-error-regexp-alist', and | |
894 | 293 \`compilation-buffer-name-function', respectively. |
294 | |
295 Returns the compilation buffer created." | |
418 | 296 (let (outbuf) |
71 | 297 (save-excursion |
418 | 298 (or name-of-mode |
299 (setq name-of-mode "Compilation")) | |
300 (setq outbuf | |
301 (get-buffer-create | |
302 (funcall (or name-function compilation-buffer-name-function | |
303 (function (lambda (mode) | |
304 (concat "*" (downcase mode) "*")))) | |
305 name-of-mode))) | |
71 | 306 (set-buffer outbuf) |
418 | 307 (let ((comp-proc (get-buffer-process (current-buffer)))) |
308 (if comp-proc | |
309 (if (or (not (eq (process-status comp-proc) 'run)) | |
310 (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
|
311 (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
|
312 name-of-mode))) |
418 | 313 (condition-case () |
314 (progn | |
315 (interrupt-process comp-proc) | |
316 (sit-for 1) | |
317 (delete-process comp-proc)) | |
318 (error nil)) | |
319 (error "Cannot have two processes in `%s' at once" | |
320 (buffer-name)) | |
321 ))) | |
322 ;; In case the compilation buffer is current, make sure we get the global | |
323 ;; values of compilation-error-regexp-alist, etc. | |
324 (kill-all-local-variables)) | |
325 (let ((regexp-alist (or regexp-alist compilation-error-regexp-alist)) | |
326 (parser (or parser compilation-parse-errors-function)) | |
327 (thisdir default-directory) | |
328 outwin) | |
329 (save-excursion | |
330 ;; Clear out the compilation buffer and make it writable. | |
331 ;; Change its default-directory to the directory where the compilation | |
332 ;; will happen, and insert a `cd' command to indicate this. | |
333 (set-buffer outbuf) | |
334 (setq buffer-read-only nil) | |
335 (erase-buffer) | |
336 (setq default-directory thisdir) | |
337 (insert "cd " thisdir "\n" command "\n") | |
338 (set-buffer-modified-p nil)) | |
339 ;; If we're already in the compilation buffer, go to the end | |
340 ;; of the buffer, so point will track the compilation output. | |
341 (if (eq outbuf (current-buffer)) | |
342 (goto-char (point-max))) | |
343 ;; Pop up the compilation buffer. | |
344 (setq outwin (display-buffer outbuf)) | |
3514
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
345 (save-excursion |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
346 (set-buffer outbuf) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
347 (compilation-mode) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
348 (buffer-disable-undo (current-buffer)) |
4757
c21680a58d1e
(compile-internal): Back out jimb change of making buffer read-only. It
Brian Fox <bfox@gnu.org>
parents:
4612
diff
changeset
|
349 ;; (setq buffer-read-only t) ;;; Non-ergonomic. |
3514
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
350 (set (make-local-variable 'compilation-parse-errors-function) parser) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
351 (set (make-local-variable 'compilation-error-message) error-message) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
352 (set (make-local-variable 'compilation-error-regexp-alist) regexp-alist) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
353 (setq default-directory thisdir |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
354 compilation-directory-stack (list default-directory)) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
355 (set-window-start outwin (point-min)) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
356 (setq mode-name name-of-mode) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
357 (or (eq outwin (selected-window)) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
358 (set-window-point outwin (point-min))) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
359 (and compilation-window-height |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
360 (= (window-width outwin) (frame-width)) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
361 (let ((w (selected-window))) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
362 (unwind-protect |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
363 (progn |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
364 (select-window outwin) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
365 (enlarge-window (- compilation-window-height |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
366 (window-height)))) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
367 (select-window w)))) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
368 ;; Start the compilation. |
5456
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
369 (if (fboundp 'start-process) |
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
370 (let ((proc (start-process-shell-command (downcase mode-name) |
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
371 outbuf |
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
372 command))) |
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
373 (set-process-sentinel proc 'compilation-sentinel) |
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
374 (set-process-filter proc 'compilation-filter) |
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
375 (set-marker (process-mark proc) (point) outbuf) |
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
376 (setq compilation-in-progress |
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
377 (cons proc compilation-in-progress))) |
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
378 ;; No asynchronous processes available |
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
379 (message (format "Executing `%s'..." command)) |
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
380 (let ((status (call-process shell-file-name nil outbuf nil "-c" |
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
381 command)))) |
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
382 (message (format "Executing `%s'...done" command))))) |
418 | 383 ;; Make it so the next C-x ` will use this buffer. |
384 (setq compilation-last-buffer outbuf))) | |
71 | 385 |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
386 (defvar compilation-minor-mode-map |
71 | 387 (let ((map (make-sparse-keymap))) |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
388 (define-key map [mouse-2] 'compile-mouse-goto-error) |
71 | 389 (define-key map "\C-c\C-c" 'compile-goto-error) |
418 | 390 (define-key map "\C-c\C-k" 'kill-compilation) |
894 | 391 (define-key map "\M-n" 'compilation-next-error) |
392 (define-key map "\M-p" 'compilation-previous-error) | |
946 | 393 (define-key map "\M-{" 'compilation-previous-file) |
394 (define-key map "\M-}" 'compilation-next-file) | |
71 | 395 map) |
2760
1c7595e3089b
(Setting minor-mode-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
2603
diff
changeset
|
396 "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
|
397 |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
398 (defvar compilation-mode-map |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
399 (let ((map (cons 'keymap compilation-minor-mode-map))) |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
400 (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
|
401 (define-key map "\^?" 'scroll-down) |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
402 map) |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
403 "Keymap for compilation log buffers. |
2760
1c7595e3089b
(Setting minor-mode-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
2603
diff
changeset
|
404 `compilation-minor-mode-map' is a cdr of this.") |
71 | 405 |
406 (defun compilation-mode () | |
407 "Major mode for compilation log buffers. | |
408 \\<compilation-mode-map>To visit the source for a line-numbered error, | |
418 | 409 move point to the error message line and type \\[compile-goto-error]. |
569 | 410 To kill the compilation, type \\[kill-compilation]. |
411 | |
412 Runs `compilation-mode-hook' with `run-hooks' (which see)." | |
71 | 413 (interactive) |
414 (fundamental-mode) | |
415 (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
|
416 (setq major-mode 'compilation-mode |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
417 mode-name "Compilation") |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
418 (compilation-setup) |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
419 (run-hooks 'compilation-mode-hook)) |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
420 |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
421 ;; Prepare the buffer for the compilation parsing commands to work. |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
422 (defun compilation-setup () |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
423 ;; Make the buffer's mode line show process state. |
7072
5da29eb68c82
(compilation-setup, compilation-sentinel):
Richard M. Stallman <rms@gnu.org>
parents:
6989
diff
changeset
|
424 (setq mode-line-process '(":%s")) |
418 | 425 (set (make-local-variable 'compilation-error-list) nil) |
426 (set (make-local-variable 'compilation-old-error-list) nil) | |
427 (set (make-local-variable 'compilation-parsing-end) 1) | |
428 (set (make-local-variable 'compilation-directory-stack) nil) | |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
429 (setq compilation-last-buffer (current-buffer))) |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
430 |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
431 (defvar compilation-minor-mode nil |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
432 "Non-nil when in 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
|
433 In this minor mode, all the error-parsing commands of the |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
434 Compilation major mode are available.") |
4445
a1e412873732
(compilation-minor-mode): Make variable buffer-local.
Roland McGrath <roland@gnu.org>
parents:
4350
diff
changeset
|
435 (make-variable-buffer-local '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
|
436 |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
437 (or (assq 'compilation-minor-mode minor-mode-alist) |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
438 (setq minor-mode-alist (cons '(compilation-minor-mode " Compilation") |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
439 minor-mode-alist))) |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
440 (or (assq 'compilation-minor-mode minor-mode-map-alist) |
2760
1c7595e3089b
(Setting minor-mode-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
2603
diff
changeset
|
441 (setq minor-mode-map-alist (cons (cons 'compilation-minor-mode |
1c7595e3089b
(Setting minor-mode-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
2603
diff
changeset
|
442 compilation-minor-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
|
443 minor-mode-map-alist))) |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
444 |
4445
a1e412873732
(compilation-minor-mode): Make variable buffer-local.
Roland McGrath <roland@gnu.org>
parents:
4350
diff
changeset
|
445 ;;;###autoload |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
446 (defun compilation-minor-mode (&optional arg) |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
447 "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
|
448 With arg, turn compilation mode on if and only if arg is positive. |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
449 See `compilation-mode'." |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
450 (interactive "P") |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
451 (if (setq compilation-minor-mode (if (null arg) |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
452 (null 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
|
453 (> (prefix-numeric-value arg) 0))) |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
454 (compilation-setup))) |
71 | 455 |
456 ;; Called when compilation process changes state. | |
457 (defun compilation-sentinel (proc msg) | |
418 | 458 "Sentinel for compilation buffers." |
459 (let ((buffer (process-buffer proc))) | |
740 | 460 (if (memq (process-status proc) '(signal exit)) |
461 (progn | |
462 (if (null (buffer-name buffer)) | |
463 ;; buffer killed | |
464 (set-process-buffer proc nil) | |
465 (let ((obuf (current-buffer)) | |
466 omax opoint) | |
467 ;; save-excursion isn't the right thing if | |
468 ;; process-buffer is current-buffer | |
469 (unwind-protect | |
470 (progn | |
471 ;; Write something in the compilation buffer | |
472 ;; and hack its mode line. | |
473 (set-buffer buffer) | |
1731
d1a56482a2af
(compilation-sentinel): Change buffer-read-only with let.
Richard M. Stallman <rms@gnu.org>
parents:
1702
diff
changeset
|
474 (let ((buffer-read-only nil)) |
d1a56482a2af
(compilation-sentinel): Change buffer-read-only with let.
Richard M. Stallman <rms@gnu.org>
parents:
1702
diff
changeset
|
475 (setq omax (point-max) |
d1a56482a2af
(compilation-sentinel): Change buffer-read-only with let.
Richard M. Stallman <rms@gnu.org>
parents:
1702
diff
changeset
|
476 opoint (point)) |
d1a56482a2af
(compilation-sentinel): Change buffer-read-only with let.
Richard M. Stallman <rms@gnu.org>
parents:
1702
diff
changeset
|
477 (goto-char omax) |
d1a56482a2af
(compilation-sentinel): Change buffer-read-only with let.
Richard M. Stallman <rms@gnu.org>
parents:
1702
diff
changeset
|
478 ;; Record where we put the message, so we can ignore it |
d1a56482a2af
(compilation-sentinel): Change buffer-read-only with let.
Richard M. Stallman <rms@gnu.org>
parents:
1702
diff
changeset
|
479 ;; later on. |
d1a56482a2af
(compilation-sentinel): Change buffer-read-only with let.
Richard M. Stallman <rms@gnu.org>
parents:
1702
diff
changeset
|
480 (insert ?\n mode-name " " msg) |
d1a56482a2af
(compilation-sentinel): Change buffer-read-only with let.
Richard M. Stallman <rms@gnu.org>
parents:
1702
diff
changeset
|
481 (forward-char -1) |
d1a56482a2af
(compilation-sentinel): Change buffer-read-only with let.
Richard M. Stallman <rms@gnu.org>
parents:
1702
diff
changeset
|
482 (insert " at " (substring (current-time-string) 0 19)) |
d1a56482a2af
(compilation-sentinel): Change buffer-read-only with let.
Richard M. Stallman <rms@gnu.org>
parents:
1702
diff
changeset
|
483 (forward-char 1) |
d1a56482a2af
(compilation-sentinel): Change buffer-read-only with let.
Richard M. Stallman <rms@gnu.org>
parents:
1702
diff
changeset
|
484 (setq mode-line-process |
7072
5da29eb68c82
(compilation-setup, compilation-sentinel):
Richard M. Stallman <rms@gnu.org>
parents:
6989
diff
changeset
|
485 (concat ":" |
1731
d1a56482a2af
(compilation-sentinel): Change buffer-read-only with let.
Richard M. Stallman <rms@gnu.org>
parents:
1702
diff
changeset
|
486 (symbol-name (process-status proc)))) |
d1a56482a2af
(compilation-sentinel): Change buffer-read-only with let.
Richard M. Stallman <rms@gnu.org>
parents:
1702
diff
changeset
|
487 ;; Since the buffer and mode line will show that the |
d1a56482a2af
(compilation-sentinel): Change buffer-read-only with let.
Richard M. Stallman <rms@gnu.org>
parents:
1702
diff
changeset
|
488 ;; process is dead, we can delete it now. Otherwise it |
d1a56482a2af
(compilation-sentinel): Change buffer-read-only with let.
Richard M. Stallman <rms@gnu.org>
parents:
1702
diff
changeset
|
489 ;; will stay around until M-x list-processes. |
d1a56482a2af
(compilation-sentinel): Change buffer-read-only with let.
Richard M. Stallman <rms@gnu.org>
parents:
1702
diff
changeset
|
490 (delete-process proc) |
d1a56482a2af
(compilation-sentinel): Change buffer-read-only with let.
Richard M. Stallman <rms@gnu.org>
parents:
1702
diff
changeset
|
491 ;; Force mode line redisplay soon. |
d1a56482a2af
(compilation-sentinel): Change buffer-read-only with let.
Richard M. Stallman <rms@gnu.org>
parents:
1702
diff
changeset
|
492 (set-buffer-modified-p (buffer-modified-p))) |
740 | 493 (if (and opoint (< opoint omax)) |
1133 | 494 (goto-char opoint)) |
495 (if compilation-finish-function | |
496 (funcall compilation-finish-function buffer msg))) | |
497 (set-buffer obuf)))) | |
740 | 498 (setq compilation-in-progress (delq proc compilation-in-progress)) |
499 )))) | |
71 | 500 |
2472
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
501 (defun compilation-filter (proc string) |
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
502 "Process filter for compilation buffers. |
2760
1c7595e3089b
(Setting minor-mode-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
2603
diff
changeset
|
503 Just inserts the text, but uses `insert-before-markers'." |
2472
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
504 (save-excursion |
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
505 (set-buffer (process-buffer proc)) |
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
506 (let ((buffer-read-only nil)) |
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
507 (save-excursion |
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
508 (goto-char (process-mark proc)) |
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
509 (insert-before-markers string) |
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
510 (set-marker (process-mark proc) (point)))))) |
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
511 |
920 | 512 ;; Return the cdr of compilation-old-error-list for the error containing point. |
513 (defun compile-error-at-point () | |
514 (compile-reinitialize-errors nil (point)) | |
515 (let ((errors compilation-old-error-list)) | |
516 (while (and errors | |
517 (> (point) (car (car errors)))) | |
518 (setq errors (cdr errors))) | |
519 errors)) | |
520 | |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
521 (defsubst compilation-buffer-p (buffer) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
522 (assq 'compilation-error-list (buffer-local-variables buffer))) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
523 |
894 | 524 (defun compilation-next-error (n) |
525 "Move point to the next error in the compilation buffer. | |
526 Does NOT find the source line like \\[next-error]." | |
527 (interactive "p") | |
528 (or (compilation-buffer-p (current-buffer)) | |
529 (error "Not in a compilation buffer.")) | |
530 (setq compilation-last-buffer (current-buffer)) | |
531 | |
920 | 532 (let ((errors (compile-error-at-point))) |
894 | 533 |
920 | 534 ;; Move to the error after the one containing point. |
535 (goto-char (car (if (< n 0) | |
536 (let ((i 0) | |
537 (e compilation-old-error-list)) | |
538 ;; See how many cdrs away ERRORS is from the start. | |
539 (while (not (eq e errors)) | |
540 (setq i (1+ i) | |
541 e (cdr e))) | |
542 (if (> (- n) i) | |
543 (error "Moved back past first error") | |
544 (nth (+ i n) compilation-old-error-list))) | |
545 (let ((compilation-error-list (cdr errors))) | |
546 (compile-reinitialize-errors nil nil n) | |
547 (if compilation-error-list | |
548 (nth (1- n) compilation-error-list) | |
549 (error "Moved past last error")))))))) | |
894 | 550 |
551 (defun compilation-previous-error (n) | |
552 "Move point to the previous error in the compilation buffer. | |
553 Does NOT find the source line like \\[next-error]." | |
554 (interactive "p") | |
555 (compilation-next-error (- n))) | |
556 | |
557 | |
4153
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
558 ;; Given an elt of `compilation-error-list', return an object representing |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
559 ;; the referenced file which is equal to (but not necessarily eq to) what |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
560 ;; this function would return for another error in the same file. |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
561 (defsubst compilation-error-filedata (data) |
920 | 562 (setq data (cdr data)) |
563 (if (markerp data) | |
4153
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
564 (marker-buffer data) |
3875
c5b6f641698a
* compile.el (compile-file-of-error): Remember that
Jim Blandy <jimb@redhat.com>
parents:
3825
diff
changeset
|
565 (car data))) |
920 | 566 |
4153
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
567 ;; Return a string describing a value from compilation-error-filedata. |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
568 ;; This value is not necessarily useful as a file name, but should be |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
569 ;; indicative to the user of what file's errors are being referred to. |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
570 (defsubst compilation-error-filedata-file-name (filedata) |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
571 (if (bufferp filedata) |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
572 (buffer-file-name filedata) |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
573 (car filedata))) |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
574 |
920 | 575 (defun compilation-next-file (n) |
576 "Move point to the next error for a different file than the current one." | |
577 (interactive "p") | |
578 (or (compilation-buffer-p (current-buffer)) | |
579 (error "Not in a compilation buffer.")) | |
580 (setq compilation-last-buffer (current-buffer)) | |
581 | |
582 (let ((reversed (< n 0)) | |
4153
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
583 errors filedata) |
920 | 584 |
585 (if (not reversed) | |
586 (setq errors (or (compile-error-at-point) | |
587 (error "Moved past last error"))) | |
588 | |
589 ;; Get a reversed list of the errors up through the one containing point. | |
590 (compile-reinitialize-errors nil (point)) | |
591 (setq errors (reverse compilation-old-error-list) | |
592 n (- n)) | |
593 | |
594 ;; Ignore errors after point. (car ERRORS) will be the error | |
595 ;; containing point, (cadr ERRORS) the one before it. | |
596 (while (and errors | |
597 (< (point) (car (car errors)))) | |
598 (setq errors (cdr errors)))) | |
599 | |
600 (while (> n 0) | |
4153
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
601 (setq filedata (compilation-error-filedata (car errors))) |
920 | 602 |
4153
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
603 ;; Skip past the following errors for this file. |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
604 (while (equal filedata |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
605 (compilation-error-filedata |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
606 (car (or errors |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
607 (if reversed |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
608 (error "%s the first erring file" |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
609 (compilation-error-filedata-file-name |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
610 filedata)) |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
611 (let ((compilation-error-list nil)) |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
612 ;; Parse some more. |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
613 (compile-reinitialize-errors nil nil 2) |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
614 (setq errors compilation-error-list))) |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
615 (error "%s is the last erring file" |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
616 (compilation-error-filedata-file-name |
787df5416fba
(compilation-error-list): An elt's cdr's car is again a cons (DIRECTORY .
Roland McGrath <roland@gnu.org>
parents:
4093
diff
changeset
|
617 filedata)))))) |
920 | 618 (setq errors (cdr errors))) |
619 | |
620 (setq n (1- n))) | |
621 | |
622 ;; Move to the following error. | |
623 (goto-char (car (car (or errors | |
624 (if reversed | |
625 (error "This is the first erring file") | |
626 (let ((compilation-error-list nil)) | |
627 ;; Parse the last one. | |
628 (compile-reinitialize-errors nil nil 1) | |
629 compilation-error-list)))))))) | |
630 | |
631 (defun compilation-previous-file (n) | |
632 "Move point to the previous error for a different file than the current one." | |
633 (interactive "p") | |
634 (compilation-next-file (- n))) | |
635 | |
636 | |
71 | 637 (defun kill-compilation () |
638 "Kill the process made by the \\[compile] command." | |
639 (interactive) | |
418 | 640 (let ((buffer (compilation-find-buffer))) |
71 | 641 (if (get-buffer-process buffer) |
418 | 642 (interrupt-process (get-buffer-process buffer)) |
643 (error "The compilation process is not running.")))) | |
71 | 644 |
418 | 645 |
646 ;; Parse any new errors in the compilation buffer, | |
647 ;; or reparse from the beginning if the user has asked for that. | |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
648 (defun compile-reinitialize-errors (reparse |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
649 &optional limit-search find-at-least) |
418 | 650 (save-excursion |
651 (set-buffer compilation-last-buffer) | |
652 ;; If we are out of errors, or if user says "reparse", | |
653 ;; discard the info we have, to force reparsing. | |
654 (if (or (eq compilation-error-list t) | |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
655 reparse) |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
656 (compilation-forget-errors)) |
907 | 657 (if (and compilation-error-list |
920 | 658 (or (not limit-search) |
659 (> compilation-parsing-end limit-search)) | |
907 | 660 (or (not find-at-least) |
4757
c21680a58d1e
(compile-internal): Back out jimb change of making buffer read-only. It
Brian Fox <bfox@gnu.org>
parents:
4612
diff
changeset
|
661 (>= (length compilation-error-list) find-at-least))) |
418 | 662 ;; Since compilation-error-list is non-nil, it points to a specific |
663 ;; error the user wanted. So don't move it around. | |
664 nil | |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
665 ;; This was here for a long time (before my rewrite); why? --roland |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
666 ;;(switch-to-buffer compilation-last-buffer) |
71 | 667 (set-buffer-modified-p nil) |
920 | 668 (if (< compilation-parsing-end (point-max)) |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
669 ;; compilation-error-list might be non-nil if we have a non-nil |
6673
137122de77ef
(compile-reinitialize-errors): Fix typo in comment.
Karl Heuer <kwzh@gnu.org>
parents:
6639
diff
changeset
|
670 ;; LIMIT-SEARCH or FIND-AT-LEAST arg. In that case its value |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
671 ;; records the current position in the error list, and we must |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
672 ;; preserve that after reparsing. |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
673 (let ((error-list-pos compilation-error-list)) |
920 | 674 (funcall compilation-parse-errors-function |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
675 limit-search |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
676 (and find-at-least |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
677 ;; We only need enough new parsed errors to reach |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
678 ;; FIND-AT-LEAST errors past the current |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
679 ;; position. |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
680 (- find-at-least (length compilation-error-list)))) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
681 ;; Remember the entire list for compilation-forget-errors. If |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
682 ;; this is an incremental parse, append to previous list. If |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
683 ;; we are parsing anew, compilation-forget-errors cleared |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
684 ;; compilation-old-error-list above. |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
685 (setq compilation-old-error-list |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
686 (nconc compilation-old-error-list compilation-error-list)) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
687 (if error-list-pos |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
688 ;; We started in the middle of an existing list of parsed |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
689 ;; errors before parsing more; restore that position. |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
690 (setq compilation-error-list error-list-pos)) |
920 | 691 ))))) |
71 | 692 |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
693 (defun compile-mouse-goto-error (event) |
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
694 (interactive "e") |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
695 (save-excursion |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
696 (set-buffer (window-buffer (posn-window (event-end event)))) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
697 (goto-char (posn-point (event-end event))) |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
698 |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
699 (or (compilation-buffer-p (current-buffer)) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
700 (error "Not in a compilation buffer.")) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
701 (setq compilation-last-buffer (current-buffer)) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
702 (compile-reinitialize-errors nil (point)) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
703 |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
704 ;; Move to bol; the marker for the error on this line will point there. |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
705 (beginning-of-line) |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
706 |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
707 ;; Move compilation-error-list to the elt of compilation-old-error-list |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
708 ;; we want. |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
709 (setq compilation-error-list compilation-old-error-list) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
710 (while (and compilation-error-list |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
711 (> (point) (car (car compilation-error-list)))) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
712 (setq compilation-error-list (cdr compilation-error-list))) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
713 (or compilation-error-list |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
714 (error "No error to go to"))) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
715 (select-window (posn-window (event-end event))) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
716 ;; Move to another window, so that next-error's window changes |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
717 ;; result in the desired setup. |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
718 (or (one-window-p) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
719 (progn |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
720 (other-window -1) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
721 ;; other-window changed the selected buffer, |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
722 ;; but we didn't want to do that. |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
723 (set-buffer compilation-last-buffer))) |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
724 |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
725 (push-mark) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
726 (next-error 1)) |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
727 |
71 | 728 (defun compile-goto-error (&optional argp) |
729 "Visit the source for the error message point is on. | |
6197
8ddddba0de43
(compile-goto-error): Push the mark before calling next-error.
Roland McGrath <roland@gnu.org>
parents:
5961
diff
changeset
|
730 Use this command in a compilation log buffer. Sets the mark at point there. |
885 | 731 \\[universal-argument] as a prefix arg means to reparse the buffer's error messages first; |
71 | 732 other kinds of prefix arguments are ignored." |
733 (interactive "P") | |
418 | 734 (or (compilation-buffer-p (current-buffer)) |
735 (error "Not in a compilation buffer.")) | |
736 (setq compilation-last-buffer (current-buffer)) | |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
737 (compile-reinitialize-errors (consp argp) (point)) |
894 | 738 |
1072 | 739 ;; Move to bol; the marker for the error on this line will point there. |
740 (beginning-of-line) | |
741 | |
894 | 742 ;; Move compilation-error-list to the elt of compilation-old-error-list |
901 | 743 ;; we want. |
894 | 744 (setq compilation-error-list compilation-old-error-list) |
901 | 745 (while (and compilation-error-list |
746 (> (point) (car (car compilation-error-list)))) | |
894 | 747 (setq compilation-error-list (cdr compilation-error-list))) |
748 | |
71 | 749 ;; Move to another window, so that next-error's window changes |
750 ;; result in the desired setup. | |
751 (or (one-window-p) | |
894 | 752 (progn |
753 (other-window -1) | |
754 ;; other-window changed the selected buffer, | |
755 ;; but we didn't want to do that. | |
756 (set-buffer compilation-last-buffer))) | |
757 | |
6197
8ddddba0de43
(compile-goto-error): Push the mark before calling next-error.
Roland McGrath <roland@gnu.org>
parents:
5961
diff
changeset
|
758 (push-mark) |
901 | 759 (next-error 1)) |
71 | 760 |
418 | 761 ;; Return a compilation buffer. |
762 ;; If the current buffer is a compilation buffer, return it. | |
763 ;; If compilation-last-buffer is set to a live buffer, use that. | |
764 ;; Otherwise, look for a compilation buffer and signal an error | |
765 ;; if there are none. | |
621 | 766 (defun compilation-find-buffer (&optional other-buffer) |
767 (if (and (not other-buffer) | |
768 (compilation-buffer-p (current-buffer))) | |
418 | 769 ;; The current buffer is a compilation buffer. |
770 (current-buffer) | |
621 | 771 (if (and compilation-last-buffer (buffer-name compilation-last-buffer) |
772 (or (not other-buffer) (not (eq compilation-last-buffer | |
773 (current-buffer))))) | |
418 | 774 compilation-last-buffer |
775 (let ((buffers (buffer-list))) | |
621 | 776 (while (and buffers (or (not (compilation-buffer-p (car buffers))) |
777 (and other-buffer | |
778 (eq (car buffers) (current-buffer))))) | |
418 | 779 (setq buffers (cdr buffers))) |
780 (if buffers | |
781 (car buffers) | |
621 | 782 (or (and other-buffer |
783 (compilation-buffer-p (current-buffer)) | |
784 ;; The current buffer is a compilation buffer. | |
785 (progn | |
786 (if other-buffer | |
787 (message "This is the only compilation buffer.")) | |
788 (current-buffer))) | |
789 (error "No compilation started!"))))))) | |
418 | 790 |
791 ;;;###autoload | |
71 | 792 (defun next-error (&optional argp) |
793 "Visit next compilation error message and corresponding source code. | |
794 This operates on the output from the \\[compile] command. | |
795 If all preparsed error messages have been processed, | |
796 the error message buffer is checked for new ones. | |
797 | |
798 A prefix arg specifies how many error messages to move; | |
799 negative means move back to previous error messages. | |
800 Just C-u as a prefix means reparse the error message buffer | |
801 and start at the first error. | |
802 | |
803 \\[next-error] normally applies to the most recent compilation started, | |
804 but as long as you are in the middle of parsing errors from one compilation | |
805 output buffer, you stay with that compilation output buffer. | |
806 | |
807 Use \\[next-error] in a compilation output buffer to switch to | |
808 processing errors from that compilation. | |
809 | |
418 | 810 See variables `compilation-parse-errors-function' and |
811 \`compilation-error-regexp-alist' for customization ideas." | |
71 | 812 (interactive "P") |
418 | 813 (setq compilation-last-buffer (compilation-find-buffer)) |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
814 (compilation-goto-locus (compilation-next-error-locus |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
815 ;; We want to pass a number here only if |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
816 ;; we got a numeric prefix arg, not just C-u. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
817 (and (not (consp argp)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
818 (prefix-numeric-value argp)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
819 (consp argp)))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
820 ;;;###autoload (define-key ctl-x-map "`" 'next-error) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
821 |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
822 (defun compilation-next-error-locus (&optional move reparse) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
823 "Visit next compilation error and return locus in corresponding source code. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
824 This operates on the output from the \\[compile] command. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
825 If all preparsed error messages have been processed, |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
826 the error message buffer is checked for new ones. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
827 |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
828 Returns a cons (ERROR . SOURCE) of two markers: ERROR is a marker at the |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
829 location of the error message in the compilation buffer, and SOURCE is a |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
830 marker at the location in the source code indicated by the error message. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
831 |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
832 Optional first arg MOVE says how many error messages to move forwards (or |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
833 backwards, if negative); default is 1. Optional second arg REPARSE, if |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
834 non-nil, says to reparse the error message buffer and reset to the first |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
835 error (plus MOVE - 1). |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
836 |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
837 The current buffer should be the desired compilation output buffer." |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
838 (or move (setq move 1)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
839 (compile-reinitialize-errors reparse nil (and (not reparse) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
840 (if (< move 1) 0 (1- move)))) |
418 | 841 (let (next-errors next-error) |
842 (save-excursion | |
843 (set-buffer compilation-last-buffer) | |
901 | 844 ;; compilation-error-list points to the "current" error. |
4576
fb0a5397e223
(next-error): Handle zero and negative prefix args.
Roland McGrath <roland@gnu.org>
parents:
4445
diff
changeset
|
845 (setq next-errors |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
846 (if (> move 0) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
847 (nthcdr (1- move) |
4576
fb0a5397e223
(next-error): Handle zero and negative prefix args.
Roland McGrath <roland@gnu.org>
parents:
4445
diff
changeset
|
848 compilation-error-list) |
fb0a5397e223
(next-error): Handle zero and negative prefix args.
Roland McGrath <roland@gnu.org>
parents:
4445
diff
changeset
|
849 ;; Zero or negative arg; we need to move back in the list. |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
850 (let ((n (1- move)) |
4576
fb0a5397e223
(next-error): Handle zero and negative prefix args.
Roland McGrath <roland@gnu.org>
parents:
4445
diff
changeset
|
851 (i 0) |
fb0a5397e223
(next-error): Handle zero and negative prefix args.
Roland McGrath <roland@gnu.org>
parents:
4445
diff
changeset
|
852 (e compilation-old-error-list)) |
fb0a5397e223
(next-error): Handle zero and negative prefix args.
Roland McGrath <roland@gnu.org>
parents:
4445
diff
changeset
|
853 ;; See how many cdrs away the current error is from the start. |
fb0a5397e223
(next-error): Handle zero and negative prefix args.
Roland McGrath <roland@gnu.org>
parents:
4445
diff
changeset
|
854 (while (not (eq e compilation-error-list)) |
fb0a5397e223
(next-error): Handle zero and negative prefix args.
Roland McGrath <roland@gnu.org>
parents:
4445
diff
changeset
|
855 (setq i (1+ i) |
fb0a5397e223
(next-error): Handle zero and negative prefix args.
Roland McGrath <roland@gnu.org>
parents:
4445
diff
changeset
|
856 e (cdr e))) |
fb0a5397e223
(next-error): Handle zero and negative prefix args.
Roland McGrath <roland@gnu.org>
parents:
4445
diff
changeset
|
857 (if (> (- n) i) |
fb0a5397e223
(next-error): Handle zero and negative prefix args.
Roland McGrath <roland@gnu.org>
parents:
4445
diff
changeset
|
858 (error "Moved back past first error") |
fb0a5397e223
(next-error): Handle zero and negative prefix args.
Roland McGrath <roland@gnu.org>
parents:
4445
diff
changeset
|
859 (nthcdr (+ i n) compilation-old-error-list)))) |
418 | 860 next-error (car next-errors)) |
861 (while | |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
862 (if (null next-error) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
863 (progn |
7099
59c3c3a1b571
(compilation-next-error-locus): Use compilation-error-message instead of
Roland McGrath <roland@gnu.org>
parents:
7072
diff
changeset
|
864 (and move (/= move 1) |
59c3c3a1b571
(compilation-next-error-locus): Use compilation-error-message instead of
Roland McGrath <roland@gnu.org>
parents:
7072
diff
changeset
|
865 (error (if (> move 0) |
59c3c3a1b571
(compilation-next-error-locus): Use compilation-error-message instead of
Roland McGrath <roland@gnu.org>
parents:
7072
diff
changeset
|
866 "Moved past last error") |
59c3c3a1b571
(compilation-next-error-locus): Use compilation-error-message instead of
Roland McGrath <roland@gnu.org>
parents:
7072
diff
changeset
|
867 "Moved back past first error")) |
8218
bef94cf432af
(compilation-next-error-locus): Don't call
Richard M. Stallman <rms@gnu.org>
parents:
8189
diff
changeset
|
868 ;; Forget existing error messages if compilation has finished. |
bef94cf432af
(compilation-next-error-locus): Don't call
Richard M. Stallman <rms@gnu.org>
parents:
8189
diff
changeset
|
869 (if (not (and (get-buffer-process (current-buffer)) |
bef94cf432af
(compilation-next-error-locus): Don't call
Richard M. Stallman <rms@gnu.org>
parents:
8189
diff
changeset
|
870 (eq (process-status |
bef94cf432af
(compilation-next-error-locus): Don't call
Richard M. Stallman <rms@gnu.org>
parents:
8189
diff
changeset
|
871 (get-buffer-process |
bef94cf432af
(compilation-next-error-locus): Don't call
Richard M. Stallman <rms@gnu.org>
parents:
8189
diff
changeset
|
872 (current-buffer))) |
bef94cf432af
(compilation-next-error-locus): Don't call
Richard M. Stallman <rms@gnu.org>
parents:
8189
diff
changeset
|
873 'run))) |
bef94cf432af
(compilation-next-error-locus): Don't call
Richard M. Stallman <rms@gnu.org>
parents:
8189
diff
changeset
|
874 (compilation-forget-errors)) |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
875 (error (concat compilation-error-message |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
876 (and (get-buffer-process (current-buffer)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
877 (eq (process-status |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
878 (get-buffer-process |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
879 (current-buffer))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
880 'run) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
881 " yet")))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
882 (setq compilation-error-list (cdr next-errors)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
883 (if (null (cdr next-error)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
884 ;; This error is boring. Go to the next. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
885 t |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
886 (or (markerp (cdr next-error)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
887 ;; This error has a filename/lineno pair. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
888 ;; Find the file and turn it into a marker. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
889 (let* ((fileinfo (car (cdr next-error))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
890 (buffer (compilation-find-file (cdr fileinfo) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
891 (car fileinfo) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
892 (car next-error)))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
893 (if (null buffer) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
894 ;; We can't find this error's file. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
895 ;; Remove all errors in the same file. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
896 (progn |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
897 (setq next-errors compilation-old-error-list) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
898 (while next-errors |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
899 (and (consp (cdr (car next-errors))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
900 (equal (car (cdr (car next-errors))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
901 fileinfo) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
902 (progn |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
903 (set-marker (car (car next-errors)) nil) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
904 (setcdr (car next-errors) nil))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
905 (setq next-errors (cdr next-errors))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
906 ;; Look for the next error. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
907 t) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
908 ;; We found the file. Get a marker for this error. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
909 ;; compilation-old-error-list is a buffer-local |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
910 ;; variable, so we must be careful to extract its value |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
911 ;; before switching to the source file buffer. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
912 (let ((errors compilation-old-error-list) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
913 (last-line (nth 1 (cdr next-error))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
914 (column (nth 2 (cdr next-error)))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
915 (set-buffer buffer) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
916 (save-excursion |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
917 (save-restriction |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
918 (widen) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
919 (goto-line last-line) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
920 (if column |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
921 (move-to-column column) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
922 (beginning-of-line)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
923 (setcdr next-error (point-marker)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
924 ;; Make all the other error messages referring |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
925 ;; to the same file have markers into the buffer. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
926 (while errors |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
927 (and (consp (cdr (car errors))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
928 (equal (car (cdr (car errors))) fileinfo) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
929 (let* ((this (nth 1 (cdr (car errors)))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
930 (column (nth 2 (cdr (car errors)))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
931 (lines (- this last-line))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
932 (if (eq selective-display t) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
933 ;; When selective-display is t, |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
934 ;; each C-m is a line boundary, |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
935 ;; as well as each newline. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
936 (if (< lines 0) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
937 (re-search-backward "[\n\C-m]" |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
938 nil 'end |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
939 (- lines)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
940 (re-search-forward "[\n\C-m]" |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
941 nil 'end |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
942 lines)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
943 (forward-line lines)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
944 (if column |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
945 (move-to-column column)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
946 (setq last-line this) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
947 (setcdr (car errors) (point-marker)))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
948 (setq errors (cdr errors))))))))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
949 ;; If we didn't get a marker for this error, or this |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
950 ;; marker's buffer was killed, go on to the next one. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
951 (or (not (markerp (cdr next-error))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
952 (not (marker-buffer (cdr next-error)))))) |
418 | 953 (setq next-errors compilation-error-list |
954 next-error (car next-errors)))) | |
955 | |
956 ;; Skip over multiple error messages for the same source location, | |
957 ;; so the next C-x ` won't go to an error in the same place. | |
958 (while (and compilation-error-list | |
959 (equal (cdr (car compilation-error-list)) (cdr next-error))) | |
960 (setq compilation-error-list (cdr compilation-error-list))) | |
961 | |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
962 ;; We now have a marker for the position of the error source code. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
963 ;; NEXT-ERROR is a cons (ERROR . SOURCE) of two markers. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
964 next-error)) |
418 | 965 |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
966 (defun compilation-goto-locus (next-error) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
967 "Jump to an error locus returned by `compilation-next-error-locus'. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
968 Takes one argument, a cons (ERROR . SOURCE) of two markers. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
969 Selects a window with point at SOURCE, with another window displaying ERROR." |
7567
4d808a6268a3
(compilation-goto-locus): Handle case where *compilation*
Richard M. Stallman <rms@gnu.org>
parents:
7138
diff
changeset
|
970 (if (and (window-dedicated-p (selected-window)) |
4d808a6268a3
(compilation-goto-locus): Handle case where *compilation*
Richard M. Stallman <rms@gnu.org>
parents:
7138
diff
changeset
|
971 (eq (selected-window) (frame-root-window))) |
4d808a6268a3
(compilation-goto-locus): Handle case where *compilation*
Richard M. Stallman <rms@gnu.org>
parents:
7138
diff
changeset
|
972 (switch-to-buffer-other-frame (marker-buffer (cdr next-error))) |
4d808a6268a3
(compilation-goto-locus): Handle case where *compilation*
Richard M. Stallman <rms@gnu.org>
parents:
7138
diff
changeset
|
973 (switch-to-buffer (marker-buffer (cdr next-error)))) |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
974 (goto-char (cdr next-error)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
975 ;; If narrowing got in the way of |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
976 ;; going to the right place, widen. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
977 (or (= (point) (marker-position (cdr next-error))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
978 (progn |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
979 (widen) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
980 (goto-char (cdr next-error)))) |
418 | 981 |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
982 ;; Show compilation buffer in other window, scrolled to this error. |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
983 (let* ((pop-up-windows t) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
984 (w (display-buffer (marker-buffer (car next-error))))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
985 (set-window-point w (car next-error)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
986 (set-window-start w (car next-error)))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
987 |
418 | 988 ;; Find a buffer for file FILENAME. |
989 ;; Search the directories in compilation-search-path. | |
990 ;; A nil in compilation-search-path means to try the | |
991 ;; current directory, which is passed in DIR. | |
992 ;; If FILENAME is not found at all, ask the user where to find it. | |
993 ;; Pop up the buffer containing MARKER and scroll to MARKER if we ask the user. | |
994 (defun compilation-find-file (filename dir marker) | |
995 (let ((dirs compilation-search-path) | |
996 result name) | |
997 (while (and dirs (null result)) | |
998 (setq name (expand-file-name filename (or (car dirs) dir)) | |
999 result (and (file-exists-p name) | |
1000 (find-file-noselect name)) | |
1001 dirs (cdr dirs))) | |
1002 (or result | |
1003 ;; The file doesn't exist. | |
1004 ;; Ask the user where to find it. | |
1005 ;; If he hits C-g, then the next time he does | |
1006 ;; next-error, he'll skip past it. | |
1007 (progn | |
1008 (let* ((pop-up-windows t) | |
1009 (w (display-buffer (marker-buffer marker)))) | |
1010 (set-window-point w marker) | |
1011 (set-window-start w marker)) | |
1012 (setq name | |
1013 (expand-file-name | |
1014 (read-file-name | |
1015 (format "Find this error in: (default %s) " | |
1016 filename) dir filename t))) | |
1017 (if (file-directory-p name) | |
1018 (setq name (concat (file-name-as-directory name) filename))) | |
1019 (if (file-exists-p name) | |
1020 (find-file-noselect name)))))) | |
1021 | |
1022 ;; Set compilation-error-list to nil, and unchain the markers that point to the | |
1023 ;; error messages and their text, so that they no longer slow down gap motion. | |
1024 ;; This would happen anyway at the next garbage collection, but it is better to | |
894 | 1025 ;; do it right away. |
71 | 1026 (defun compilation-forget-errors () |
1027 (while compilation-old-error-list | |
1028 (let ((next-error (car compilation-old-error-list))) | |
1029 (set-marker (car next-error) nil) | |
418 | 1030 (if (markerp (cdr next-error)) |
1031 (set-marker (cdr next-error) nil))) | |
71 | 1032 (setq compilation-old-error-list (cdr compilation-old-error-list))) |
1846
19c13118ba0c
(compilation-forget-errors): Just set
Roland McGrath <roland@gnu.org>
parents:
1731
diff
changeset
|
1033 (setq compilation-error-list nil |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1034 compilation-directory-stack nil |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1035 compilation-parsing-end 1)) |
418 | 1036 |
1037 | |
1038 (defun count-regexp-groupings (regexp) | |
1039 "Return the number of \\( ... \\) groupings in REGEXP (a string)." | |
1040 (let ((groupings 0) | |
1041 (len (length regexp)) | |
1042 (i 0) | |
1043 c) | |
1044 (while (< i len) | |
1045 (setq c (aref regexp i) | |
1046 i (1+ i)) | |
1047 (cond ((= c ?\[) | |
1048 ;; Find the end of this [...]. | |
1049 (while (and (< i len) | |
1050 (not (= (aref regexp i) ?\]))) | |
1051 (setq i (1+ i)))) | |
1052 ((= c ?\\) | |
1053 (if (< i len) | |
1054 (progn | |
1055 (setq c (aref regexp i) | |
1056 i (1+ i)) | |
1057 (if (= c ?\)) | |
1058 ;; We found the end of a grouping, | |
1059 ;; so bump our counter. | |
1060 (setq groupings (1+ groupings)))))))) | |
1061 groupings)) | |
71 | 1062 |
907 | 1063 (defun compilation-parse-errors (limit-search find-at-least) |
71 | 1064 "Parse the current buffer as grep, cc or lint error messages. |
418 | 1065 See variable `compilation-parse-errors-function' for the interface it uses." |
71 | 1066 (setq compilation-error-list nil) |
1067 (message "Parsing error messages...") | |
3940
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1068 (let (text-buffer orig orig-expanded parent-expanded |
418 | 1069 regexp enter-group leave-group error-group |
885 | 1070 alist subexpr error-regexp-groups |
907 | 1071 (found-desired nil) |
1133 | 1072 (compilation-num-errors-found 0)) |
418 | 1073 |
71 | 1074 ;; Don't reparse messages already seen at last parse. |
1075 (goto-char compilation-parsing-end) | |
1076 ;; Don't parse the first two lines as error messages. | |
1077 ;; This matters for grep. | |
1078 (if (bobp) | |
4093
d24725412d47
(compilation-parse-errors): After skipping two lines, move one char back so
Roland McGrath <roland@gnu.org>
parents:
4045
diff
changeset
|
1079 (progn |
d24725412d47
(compilation-parse-errors): After skipping two lines, move one char back so
Roland McGrath <roland@gnu.org>
parents:
4045
diff
changeset
|
1080 (forward-line 2) |
d24725412d47
(compilation-parse-errors): After skipping two lines, move one char back so
Roland McGrath <roland@gnu.org>
parents:
4045
diff
changeset
|
1081 ;; Move back so point is before the newline. |
d24725412d47
(compilation-parse-errors): After skipping two lines, move one char back so
Roland McGrath <roland@gnu.org>
parents:
4045
diff
changeset
|
1082 ;; This matters because some error regexps use \n instead of ^ |
d24725412d47
(compilation-parse-errors): After skipping two lines, move one char back so
Roland McGrath <roland@gnu.org>
parents:
4045
diff
changeset
|
1083 ;; to be faster. |
d24725412d47
(compilation-parse-errors): After skipping two lines, move one char back so
Roland McGrath <roland@gnu.org>
parents:
4045
diff
changeset
|
1084 (forward-char -1))) |
418 | 1085 |
1086 ;; Compile all the regexps we want to search for into one. | |
1087 (setq regexp (concat "\\(" compilation-enter-directory-regexp "\\)\\|" | |
1088 "\\(" compilation-leave-directory-regexp "\\)\\|" | |
1089 "\\(" (mapconcat (function | |
1090 (lambda (elt) | |
1091 (concat "\\(" (car elt) "\\)"))) | |
1092 compilation-error-regexp-alist | |
1093 "\\|") "\\)")) | |
1094 | |
1095 ;; Find out how many \(...\) groupings are in each of the regexps, and set | |
1096 ;; *-GROUP to the grouping containing each constituent regexp (whose | |
1097 ;; subgroups will come immediately thereafter) of the big regexp we have | |
1098 ;; just constructed. | |
1099 (setq enter-group 1 | |
1100 leave-group (+ enter-group | |
1101 (count-regexp-groupings | |
1102 compilation-enter-directory-regexp) | |
1103 1) | |
1104 error-group (+ leave-group | |
1105 (count-regexp-groupings | |
1106 compilation-leave-directory-regexp) | |
1107 1)) | |
1108 | |
5605
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1109 ;; Compile an alist (IDX FILE LINE [COL]), where IDX is the number of |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1110 ;; the subexpression for an entire error-regexp, and FILE and LINE (and |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1111 ;; possibly COL) are the numbers for the subexpressions giving the file |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1112 ;; name and line number (and possibly column number). |
2471
c5e43751f9aa
(compilation-error-regexp-alist): Fixed MIPS CC regexp to match file
Roland McGrath <roland@gnu.org>
parents:
2461
diff
changeset
|
1113 (setq alist (or compilation-error-regexp-alist |
c5e43751f9aa
(compilation-error-regexp-alist): Fixed MIPS CC regexp to match file
Roland McGrath <roland@gnu.org>
parents:
2461
diff
changeset
|
1114 (error "compilation-error-regexp-alist is empty!")) |
418 | 1115 subexpr (1+ error-group)) |
1116 (while alist | |
5605
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1117 (setq error-regexp-groups |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1118 (cons (list subexpr |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1119 (+ subexpr (nth 1 (car alist))) |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1120 (+ subexpr (nth 2 (car alist))) |
6989
3723e842825c
(compilation-parse-errors): Fix references for column number, 3 elt not
Roland McGrath <roland@gnu.org>
parents:
6673
diff
changeset
|
1121 (and (nth 3 (car alist)) |
3723e842825c
(compilation-parse-errors): Fix references for column number, 3 elt not
Roland McGrath <roland@gnu.org>
parents:
6673
diff
changeset
|
1122 (+ subexpr (nth 3 (car alist))))) |
5605
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1123 error-regexp-groups)) |
418 | 1124 (setq subexpr (+ subexpr 1 (count-regexp-groupings (car (car alist))))) |
1125 (setq alist (cdr alist))) | |
1126 | |
3940
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1127 (setq orig default-directory) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1128 (setq orig-expanded (file-truename orig)) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1129 (setq parent-expanded (expand-file-name "../" orig-expanded)) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1130 |
894 | 1131 (while (and (not found-desired) |
885 | 1132 ;; We don't just pass LIMIT-SEARCH to re-search-forward |
1133 ;; because we want to find matches containing LIMIT-SEARCH | |
1134 ;; but which extend past it. | |
894 | 1135 (re-search-forward regexp nil t)) |
935 | 1136 |
418 | 1137 ;; Figure out which constituent regexp matched. |
1138 (cond ((match-beginning enter-group) | |
1139 ;; The match was the enter-directory regexp. | |
1140 (let ((dir | |
1141 (file-name-as-directory | |
1142 (expand-file-name | |
1143 (buffer-substring (match-beginning (+ enter-group 1)) | |
1144 (match-end (+ enter-group 1))))))) | |
3940
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1145 ;; The directory name in the "entering" message |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1146 ;; is a truename. Try to convert it to a form |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1147 ;; like what the user typed in. |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1148 (setq dir |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1149 (compile-abbreviate-directory dir orig orig-expanded |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1150 parent-expanded)) |
418 | 1151 (setq compilation-directory-stack |
1152 (cons dir compilation-directory-stack)) | |
1153 (and (file-directory-p dir) | |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1154 (setq default-directory dir))) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1155 |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1156 (and limit-search (>= (point) limit-search) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1157 ;; The user wanted a specific error, and we're past it. |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1158 ;; We do this check here (and in the leave-group case) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1159 ;; rather than at the end of the loop because if the last |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1160 ;; thing seen is an error message, we must carefully |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1161 ;; discard the last error when it is the first in a new |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1162 ;; file (see below in the error-group case). |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1163 (setq found-desired t))) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1164 |
418 | 1165 ((match-beginning leave-group) |
1166 ;; The match was the leave-directory regexp. | |
1167 (let ((beg (match-beginning (+ leave-group 1))) | |
1168 (stack compilation-directory-stack)) | |
1169 (if beg | |
1170 (let ((dir | |
1171 (file-name-as-directory | |
1172 (expand-file-name | |
1173 (buffer-substring beg | |
1174 (match-end (+ leave-group | |
1175 1))))))) | |
3940
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1176 ;; The directory name in the "entering" message |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1177 ;; is a truename. Try to convert it to a form |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1178 ;; like what the user typed in. |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1179 (setq dir |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1180 (compile-abbreviate-directory dir orig orig-expanded |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1181 parent-expanded)) |
418 | 1182 (while (and stack |
1183 (not (string-equal (car stack) dir))) | |
1184 (setq stack (cdr stack))))) | |
1185 (setq compilation-directory-stack (cdr stack)) | |
1186 (setq stack (car compilation-directory-stack)) | |
1187 (if stack | |
1188 (setq default-directory stack)) | |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1189 ) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1190 |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1191 (and limit-search (>= (point) limit-search) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1192 ;; The user wanted a specific error, and we're past it. |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1193 ;; We do this check here (and in the enter-group case) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1194 ;; rather than at the end of the loop because if the last |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1195 ;; thing seen is an error message, we must carefully |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1196 ;; discard the last error when it is the first in a new |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1197 ;; file (see below in the error-group case). |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1198 (setq found-desired t))) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1199 |
418 | 1200 ((match-beginning error-group) |
1201 ;; The match was the composite error regexp. | |
1202 ;; Find out which individual regexp matched. | |
1203 (setq alist error-regexp-groups) | |
1204 (while (and alist | |
1205 (null (match-beginning (car (car alist))))) | |
1206 (setq alist (cdr alist))) | |
1207 (if alist | |
1208 (setq alist (car alist)) | |
2471
c5e43751f9aa
(compilation-error-regexp-alist): Fixed MIPS CC regexp to match file
Roland McGrath <roland@gnu.org>
parents:
2461
diff
changeset
|
1209 (error "compilation-parse-errors: impossible regexp match!")) |
418 | 1210 |
1211 ;; Extract the file name and line number from the error message. | |
1294
81c5d1c4a7ed
(compilation-parse-errors): Save (match-beginning 0) in a variable, so the
Roland McGrath <roland@gnu.org>
parents:
1273
diff
changeset
|
1212 (let ((beginning-of-match (match-beginning 0)) ;looking-at nukes |
5475
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1213 (filename (buffer-substring (match-beginning (nth 1 alist)) |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1214 (match-end (nth 1 alist)))) |
5605
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1215 (linenum (string-to-int |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1216 (buffer-substring |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1217 (match-beginning (nth 2 alist)) |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1218 (match-end (nth 2 alist))))) |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1219 (column (and (nth 3 alist) |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1220 (string-to-int |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1221 (buffer-substring |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1222 (match-beginning (nth 3 alist)) |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1223 (match-end (nth 3 alist))))))) |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1224 |
5475
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1225 ;; Check for a comint-file-name-prefix and prepend it if |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1226 ;; appropriate. (This is very useful for |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1227 ;; compilation-minor-mode in an rlogin-mode buffer.) |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1228 (and (boundp 'comint-file-name-prefix) |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1229 ;; If the file name is relative, default-directory will |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1230 ;; already contain the comint-file-name-prefix (done by |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1231 ;; compile-abbreviate-directory). |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1232 (file-name-absolute-p filename) |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1233 (setq filename (concat comint-file-name-prefix filename))) |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1234 (setq filename (cons default-directory filename)) |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1235 |
418 | 1236 ;; Locate the erring file and line. |
1237 ;; Cons a new elt onto compilation-error-list, | |
1238 ;; giving a marker for the current compilation buffer | |
1239 ;; location, and the file and line number of the error. | |
1240 (save-excursion | |
1241 (beginning-of-line 1) | |
4612
0c4a8158f062
(compilation-parse-errors): Don't add multiple errors for one source line.
Richard M. Stallman <rms@gnu.org>
parents:
4576
diff
changeset
|
1242 (let ((this (cons (point-marker) |
5606
f600a46890d1
(copmilation-error-list): Doc fix.
Roland McGrath <roland@gnu.org>
parents:
5605
diff
changeset
|
1243 (list filename linenum column)))) |
4612
0c4a8158f062
(compilation-parse-errors): Don't add multiple errors for one source line.
Richard M. Stallman <rms@gnu.org>
parents:
4576
diff
changeset
|
1244 ;; Don't add the same source line more than once. |
0c4a8158f062
(compilation-parse-errors): Don't add multiple errors for one source line.
Richard M. Stallman <rms@gnu.org>
parents:
4576
diff
changeset
|
1245 (if (equal (cdr this) (cdr (car compilation-error-list))) |
0c4a8158f062
(compilation-parse-errors): Don't add multiple errors for one source line.
Richard M. Stallman <rms@gnu.org>
parents:
4576
diff
changeset
|
1246 nil |
0c4a8158f062
(compilation-parse-errors): Don't add multiple errors for one source line.
Richard M. Stallman <rms@gnu.org>
parents:
4576
diff
changeset
|
1247 (setq compilation-error-list |
0c4a8158f062
(compilation-parse-errors): Don't add multiple errors for one source line.
Richard M. Stallman <rms@gnu.org>
parents:
4576
diff
changeset
|
1248 (cons this |
0c4a8158f062
(compilation-parse-errors): Don't add multiple errors for one source line.
Richard M. Stallman <rms@gnu.org>
parents:
4576
diff
changeset
|
1249 compilation-error-list)) |
0c4a8158f062
(compilation-parse-errors): Don't add multiple errors for one source line.
Richard M. Stallman <rms@gnu.org>
parents:
4576
diff
changeset
|
1250 (setq compilation-num-errors-found |
0c4a8158f062
(compilation-parse-errors): Don't add multiple errors for one source line.
Richard M. Stallman <rms@gnu.org>
parents:
4576
diff
changeset
|
1251 (1+ compilation-num-errors-found))))) |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1252 (and (or (and find-at-least (> compilation-num-errors-found |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1253 find-at-least)) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1254 (and limit-search (>= (point) limit-search))) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1255 ;; We have found as many new errors as the user wants, |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1256 ;; or past the buffer position he indicated. We |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1257 ;; continue to parse until we have seen all the |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1258 ;; consecutive errors in the same file, so the error |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1259 ;; positions will be recorded as markers in this buffer |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1260 ;; that might change. |
1294
81c5d1c4a7ed
(compilation-parse-errors): Save (match-beginning 0) in a variable, so the
Roland McGrath <roland@gnu.org>
parents:
1273
diff
changeset
|
1261 (cdr compilation-error-list) ; Must check at least two. |
81c5d1c4a7ed
(compilation-parse-errors): Save (match-beginning 0) in a variable, so the
Roland McGrath <roland@gnu.org>
parents:
1273
diff
changeset
|
1262 (not (equal (car (cdr (nth 0 compilation-error-list))) |
81c5d1c4a7ed
(compilation-parse-errors): Save (match-beginning 0) in a variable, so the
Roland McGrath <roland@gnu.org>
parents:
1273
diff
changeset
|
1263 (car (cdr (nth 1 compilation-error-list))))) |
81c5d1c4a7ed
(compilation-parse-errors): Save (match-beginning 0) in a variable, so the
Roland McGrath <roland@gnu.org>
parents:
1273
diff
changeset
|
1264 (progn |
81c5d1c4a7ed
(compilation-parse-errors): Save (match-beginning 0) in a variable, so the
Roland McGrath <roland@gnu.org>
parents:
1273
diff
changeset
|
1265 ;; Discard the error just parsed, so that the next |
81c5d1c4a7ed
(compilation-parse-errors): Save (match-beginning 0) in a variable, so the
Roland McGrath <roland@gnu.org>
parents:
1273
diff
changeset
|
1266 ;; parsing run can get it and the following errors in |
81c5d1c4a7ed
(compilation-parse-errors): Save (match-beginning 0) in a variable, so the
Roland McGrath <roland@gnu.org>
parents:
1273
diff
changeset
|
1267 ;; the same file all at once. If we didn't do this, we |
81c5d1c4a7ed
(compilation-parse-errors): Save (match-beginning 0) in a variable, so the
Roland McGrath <roland@gnu.org>
parents:
1273
diff
changeset
|
1268 ;; would have the same problem we are trying to avoid |
81c5d1c4a7ed
(compilation-parse-errors): Save (match-beginning 0) in a variable, so the
Roland McGrath <roland@gnu.org>
parents:
1273
diff
changeset
|
1269 ;; with the test above, just delayed until the next run! |
81c5d1c4a7ed
(compilation-parse-errors): Save (match-beginning 0) in a variable, so the
Roland McGrath <roland@gnu.org>
parents:
1273
diff
changeset
|
1270 (setq compilation-error-list |
81c5d1c4a7ed
(compilation-parse-errors): Save (match-beginning 0) in a variable, so the
Roland McGrath <roland@gnu.org>
parents:
1273
diff
changeset
|
1271 (cdr compilation-error-list)) |
81c5d1c4a7ed
(compilation-parse-errors): Save (match-beginning 0) in a variable, so the
Roland McGrath <roland@gnu.org>
parents:
1273
diff
changeset
|
1272 (goto-char beginning-of-match) |
81c5d1c4a7ed
(compilation-parse-errors): Save (match-beginning 0) in a variable, so the
Roland McGrath <roland@gnu.org>
parents:
1273
diff
changeset
|
1273 (setq found-desired t))) |
81c5d1c4a7ed
(compilation-parse-errors): Save (match-beginning 0) in a variable, so the
Roland McGrath <roland@gnu.org>
parents:
1273
diff
changeset
|
1274 ) |
1273
bbf7e139412b
(compilation-parse-errors): After we get enough errors to stop early, toss
Roland McGrath <roland@gnu.org>
parents:
1271
diff
changeset
|
1275 ) |
418 | 1276 (t |
2471
c5e43751f9aa
(compilation-error-regexp-alist): Fixed MIPS CC regexp to match file
Roland McGrath <roland@gnu.org>
parents:
2461
diff
changeset
|
1277 (error "compilation-parse-errors: known groups didn't match!"))) |
935 | 1278 |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1279 (message "Parsing error messages...%d (%.0f%% of buffer)" |
1133 | 1280 compilation-num-errors-found |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1281 ;; Use floating-point because (* 100 (point)) frequently |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1282 ;; exceeds the range of Emacs Lisp integers. |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1283 (/ (* 100.0 (point)) (point-max))) |
935 | 1284 |
885 | 1285 (and limit-search (>= (point) limit-search) |
1286 ;; The user wanted a specific error, and we're past it. | |
1287 (setq found-desired t))) | |
907 | 1288 (setq compilation-parsing-end (if found-desired |
1289 (point) | |
1290 ;; We have searched the whole buffer. | |
1291 (point-max)))) | |
1292 (setq compilation-error-list (nreverse compilation-error-list)) | |
1293 (message "Parsing error messages...done")) | |
71 | 1294 |
3940
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1295 ;; If directory DIR is a subdir of ORIG or of ORIG's parent, |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1296 ;; return a relative name for it starting from ORIG or its parent. |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1297 ;; ORIG-EXPANDED is an expanded version of ORIG. |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1298 ;; PARENT-EXPANDED is an expanded version of ORIG's parent. |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1299 ;; Those two args could be computed here, but we run faster by |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1300 ;; having the caller compute them just once. |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1301 (defun compile-abbreviate-directory (dir orig orig-expanded parent-expanded) |
5475
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1302 ;; Check for a comint-file-name-prefix and prepend it if appropriate. |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1303 ;; (This is very useful for compilation-minor-mode in an rlogin-mode |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1304 ;; buffer.) |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1305 (if (boundp 'comint-file-name-prefix) |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1306 (setq dir (concat comint-file-name-prefix dir))) |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1307 |
3940
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1308 (if (and (> (length dir) (length orig-expanded)) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1309 (string= orig-expanded |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1310 (substring dir 0 (length orig-expanded)))) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1311 (setq dir |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1312 (concat orig |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1313 (substring dir (length orig-expanded))))) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1314 (if (and (> (length dir) (length parent-expanded)) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1315 (string= parent-expanded |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1316 (substring dir 0 (length parent-expanded)))) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1317 (setq dir |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1318 (concat (file-name-directory |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1319 (directory-file-name orig)) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1320 (substring dir (length parent-expanded))))) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1321 dir) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1322 |
621 | 1323 (provide 'compile) |
712
16823e891d56
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
621
diff
changeset
|
1324 |
16823e891d56
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
621
diff
changeset
|
1325 ;;; compile.el ends here |