Mercurial > emacs
annotate lisp/progmodes/compile.el @ 14045:1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
(compilation-sentinel, compile-internal): Use it.
(compilation-exit-message-function): Doc fix for protocol change: take
process status and exit-code args instead of process object.
(grep): Use new protocol for compilation-exit-message-function.
author | Roland McGrath <roland@gnu.org> |
---|---|
date | Sat, 06 Jan 1996 20:54:19 +0000 |
parents | 6d4e18531dd2 |
children | 000d4719b874 |
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 |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
3 ;; Copyright (C) 1985, 86, 87, 93, 94, 1995, 1996 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 | |
13972
6d4e18531dd2
(compilation-error-list): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
13819
diff
changeset
|
52 message tracking facilities; if you change its structure, you should make |
3607 | 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 | |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
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. | |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
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 '( | |
8359
a9f95d2ac181
(compilation-error-regexp-alist): Fix bug in Borland
Richard M. Stallman <rms@gnu.org>
parents:
8351
diff
changeset
|
103 ;; NOTE! See also 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 |
9888
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
111 ;; or GNU utilities with column (GNAT 1.82): |
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
112 ;; foo.adb:2:1: Unit name does not match file name |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
113 ;; |
1702
817bd71e0e72
* compile.el (compilation-error-regexp-alist): Tightened up
Jim Blandy <jimb@redhat.com>
parents:
1554
diff
changeset
|
114 ;; 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
|
115 ;; 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
|
116 ;; containing a number with spaces around it. |
9888
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
117 ("\n\ |
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
118 \\([^:( \t\n]+\\)[:(][ \t]*\\([0-9]+\\)\\([) \t]\\|\ |
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
119 :\\([^0-9\n]\\|\\([0-9]+:\\)\\)\\)" 1 2 5) |
8398
38513039d818
(compilation-error-regexp-alist): Make separate
Richard M. Stallman <rms@gnu.org>
parents:
8359
diff
changeset
|
120 |
38513039d818
(compilation-error-regexp-alist): Make separate
Richard M. Stallman <rms@gnu.org>
parents:
8359
diff
changeset
|
121 ;; Borland C++: |
38513039d818
(compilation-error-regexp-alist): Make separate
Richard M. Stallman <rms@gnu.org>
parents:
8359
diff
changeset
|
122 ;; Error ping.c 15: Unable to open include file 'sys/types.h' |
38513039d818
(compilation-error-regexp-alist): Make separate
Richard M. Stallman <rms@gnu.org>
parents:
8359
diff
changeset
|
123 ;; Warning ping.c 68: Call to function 'func' with no prototype |
38513039d818
(compilation-error-regexp-alist): Make separate
Richard M. Stallman <rms@gnu.org>
parents:
8359
diff
changeset
|
124 ("\n\\(Error\\|Warning\\) \\([^:( \t\n]+\\)\ |
38513039d818
(compilation-error-regexp-alist): Make separate
Richard M. Stallman <rms@gnu.org>
parents:
8359
diff
changeset
|
125 \\([0-9]+\\)\\([) \t]\\|:[^0-9\n]\\)" 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
|
126 |
418 | 127 ;; 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
|
128 ;; 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
|
129 ("[ \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
|
130 |
418 | 131 ;; 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
|
132 ;; bloofle defined( /users/wolfgang/foo.c(4) ), but never used |
727 | 133 ;; This used to be |
134 ;; ("[ \t(]+\\([^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]+" 1 2) | |
135 ;; 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
|
136 ("([ \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
|
137 |
4045
a37868b332ac
(compilation-error-regexp-alist): Broaden ``Line N of "FILE": msg'' regexp
Roland McGrath <roland@gnu.org>
parents:
3940
diff
changeset
|
138 ;; Ultrix 3.0 f77: |
7138
cbe3820953c6
(compilation-error-regexp-alist): Add fortran pattern.
Karl Heuer <kwzh@gnu.org>
parents:
7099
diff
changeset
|
139 ;; fort: Severe: addstf.f, line 82: Missing operator or delimiter symbol |
11308
1401dd853db7
(compilation-error-regexp-alist): Extend Ultrix 3.0 f77 to also match SGI cc.
Roland McGrath <roland@gnu.org>
parents:
11109
diff
changeset
|
140 ;; Some SGI cc version: |
1401dd853db7
(compilation-error-regexp-alist): Extend Ultrix 3.0 f77 to also match SGI cc.
Roland McGrath <roland@gnu.org>
parents:
11109
diff
changeset
|
141 ;; cfe: Warning 835: foo.c, line 2: something |
1401dd853db7
(compilation-error-regexp-alist): Extend Ultrix 3.0 f77 to also match SGI cc.
Roland McGrath <roland@gnu.org>
parents:
11109
diff
changeset
|
142 ("\n\\(cfe\\|fort\\): [^:\n]*: \\([^ \n]*\\), line \\([0-9]+\\):" 2 3) |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
143 ;; Error on line 3 of t.f: Execution error unclassifiable statement |
4045
a37868b332ac
(compilation-error-regexp-alist): Broaden ``Line N of "FILE": msg'' regexp
Roland McGrath <roland@gnu.org>
parents:
3940
diff
changeset
|
144 ;; Unknown who does this: |
13972
6d4e18531dd2
(compilation-error-list): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
13819
diff
changeset
|
145 ;; Line 45 of "foo.c": bloofle undefined |
6412
84d5a22db4c8
(compilation-error-regexp-alist): Generalize ultrix 3 f77 regexp to match
Roland McGrath <roland@gnu.org>
parents:
6240
diff
changeset
|
146 ;; 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
|
147 ;; 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
|
148 ;; 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
|
149 ("\\(\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
|
150 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
|
151 |
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
152 ;; 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
|
153 ;; "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
|
154 ;; IBM RS6000: |
ae1462a1a8d4
(compilation-error-regexp-alist): Generalize the
Richard M. Stallman <rms@gnu.org>
parents:
3607
diff
changeset
|
155 ;; "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
|
156 ;; Unknown compiler: |
7ef7f31aab53
(compilation-error-regexp-alist): Broaden RS6000 regexp to match
Roland McGrath <roland@gnu.org>
parents:
4153
diff
changeset
|
157 ;; 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
|
158 ;; Microtec mcc68k: |
4d6ab37798ff
(compilation-error-regexp-alist): Generalize `"foo.c", line 13:' regexp to
Roland McGrath <roland@gnu.org>
parents:
4757
diff
changeset
|
159 ;; "foo.c", line 32 pos 1; (E) syntax error; unexpected symbol: "lossage" |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
160 ;; GNAT (as of July 94): |
8288
8695e414a2b1
(compilation-error-regexp-alist): Allow `(' after
Richard M. Stallman <rms@gnu.org>
parents:
8218
diff
changeset
|
161 ;; "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
|
162 ("\"\\([^,\" \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
|
163 |
713c76a95b74
* compile.el (compilation-error-list): When we haven't yet
Jim Blandy <jimb@redhat.com>
parents:
3514
diff
changeset
|
164 ;; 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
|
165 ;; 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
|
166 ;; DEC AXP OSF/1 cc |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
167 ;; /usr/lib/cmplrs/cc/cfe: Error: foo.c: 1: blah blah |
5633
6e0443843832
(compilation-error-regexp-alist): Handle DEC AXP OSF/1.
Richard M. Stallman <rms@gnu.org>
parents:
5606
diff
changeset
|
168 ("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
|
169 |
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
170 ;; 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
|
171 ;; ****** Error number 140 in line 8 of file errors.c ****** |
727 | 172 ("in line \\([0-9]+\\) of file \\([^ \n]+[^. \n]\\)\\.? " 2 1) |
418 | 173 ;; IBM AIX lint is too painful to do right this way. File name |
174 ;; 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
|
175 |
5605
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
176 ;; Lucid Compiler, lcc 3.x |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
177 ;; 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
|
178 ("\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
|
179 |
9888
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
180 ;; GNU messages with program name and optional column number. |
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
181 ("\n[^0-9 \n\t:]+:[ \t]*\\([^ \n\t:]+\\):\ |
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
182 \\([0-9]+\\):\\(\\([0-9]+\\)[: \t]\\)?" 1 2 4) |
11791
34dbef732b27
(compilation-error-regexp-alist): Add regexps for IBM and Cray compilers.
Roland McGrath <roland@gnu.org>
parents:
11618
diff
changeset
|
183 |
34dbef732b27
(compilation-error-regexp-alist): Add regexps for IBM and Cray compilers.
Roland McGrath <roland@gnu.org>
parents:
11618
diff
changeset
|
184 ;; Cray C compiler error messages |
12021
a0a920f1fad4
(compilation-error-regexp-alist): In "Cray C" regexp, don't allow newlines.
Roland McGrath <roland@gnu.org>
parents:
11945
diff
changeset
|
185 ("\n\\(cc\\| cft\\)-[0-9]+ c\\(c\\|f77\\): ERROR \\([^,\n]+, \\)* File = \\([^,\n]+\\), Line = \\([0-9]+\\)" 4 5) |
11791
34dbef732b27
(compilation-error-regexp-alist): Add regexps for IBM and Cray compilers.
Roland McGrath <roland@gnu.org>
parents:
11618
diff
changeset
|
186 |
34dbef732b27
(compilation-error-regexp-alist): Add regexps for IBM and Cray compilers.
Roland McGrath <roland@gnu.org>
parents:
11618
diff
changeset
|
187 ;; IBM C/C++ Tools 2.01: |
34dbef732b27
(compilation-error-regexp-alist): Add regexps for IBM and Cray compilers.
Roland McGrath <roland@gnu.org>
parents:
11618
diff
changeset
|
188 ;; foo.c(2:0) : informational EDC0804: Function foo is not referenced. |
34dbef732b27
(compilation-error-regexp-alist): Add regexps for IBM and Cray compilers.
Roland McGrath <roland@gnu.org>
parents:
11618
diff
changeset
|
189 ;; foo.c(3:8) : warning EDC0833: Implicit return statement encountered. |
34dbef732b27
(compilation-error-regexp-alist): Add regexps for IBM and Cray compilers.
Roland McGrath <roland@gnu.org>
parents:
11618
diff
changeset
|
190 ;; foo.c(5:5) : error EDC0350: Syntax error. |
11945
d8fba932b289
(compilation-error-regexp-alist): In "IBM C/C++ Tools" regexp, disallow
Roland McGrath <roland@gnu.org>
parents:
11804
diff
changeset
|
191 ("\n\\([^( \n\t]+\\)(\\([0-9]+\\):\\([0-9]+\\)) : " 1 2 3) |
12767
287cc74602fa
(compilation-error-regexp-alist): Add regexp for Sun ada.
Roland McGrath <roland@gnu.org>
parents:
12256
diff
changeset
|
192 |
287cc74602fa
(compilation-error-regexp-alist): Add regexp for Sun ada.
Roland McGrath <roland@gnu.org>
parents:
12256
diff
changeset
|
193 ;; Sun ada (VADS, Solaris): |
287cc74602fa
(compilation-error-regexp-alist): Add regexp for Sun ada.
Roland McGrath <roland@gnu.org>
parents:
12256
diff
changeset
|
194 ;; /home3/xdhar/rcds_rc/main.a, line 361, char 6:syntax error: "," inserted |
287cc74602fa
(compilation-error-regexp-alist): Add regexp for Sun ada.
Roland McGrath <roland@gnu.org>
parents:
12256
diff
changeset
|
195 ("\n\\([^, ]+\\), line \\([0-9]+\\), char \\([0-9]+\\)[:., \(-]" 1 2 3) |
418 | 196 ) |
1133 | 197 "Alist that specifies how to match errors in compiler output. |
10928
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
198 Each elt has the form (REGEXP FILE-IDX LINE-IDX [COLUMN-IDX FILE-FORMAT...]) |
5605
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
199 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
|
200 the LINE-IDX'th subexpression gives the line number. If COLUMN-IDX is |
10928
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
201 given, the COLUMN-IDX'th subexpression gives the column number on that line. |
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
202 If any FILE-FORMAT is given, each is a format string to produce a file name to |
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
203 try; %s in the string is replaced by the text matching the FILE-IDX'th |
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
204 subexpression.") |
71 | 205 |
5406
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
206 (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
|
207 "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
|
208 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
|
209 |
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
210 (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
|
211 "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
|
212 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
|
213 |
1072 | 214 (defvar grep-regexp-alist |
215 '(("^\\([^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 2)) | |
216 "Regexp used to match grep hits. See `compilation-error-regexp-alist'.") | |
217 | |
5260
93a5ed7aaeb5
(grep-command): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5215
diff
changeset
|
218 (defvar grep-command "grep -n " |
8683
0d1aada57ac9
(grep-command): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8522
diff
changeset
|
219 "Last grep command used in \\[grep]; default for next grep.") |
5260
93a5ed7aaeb5
(grep-command): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5215
diff
changeset
|
220 |
569 | 221 ;;;###autoload |
418 | 222 (defvar compilation-search-path '(nil) |
569 | 223 "*List of directories to search for source files named in error messages. |
418 | 224 Elements should be directory names, not file names of directories. |
225 nil as an element means to try the default directory.") | |
71 | 226 |
227 (defvar compile-command "make -k " | |
228 "Last shell command used to do a compilation; default for next compilation. | |
229 | |
230 Sometimes it is useful for files to supply local values for this variable. | |
231 You might also use mode hooks to specify it in certain modes, like this: | |
232 | |
233 (setq c-mode-hook | |
234 '(lambda () (or (file-exists-p \"makefile\") (file-exists-p \"Makefile\") | |
235 (progn (make-local-variable 'compile-command) | |
236 (setq compile-command | |
237 (concat \"make -k \" | |
238 buffer-file-name))))))") | |
239 | |
8189
b88934e64021
(compilation-window-height): Use defvar.
Richard M. Stallman <rms@gnu.org>
parents:
7882
diff
changeset
|
240 (defvar compilation-enter-directory-regexp |
727 | 241 ": Entering directory `\\(.*\\)'$" |
1133 | 242 "Regular expression matching lines that indicate a new current directory. |
243 This must contain one \\(, \\) pair around the directory name. | |
418 | 244 |
245 The default value matches lines printed by the `-w' option of GNU Make.") | |
71 | 246 |
8189
b88934e64021
(compilation-window-height): Use defvar.
Richard M. Stallman <rms@gnu.org>
parents:
7882
diff
changeset
|
247 (defvar compilation-leave-directory-regexp |
727 | 248 ": Leaving directory `\\(.*\\)'$" |
1133 | 249 "Regular expression matching lines that indicate restoring current directory. |
250 This may contain one \\(, \\) pair around the name of the directory | |
251 being moved from. If it does not, the last directory entered \(by a | |
252 line matching `compilation-enter-directory-regexp'\) is assumed. | |
418 | 253 |
254 The default value matches lines printed by the `-w' option of GNU Make.") | |
255 | |
256 (defvar compilation-directory-stack nil | |
1133 | 257 "Stack of previous directories for `compilation-leave-directory-regexp'. |
258 The head element is the directory the compilation was started in.") | |
418 | 259 |
12920
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
260 (defvar compilation-exit-message-function nil "\ |
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
261 If non-nil, called when a compilation process dies to return a status message. |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
262 This should be a function of three arguments: process status, exit status, |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
263 and exit message; it returns a cons (MESSAGE . MODELINE) of the strings to |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
264 write into the compilation buffer, and to put in its mode line.") |
12920
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
265 |
864
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
266 ;; History of compile commands. |
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
267 (defvar compile-history nil) |
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
268 ;; History of grep commands. |
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
269 (defvar grep-history nil) |
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
270 |
9376
f0ac347309e2
(compilation-mode-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8976
diff
changeset
|
271 (defvar compilation-mode-font-lock-keywords |
13439
c38b7ee76ecc
compilation-mode-font-lock-keywords tweak
Simon Marshall <simon@gnu.org>
parents:
12920
diff
changeset
|
272 ;; This regexp needs a bit of rewriting. What is the third grouping for? |
c38b7ee76ecc
compilation-mode-font-lock-keywords tweak
Simon Marshall <simon@gnu.org>
parents:
12920
diff
changeset
|
273 '(("^\\([^ \n:]*:\\([0-9]+:\\)+\\)\\(.*\\)$" 1 font-lock-function-name-face)) |
9376
f0ac347309e2
(compilation-mode-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8976
diff
changeset
|
274 ;;; ("^\\([^\n:]*:\\([0-9]+:\\)+\\)\\(.*\\)$" 0 font-lock-keyword-face keep) |
f0ac347309e2
(compilation-mode-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8976
diff
changeset
|
275 "Additional expressions to highlight in Compilation mode.") |
12920
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
276 |
418 | 277 ;;;###autoload |
71 | 278 (defun compile (command) |
279 "Compile the program including the current buffer. Default: run `make'. | |
280 Runs COMMAND, a shell command, in a separate process asynchronously | |
281 with output going to the buffer `*compilation*'. | |
418 | 282 |
71 | 283 You can then use the command \\[next-error] to find the next error message |
284 and move to the source code that caused it. | |
285 | |
9888
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
286 Interactively, prompts for the command if `compilation-read-command' is |
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
287 non-nil; otherwise uses `compile-command'. With prefix arg, always prompts. |
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
288 |
71 | 289 To run more than one compilation at once, start one and rename the |
418 | 290 \`*compilation*' buffer to some other name with \\[rename-buffer]. |
291 Then start the next one. | |
292 | |
293 The name used for the buffer is actually whatever is returned by | |
294 the function in `compilation-buffer-name-function', so you can set that | |
295 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
|
296 (interactive |
9888
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
297 (if (or compilation-read-command current-prefix-arg) |
5406
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
298 (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
|
299 compile-command nil nil |
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
300 '(compile-history . 1))) |
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
301 (list compile-command))) |
71 | 302 (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
|
303 (save-some-buffers (not compilation-ask-about-save) nil) |
418 | 304 (compile-internal compile-command "No more errors")) |
71 | 305 |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
306 ;;; run compile with the default command line |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
307 (defun recompile () |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
308 "Re-compile the program including the current buffer." |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
309 (interactive) |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
310 (save-some-buffers (not compilation-ask-about-save) nil) |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
311 (compile-internal compile-command "No more errors")) |
12256
e50e5d419c51
(grep-null-device): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
12219
diff
changeset
|
312 |
e50e5d419c51
(grep-null-device): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
12219
diff
changeset
|
313 ;; The system null device. (Should reference NULL_DEVICE from C.) |
e50e5d419c51
(grep-null-device): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
12219
diff
changeset
|
314 (defvar grep-null-device "/dev/null" "The system null device.") |
e50e5d419c51
(grep-null-device): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
12219
diff
changeset
|
315 |
418 | 316 ;;;###autoload |
71 | 317 (defun grep (command-args) |
318 "Run grep, with user-specified args, and collect output in a buffer. | |
319 While grep runs asynchronously, you can use the \\[next-error] command | |
418 | 320 to find the text that grep hits refer to. |
321 | |
864
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
322 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
|
323 easily repeat a grep command." |
71 | 324 (interactive |
864
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
325 (list (read-from-minibuffer "Run grep (like this): " |
5260
93a5ed7aaeb5
(grep-command): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5215
diff
changeset
|
326 grep-command nil nil 'grep-history))) |
12920
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
327 (let ((buf (compile-internal (concat command-args " " grep-null-device) |
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
328 "No more grep hits" "grep" |
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
329 ;; Give it a simpler regexp to match. |
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
330 nil grep-regexp-alist))) |
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
331 (save-excursion |
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
332 (set-buffer buf) |
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
333 (set (make-local-variable 'compilation-exit-message-function) |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
334 (lambda (status code msg) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
335 (if (eq status 'exit) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
336 (cond ((zerop code) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
337 '("finished (matches found)\n" . "matched")) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
338 ((= code 1) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
339 '("finished with no matches found\n" . "no match")) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
340 (t |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
341 (cons msg code))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
342 (cons msg code))))))) |
71 | 343 |
344 (defun compile-internal (command error-message | |
418 | 345 &optional name-of-mode parser regexp-alist |
346 name-function) | |
71 | 347 "Run compilation command COMMAND (low level interface). |
348 ERROR-MESSAGE is a string to print if the user asks to see another error | |
349 and there are no more errors. Third argument NAME-OF-MODE is the name | |
418 | 350 to display as the major mode in the compilation buffer. |
71 | 351 |
418 | 352 Fourth arg PARSER is the error parser function (nil means the default). Fifth |
353 arg REGEXP-ALIST is the error message regexp alist to use (nil means the | |
354 default). Sixth arg NAME-FUNCTION is a function called to name the buffer (nil | |
355 means the default). The defaults for these variables are the global values of | |
356 \`compilation-parse-errors-function', `compilation-error-regexp-alist', and | |
894 | 357 \`compilation-buffer-name-function', respectively. |
358 | |
359 Returns the compilation buffer created." | |
418 | 360 (let (outbuf) |
71 | 361 (save-excursion |
418 | 362 (or name-of-mode |
363 (setq name-of-mode "Compilation")) | |
364 (setq outbuf | |
365 (get-buffer-create | |
366 (funcall (or name-function compilation-buffer-name-function | |
367 (function (lambda (mode) | |
368 (concat "*" (downcase mode) "*")))) | |
369 name-of-mode))) | |
71 | 370 (set-buffer outbuf) |
418 | 371 (let ((comp-proc (get-buffer-process (current-buffer)))) |
372 (if comp-proc | |
373 (if (or (not (eq (process-status comp-proc) 'run)) | |
374 (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
|
375 (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
|
376 name-of-mode))) |
418 | 377 (condition-case () |
378 (progn | |
379 (interrupt-process comp-proc) | |
380 (sit-for 1) | |
381 (delete-process comp-proc)) | |
382 (error nil)) | |
383 (error "Cannot have two processes in `%s' at once" | |
384 (buffer-name)) | |
385 ))) | |
386 ;; In case the compilation buffer is current, make sure we get the global | |
387 ;; values of compilation-error-regexp-alist, etc. | |
388 (kill-all-local-variables)) | |
389 (let ((regexp-alist (or regexp-alist compilation-error-regexp-alist)) | |
390 (parser (or parser compilation-parse-errors-function)) | |
391 (thisdir default-directory) | |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
392 outwin) |
418 | 393 (save-excursion |
394 ;; Clear out the compilation buffer and make it writable. | |
395 ;; Change its default-directory to the directory where the compilation | |
396 ;; will happen, and insert a `cd' command to indicate this. | |
397 (set-buffer outbuf) | |
398 (setq buffer-read-only nil) | |
11618
9702de178097
(compile-internal): Disable undo before erasing
Richard M. Stallman <rms@gnu.org>
parents:
11359
diff
changeset
|
399 (buffer-disable-undo (current-buffer)) |
418 | 400 (erase-buffer) |
11618
9702de178097
(compile-internal): Disable undo before erasing
Richard M. Stallman <rms@gnu.org>
parents:
11359
diff
changeset
|
401 (buffer-enable-undo (current-buffer)) |
418 | 402 (setq default-directory thisdir) |
403 (insert "cd " thisdir "\n" command "\n") | |
404 (set-buffer-modified-p nil)) | |
405 ;; If we're already in the compilation buffer, go to the end | |
406 ;; of the buffer, so point will track the compilation output. | |
407 (if (eq outbuf (current-buffer)) | |
408 (goto-char (point-max))) | |
409 ;; Pop up the compilation buffer. | |
410 (setq outwin (display-buffer outbuf)) | |
3514
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
411 (save-excursion |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
412 (set-buffer outbuf) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
413 (compilation-mode) |
4757
c21680a58d1e
(compile-internal): Back out jimb change of making buffer read-only. It
Brian Fox <bfox@gnu.org>
parents:
4612
diff
changeset
|
414 ;; (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
|
415 (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
|
416 (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
|
417 (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
|
418 (setq default-directory thisdir |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
419 compilation-directory-stack (list default-directory)) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
420 (set-window-start outwin (point-min)) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
421 (setq mode-name name-of-mode) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
422 (or (eq outwin (selected-window)) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
423 (set-window-point outwin (point-min))) |
8483
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
424 (compilation-set-window-height outwin) |
3514
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
425 ;; Start the compilation. |
5456
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
426 (if (fboundp 'start-process) |
8810
6ca3e0d3b7ca
(compile-internal): Set EMACS=t in process-environment.
Richard M. Stallman <rms@gnu.org>
parents:
8795
diff
changeset
|
427 (let* ((process-environment (cons "EMACS=t" process-environment)) |
6ca3e0d3b7ca
(compile-internal): Set EMACS=t in process-environment.
Richard M. Stallman <rms@gnu.org>
parents:
8795
diff
changeset
|
428 (proc (start-process-shell-command (downcase mode-name) |
6ca3e0d3b7ca
(compile-internal): Set EMACS=t in process-environment.
Richard M. Stallman <rms@gnu.org>
parents:
8795
diff
changeset
|
429 outbuf |
6ca3e0d3b7ca
(compile-internal): Set EMACS=t in process-environment.
Richard M. Stallman <rms@gnu.org>
parents:
8795
diff
changeset
|
430 command))) |
5456
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
431 (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
|
432 (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
|
433 (set-marker (process-mark proc) (point) outbuf) |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
434 (setq compilation-in-progress |
5456
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
435 (cons proc compilation-in-progress))) |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
436 ;; No asynchronous processes available. |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
437 (message "Executing `%s'..." command) |
13819
57cd7ef01dc7
(compile-internal): On systems with no asynchronous
Richard M. Stallman <rms@gnu.org>
parents:
13755
diff
changeset
|
438 ;; Fake modeline display as if `start-process' were run. |
57cd7ef01dc7
(compile-internal): On systems with no asynchronous
Richard M. Stallman <rms@gnu.org>
parents:
13755
diff
changeset
|
439 (setq mode-line-process ":run") |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
440 (force-mode-line-update) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
441 (sit-for 0) ; Force redisplay |
5456
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
442 (let ((status (call-process shell-file-name nil outbuf nil "-c" |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
443 command))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
444 (cond ((numberp status) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
445 (compilation-handle-exit 'exit status |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
446 (if (zerop status) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
447 "finished\n" |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
448 (format "\ |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
449 exited abnormally with code %d\n" |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
450 status)))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
451 ((stringp status) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
452 (compilation-handle-exit 'signal status |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
453 (concat status "\n"))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
454 (t |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
455 (compilation-handle-exit 'bizarre status status)))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
456 (message "Executing `%s'...done" command)))) |
418 | 457 ;; Make it so the next C-x ` will use this buffer. |
458 (setq compilation-last-buffer outbuf))) | |
71 | 459 |
8483
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
460 ;; Set the height of WINDOW according to compilation-window-height. |
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
461 (defun compilation-set-window-height (window) |
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
462 (and compilation-window-height |
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
463 (= (window-width window) (frame-width (window-frame window))) |
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
464 ;; If window is alone in its frame, aside from a minibuffer, |
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
465 ;; don't change its height. |
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
466 (not (eq window (frame-root-window (window-frame window)))) |
8522
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
467 ;; This save-excursion prevents us from changing the current buffer, |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
468 ;; which might not be the same as the selected window's buffer. |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
469 (save-excursion |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
470 (let ((w (selected-window))) |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
471 (unwind-protect |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
472 (progn |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
473 (select-window window) |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
474 (enlarge-window (- compilation-window-height |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
475 (window-height)))) |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
476 (select-window w)))))) |
8483
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
477 |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
478 (defvar compilation-minor-mode-map |
71 | 479 (let ((map (make-sparse-keymap))) |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
480 (define-key map [mouse-2] 'compile-mouse-goto-error) |
71 | 481 (define-key map "\C-c\C-c" 'compile-goto-error) |
10268
84777124c262
(compilation-minor-mode-map): Bind C-m to compilation-goto-error.
Richard M. Stallman <rms@gnu.org>
parents:
10096
diff
changeset
|
482 (define-key map "\C-m" 'compile-goto-error) |
418 | 483 (define-key map "\C-c\C-k" 'kill-compilation) |
894 | 484 (define-key map "\M-n" 'compilation-next-error) |
485 (define-key map "\M-p" 'compilation-previous-error) | |
946 | 486 (define-key map "\M-{" 'compilation-previous-file) |
487 (define-key map "\M-}" 'compilation-next-file) | |
71 | 488 map) |
2760
1c7595e3089b
(Setting minor-mode-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
2603
diff
changeset
|
489 "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
|
490 |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
491 (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
|
492 (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
|
493 (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
|
494 (define-key map "\^?" 'scroll-down) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
495 ;; Set up the menu-bar |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
496 (define-key map [menu-bar compilation-menu] |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
497 (cons "Compile" (make-sparse-keymap "Compile"))) |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
498 |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
499 (define-key map [menu-bar compilation-menu compilation-mode-kill-compilation] |
12029
42da35386c5d
(compilation-mode-map): Fix capitalization in menu bar.
Karl Heuer <kwzh@gnu.org>
parents:
12021
diff
changeset
|
500 '("Stop Compilation" . kill-compilation)) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
501 (define-key map [menu-bar compilation-menu compilation-mode-separator2] |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
502 '("----" . nil)) |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
503 (define-key map [menu-bar compilation-menu compilation-mode-first-error] |
12029
42da35386c5d
(compilation-mode-map): Fix capitalization in menu bar.
Karl Heuer <kwzh@gnu.org>
parents:
12021
diff
changeset
|
504 '("First Error" . first-error)) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
505 (define-key map [menu-bar compilation-menu compilation-mode-previous-error] |
12029
42da35386c5d
(compilation-mode-map): Fix capitalization in menu bar.
Karl Heuer <kwzh@gnu.org>
parents:
12021
diff
changeset
|
506 '("Previous Error" . previous-error)) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
507 (define-key map [menu-bar compilation-menu compilation-mode-next-error] |
12029
42da35386c5d
(compilation-mode-map): Fix capitalization in menu bar.
Karl Heuer <kwzh@gnu.org>
parents:
12021
diff
changeset
|
508 '("Next Error" . next-error)) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
509 (define-key map [menu-bar compilation-menu compilation-separator2] |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
510 '("----" . nil)) |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
511 (define-key map [menu-bar compilation-menu compilation-mode-grep] |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
512 '("Grep" . grep)) |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
513 (define-key map [menu-bar compilation-menu compilation-mode-recompile] |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
514 '("Recompile" . recompile)) |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
515 (define-key map [menu-bar compilation-menu compilation-mode-compile] |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
516 '("Compile" . compile)) |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
517 map) |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
518 "Keymap for compilation log buffers. |
2760
1c7595e3089b
(Setting minor-mode-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
2603
diff
changeset
|
519 `compilation-minor-mode-map' is a cdr of this.") |
71 | 520 |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
521 ;;;###autoload |
71 | 522 (defun compilation-mode () |
523 "Major mode for compilation log buffers. | |
524 \\<compilation-mode-map>To visit the source for a line-numbered error, | |
418 | 525 move point to the error message line and type \\[compile-goto-error]. |
569 | 526 To kill the compilation, type \\[kill-compilation]. |
527 | |
528 Runs `compilation-mode-hook' with `run-hooks' (which see)." | |
71 | 529 (interactive) |
9376
f0ac347309e2
(compilation-mode-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8976
diff
changeset
|
530 (kill-all-local-variables) |
71 | 531 (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
|
532 (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
|
533 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
|
534 (compilation-setup) |
9473
b0cc803bf367
* compile.el: (compilation-mode): Set font-lock-defaults.
Simon Marshall <simon@gnu.org>
parents:
9376
diff
changeset
|
535 (set (make-local-variable 'font-lock-defaults) |
b0cc803bf367
* compile.el: (compilation-mode): Set font-lock-defaults.
Simon Marshall <simon@gnu.org>
parents:
9376
diff
changeset
|
536 '(compilation-mode-font-lock-keywords t)) |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
537 (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
|
538 |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
539 ;; 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
|
540 (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
|
541 ;; 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
|
542 (setq mode-line-process '(":%s")) |
418 | 543 (set (make-local-variable 'compilation-error-list) nil) |
544 (set (make-local-variable 'compilation-old-error-list) nil) | |
545 (set (make-local-variable 'compilation-parsing-end) 1) | |
546 (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
|
547 (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
|
548 |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
549 (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
|
550 "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
|
551 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
|
552 Compilation major mode are available.") |
4445
a1e412873732
(compilation-minor-mode): Make variable buffer-local.
Roland McGrath <roland@gnu.org>
parents:
4350
diff
changeset
|
553 (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
|
554 |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
555 (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
|
556 (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
|
557 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
|
558 (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
|
559 (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
|
560 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
|
561 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
|
562 |
4445
a1e412873732
(compilation-minor-mode): Make variable buffer-local.
Roland McGrath <roland@gnu.org>
parents:
4350
diff
changeset
|
563 ;;;###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
|
564 (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
|
565 "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
|
566 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
|
567 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
|
568 (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
|
569 (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
|
570 (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
|
571 (> (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
|
572 (compilation-setup))) |
71 | 573 |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
574 ;; Write msg in the current buffer and hack its mode-line-process. |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
575 (defun compilation-handle-exit (process-status exit-status msg) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
576 (let ((buffer-read-only nil) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
577 (status (if compilation-exit-message-function |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
578 (funcall compilation-exit-message-function |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
579 process-status exit-status msg) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
580 (cons msg exit-status))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
581 (omax (point-max)) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
582 (opoint (point))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
583 ;; Record where we put the message, so we can ignore it |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
584 ;; later on. |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
585 (goto-char omax) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
586 (insert ?\n mode-name " " (car status)) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
587 (forward-char -1) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
588 (insert " at " (substring (current-time-string) 0 19)) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
589 (forward-char 1) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
590 (setq mode-line-process |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
591 (format ":%s [%s]" |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
592 (process-status proc) (cdr status))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
593 ;; Force mode line redisplay soon. |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
594 (force-mode-line-update) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
595 (if (and opoint (< opoint omax)) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
596 (goto-char opoint)) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
597 (if compilation-finish-function |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
598 (funcall compilation-finish-function buffer msg)))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
599 |
71 | 600 ;; Called when compilation process changes state. |
601 (defun compilation-sentinel (proc msg) | |
418 | 602 "Sentinel for compilation buffers." |
603 (let ((buffer (process-buffer proc))) | |
740 | 604 (if (memq (process-status proc) '(signal exit)) |
605 (progn | |
606 (if (null (buffer-name buffer)) | |
607 ;; buffer killed | |
608 (set-process-buffer proc nil) | |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
609 (let ((obuf (current-buffer))) |
740 | 610 ;; save-excursion isn't the right thing if |
611 ;; process-buffer is current-buffer | |
612 (unwind-protect | |
613 (progn | |
614 ;; Write something in the compilation buffer | |
615 ;; and hack its mode line. | |
616 (set-buffer buffer) | |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
617 (compilation-handle-exit (process-status proc) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
618 (process-exit-status proc) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
619 msg) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
620 ;; Since the buffer and mode line will show that the |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
621 ;; process is dead, we can delete it now. Otherwise it |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
622 ;; will stay around until M-x list-processes. |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
623 (delete-process proc)) |
1133 | 624 (set-buffer obuf)))) |
740 | 625 (setq compilation-in-progress (delq proc compilation-in-progress)) |
626 )))) | |
71 | 627 |
2472
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
628 (defun compilation-filter (proc string) |
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
629 "Process filter for compilation buffers. |
2760
1c7595e3089b
(Setting minor-mode-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
2603
diff
changeset
|
630 Just inserts the text, but uses `insert-before-markers'." |
9511
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
631 (if (buffer-name (process-buffer proc)) |
2472
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
632 (save-excursion |
9511
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
633 (set-buffer (process-buffer proc)) |
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
634 (let ((buffer-read-only nil)) |
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
635 (save-excursion |
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
636 (goto-char (process-mark proc)) |
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
637 (insert-before-markers string) |
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
638 (set-marker (process-mark proc) (point))))))) |
2472
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
639 |
920 | 640 ;; Return the cdr of compilation-old-error-list for the error containing point. |
641 (defun compile-error-at-point () | |
642 (compile-reinitialize-errors nil (point)) | |
643 (let ((errors compilation-old-error-list)) | |
644 (while (and errors | |
645 (> (point) (car (car errors)))) | |
646 (setq errors (cdr errors))) | |
647 errors)) | |
648 | |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
649 (defsubst compilation-buffer-p (buffer) |
10928
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
650 (save-excursion |
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
651 (set-buffer buffer) |
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
652 (or compilation-minor-mode (eq major-mode 'compilation-mode)))) |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
653 |
894 | 654 (defun compilation-next-error (n) |
655 "Move point to the next error in the compilation buffer. | |
656 Does NOT find the source line like \\[next-error]." | |
657 (interactive "p") | |
658 (or (compilation-buffer-p (current-buffer)) | |
659 (error "Not in a compilation buffer.")) | |
660 (setq compilation-last-buffer (current-buffer)) | |
661 | |
920 | 662 (let ((errors (compile-error-at-point))) |
894 | 663 |
920 | 664 ;; Move to the error after the one containing point. |
665 (goto-char (car (if (< n 0) | |
666 (let ((i 0) | |
667 (e compilation-old-error-list)) | |
668 ;; See how many cdrs away ERRORS is from the start. | |
669 (while (not (eq e errors)) | |
670 (setq i (1+ i) | |
671 e (cdr e))) | |
672 (if (> (- n) i) | |
673 (error "Moved back past first error") | |
674 (nth (+ i n) compilation-old-error-list))) | |
675 (let ((compilation-error-list (cdr errors))) | |
676 (compile-reinitialize-errors nil nil n) | |
677 (if compilation-error-list | |
678 (nth (1- n) compilation-error-list) | |
679 (error "Moved past last error")))))))) | |
894 | 680 |
681 (defun compilation-previous-error (n) | |
682 "Move point to the previous error in the compilation buffer. | |
683 Does NOT find the source line like \\[next-error]." | |
684 (interactive "p") | |
685 (compilation-next-error (- n))) | |
686 | |
687 | |
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
|
688 ;; 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
|
689 ;; 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
|
690 ;; 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
|
691 (defsubst compilation-error-filedata (data) |
920 | 692 (setq data (cdr data)) |
693 (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
|
694 (marker-buffer data) |
3875
c5b6f641698a
* compile.el (compile-file-of-error): Remember that
Jim Blandy <jimb@redhat.com>
parents:
3825
diff
changeset
|
695 (car data))) |
920 | 696 |
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
|
697 ;; 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
|
698 ;; 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
|
699 ;; 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
|
700 (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
|
701 (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
|
702 (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
|
703 (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
|
704 |
920 | 705 (defun compilation-next-file (n) |
706 "Move point to the next error for a different file than the current one." | |
707 (interactive "p") | |
708 (or (compilation-buffer-p (current-buffer)) | |
709 (error "Not in a compilation buffer.")) | |
710 (setq compilation-last-buffer (current-buffer)) | |
711 | |
712 (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
|
713 errors filedata) |
920 | 714 |
715 (if (not reversed) | |
716 (setq errors (or (compile-error-at-point) | |
717 (error "Moved past last error"))) | |
718 | |
719 ;; Get a reversed list of the errors up through the one containing point. | |
720 (compile-reinitialize-errors nil (point)) | |
721 (setq errors (reverse compilation-old-error-list) | |
722 n (- n)) | |
723 | |
724 ;; Ignore errors after point. (car ERRORS) will be the error | |
725 ;; containing point, (cadr ERRORS) the one before it. | |
726 (while (and errors | |
727 (< (point) (car (car errors)))) | |
728 (setq errors (cdr errors)))) | |
729 | |
730 (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
|
731 (setq filedata (compilation-error-filedata (car errors))) |
920 | 732 |
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
|
733 ;; 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
|
734 (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
|
735 (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
|
736 (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
|
737 (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
|
738 (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
|
739 (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
|
740 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
|
741 (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
|
742 ;; 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
|
743 (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
|
744 (setq errors compilation-error-list))) |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
745 (error "%s is the last erring file" |
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
|
746 (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
|
747 filedata)))))) |
920 | 748 (setq errors (cdr errors))) |
749 | |
750 (setq n (1- n))) | |
751 | |
752 ;; Move to the following error. | |
753 (goto-char (car (car (or errors | |
754 (if reversed | |
755 (error "This is the first erring file") | |
756 (let ((compilation-error-list nil)) | |
757 ;; Parse the last one. | |
758 (compile-reinitialize-errors nil nil 1) | |
759 compilation-error-list)))))))) | |
760 | |
761 (defun compilation-previous-file (n) | |
762 "Move point to the previous error for a different file than the current one." | |
763 (interactive "p") | |
764 (compilation-next-file (- n))) | |
765 | |
766 | |
71 | 767 (defun kill-compilation () |
768 "Kill the process made by the \\[compile] command." | |
769 (interactive) | |
418 | 770 (let ((buffer (compilation-find-buffer))) |
71 | 771 (if (get-buffer-process buffer) |
418 | 772 (interrupt-process (get-buffer-process buffer)) |
773 (error "The compilation process is not running.")))) | |
71 | 774 |
418 | 775 |
776 ;; Parse any new errors in the compilation buffer, | |
777 ;; 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
|
778 (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
|
779 &optional limit-search find-at-least) |
418 | 780 (save-excursion |
781 (set-buffer compilation-last-buffer) | |
782 ;; If we are out of errors, or if user says "reparse", | |
783 ;; discard the info we have, to force reparsing. | |
784 (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
|
785 reparse) |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
786 (compilation-forget-errors)) |
907 | 787 (if (and compilation-error-list |
920 | 788 (or (not limit-search) |
789 (> compilation-parsing-end limit-search)) | |
907 | 790 (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
|
791 (>= (length compilation-error-list) find-at-least))) |
418 | 792 ;; Since compilation-error-list is non-nil, it points to a specific |
793 ;; error the user wanted. So don't move it around. | |
794 nil | |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
795 ;; 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
|
796 ;;(switch-to-buffer compilation-last-buffer) |
71 | 797 (set-buffer-modified-p nil) |
920 | 798 (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
|
799 ;; 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
|
800 ;; 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
|
801 ;; 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
|
802 ;; preserve that after reparsing. |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
803 (let ((error-list-pos compilation-error-list)) |
920 | 804 (funcall compilation-parse-errors-function |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
805 limit-search |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
806 (and find-at-least |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
807 ;; 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
|
808 ;; 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
|
809 ;; position. |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
810 (- 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
|
811 ;; 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
|
812 ;; 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
|
813 ;; 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
|
814 ;; compilation-old-error-list above. |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
815 (setq compilation-old-error-list |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
816 (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
|
817 (if error-list-pos |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
818 ;; 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
|
819 ;; 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
|
820 (setq compilation-error-list error-list-pos)) |
920 | 821 ))))) |
71 | 822 |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
823 (defun compile-mouse-goto-error (event) |
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
824 (interactive "e") |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
825 (save-excursion |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
826 (set-buffer (window-buffer (posn-window (event-end event)))) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
827 (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
|
828 |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
829 (or (compilation-buffer-p (current-buffer)) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
830 (error "Not in a compilation buffer.")) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
831 (setq compilation-last-buffer (current-buffer)) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
832 (compile-reinitialize-errors nil (point)) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
833 |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
834 ;; 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
|
835 (beginning-of-line) |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
836 |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
837 ;; 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
|
838 ;; we want. |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
839 (setq compilation-error-list compilation-old-error-list) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
840 (while (and compilation-error-list |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
841 (> (point) (car (car compilation-error-list)))) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
842 (setq compilation-error-list (cdr compilation-error-list))) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
843 (or compilation-error-list |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
844 (error "No error to go to"))) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
845 (select-window (posn-window (event-end event))) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
846 ;; 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
|
847 ;; result in the desired setup. |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
848 (or (one-window-p) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
849 (progn |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
850 (other-window -1) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
851 ;; other-window changed the selected buffer, |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
852 ;; but we didn't want to do that. |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
853 (set-buffer compilation-last-buffer))) |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
854 |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
855 (push-mark) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
856 (next-error 1)) |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
857 |
71 | 858 (defun compile-goto-error (&optional argp) |
859 "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
|
860 Use this command in a compilation log buffer. Sets the mark at point there. |
885 | 861 \\[universal-argument] as a prefix arg means to reparse the buffer's error messages first; |
71 | 862 other kinds of prefix arguments are ignored." |
863 (interactive "P") | |
418 | 864 (or (compilation-buffer-p (current-buffer)) |
865 (error "Not in a compilation buffer.")) | |
866 (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
|
867 (compile-reinitialize-errors (consp argp) (point)) |
894 | 868 |
1072 | 869 ;; Move to bol; the marker for the error on this line will point there. |
870 (beginning-of-line) | |
871 | |
894 | 872 ;; Move compilation-error-list to the elt of compilation-old-error-list |
901 | 873 ;; we want. |
894 | 874 (setq compilation-error-list compilation-old-error-list) |
901 | 875 (while (and compilation-error-list |
876 (> (point) (car (car compilation-error-list)))) | |
894 | 877 (setq compilation-error-list (cdr compilation-error-list))) |
878 | |
71 | 879 ;; Move to another window, so that next-error's window changes |
880 ;; result in the desired setup. | |
881 (or (one-window-p) | |
894 | 882 (progn |
883 (other-window -1) | |
884 ;; other-window changed the selected buffer, | |
885 ;; but we didn't want to do that. | |
886 (set-buffer compilation-last-buffer))) | |
887 | |
6197
8ddddba0de43
(compile-goto-error): Push the mark before calling next-error.
Roland McGrath <roland@gnu.org>
parents:
5961
diff
changeset
|
888 (push-mark) |
901 | 889 (next-error 1)) |
71 | 890 |
418 | 891 ;; Return a compilation buffer. |
892 ;; If the current buffer is a compilation buffer, return it. | |
893 ;; If compilation-last-buffer is set to a live buffer, use that. | |
894 ;; Otherwise, look for a compilation buffer and signal an error | |
895 ;; if there are none. | |
621 | 896 (defun compilation-find-buffer (&optional other-buffer) |
897 (if (and (not other-buffer) | |
898 (compilation-buffer-p (current-buffer))) | |
418 | 899 ;; The current buffer is a compilation buffer. |
900 (current-buffer) | |
621 | 901 (if (and compilation-last-buffer (buffer-name compilation-last-buffer) |
902 (or (not other-buffer) (not (eq compilation-last-buffer | |
903 (current-buffer))))) | |
418 | 904 compilation-last-buffer |
905 (let ((buffers (buffer-list))) | |
621 | 906 (while (and buffers (or (not (compilation-buffer-p (car buffers))) |
907 (and other-buffer | |
908 (eq (car buffers) (current-buffer))))) | |
418 | 909 (setq buffers (cdr buffers))) |
910 (if buffers | |
911 (car buffers) | |
621 | 912 (or (and other-buffer |
913 (compilation-buffer-p (current-buffer)) | |
914 ;; The current buffer is a compilation buffer. | |
915 (progn | |
916 (if other-buffer | |
917 (message "This is the only compilation buffer.")) | |
918 (current-buffer))) | |
919 (error "No compilation started!"))))))) | |
418 | 920 |
921 ;;;###autoload | |
71 | 922 (defun next-error (&optional argp) |
923 "Visit next compilation error message and corresponding source code. | |
924 This operates on the output from the \\[compile] command. | |
925 If all preparsed error messages have been processed, | |
926 the error message buffer is checked for new ones. | |
927 | |
928 A prefix arg specifies how many error messages to move; | |
929 negative means move back to previous error messages. | |
930 Just C-u as a prefix means reparse the error message buffer | |
931 and start at the first error. | |
932 | |
933 \\[next-error] normally applies to the most recent compilation started, | |
934 but as long as you are in the middle of parsing errors from one compilation | |
935 output buffer, you stay with that compilation output buffer. | |
936 | |
937 Use \\[next-error] in a compilation output buffer to switch to | |
938 processing errors from that compilation. | |
939 | |
418 | 940 See variables `compilation-parse-errors-function' and |
941 \`compilation-error-regexp-alist' for customization ideas." | |
71 | 942 (interactive "P") |
418 | 943 (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
|
944 (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
|
945 ;; 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
|
946 ;; 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
|
947 (and (not (consp argp)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
948 (prefix-numeric-value argp)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
949 (consp argp)))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
950 ;;;###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
|
951 |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
952 (defun previous-error () |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
953 "Visit previous compilation error message and corresponding source code. |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
954 This operates on the output from the \\[compile] command." |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
955 (interactive) |
11804
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
956 (next-error -1)) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
957 |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
958 (defun first-error () |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
959 "Reparse the error message buffer and start at the first error |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
960 Visit corresponding source code. |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
961 This operates on the output from the \\[compile] command." |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
962 (interactive) |
11804
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
963 (next-error '(4))) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
964 |
8342
95c011057e51
(compilation-next-error-locus): New arg SILENT.
Richard M. Stallman <rms@gnu.org>
parents:
8288
diff
changeset
|
965 (defun compilation-next-error-locus (&optional move reparse silent) |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
966 "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
|
967 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
|
968 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
|
969 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
|
970 |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
971 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
|
972 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
|
973 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
|
974 |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
975 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
|
976 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
|
977 non-nil, says to reparse the error message buffer and reset to the first |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
978 error (plus MOVE - 1). If optional third argument SILENT is non-nil, return |
8342
95c011057e51
(compilation-next-error-locus): New arg SILENT.
Richard M. Stallman <rms@gnu.org>
parents:
8288
diff
changeset
|
979 nil instead of raising an error if there are no more errors. |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
980 |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
981 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
|
982 (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
|
983 (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
|
984 (if (< move 1) 0 (1- move)))) |
418 | 985 (let (next-errors next-error) |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
986 (catch 'no-next-error |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
987 (save-excursion |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
988 (set-buffer compilation-last-buffer) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
989 ;; compilation-error-list points to the "current" error. |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
990 (setq next-errors |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
991 (if (> move 0) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
992 (nthcdr (1- move) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
993 compilation-error-list) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
994 ;; Zero or negative arg; we need to move back in the list. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
995 (let ((n (1- move)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
996 (i 0) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
997 (e compilation-old-error-list)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
998 ;; See how many cdrs away the current error is from the start. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
999 (while (not (eq e compilation-error-list)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1000 (setq i (1+ i) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1001 e (cdr e))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1002 (if (> (- n) i) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1003 (error "Moved back past first error") |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1004 (nthcdr (+ i n) compilation-old-error-list)))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1005 next-error (car next-errors)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1006 (while |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1007 (if (null next-error) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1008 (progn |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1009 (and move (/= move 1) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1010 (error (if (> move 0) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1011 "Moved past last error") |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1012 "Moved back past first error")) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1013 ;; Forget existing error messages if compilation has finished. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1014 (if (not (and (get-buffer-process (current-buffer)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1015 (eq (process-status |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1016 (get-buffer-process |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1017 (current-buffer))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1018 'run))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1019 (compilation-forget-errors)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1020 (if silent |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1021 (throw 'no-next-error nil) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1022 (error (concat compilation-error-message |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1023 (and (get-buffer-process (current-buffer)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1024 (eq (process-status |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1025 (get-buffer-process |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1026 (current-buffer))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1027 'run) |
8342
95c011057e51
(compilation-next-error-locus): New arg SILENT.
Richard M. Stallman <rms@gnu.org>
parents:
8288
diff
changeset
|
1028 " yet"))))) |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1029 (setq compilation-error-list (cdr next-errors)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1030 (if (null (cdr next-error)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1031 ;; This error is boring. Go to the next. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1032 t |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1033 (or (markerp (cdr next-error)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1034 ;; This error has a filename/lineno pair. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1035 ;; Find the file and turn it into a marker. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1036 (let* ((fileinfo (car (cdr next-error))) |
10928
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
1037 (buffer (apply 'compilation-find-file |
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
1038 (car next-error) fileinfo))) |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1039 (if (null buffer) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1040 ;; We can't find this error's file. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1041 ;; Remove all errors in the same file. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1042 (progn |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1043 (setq next-errors compilation-old-error-list) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1044 (while next-errors |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1045 (and (consp (cdr (car next-errors))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1046 (equal (car (cdr (car next-errors))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1047 fileinfo) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1048 (progn |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1049 (set-marker (car (car next-errors)) nil) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1050 (setcdr (car next-errors) nil))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1051 (setq next-errors (cdr next-errors))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1052 ;; Look for the next error. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1053 t) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1054 ;; We found the file. Get a marker for this error. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1055 ;; compilation-old-error-list is a buffer-local |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1056 ;; variable, so we must be careful to extract its value |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1057 ;; before switching to the source file buffer. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1058 (let ((errors compilation-old-error-list) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1059 (last-line (nth 1 (cdr next-error))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1060 (column (nth 2 (cdr next-error)))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1061 (set-buffer buffer) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1062 (save-excursion |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1063 (save-restriction |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1064 (widen) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1065 (goto-line last-line) |
11791
34dbef732b27
(compilation-error-regexp-alist): Add regexps for IBM and Cray compilers.
Roland McGrath <roland@gnu.org>
parents:
11618
diff
changeset
|
1066 (if (and column (> column 0)) |
10092
b53266f04fd9
(compilation-next-error-locus): Parsed column numbers are 1-origin.
Roland McGrath <roland@gnu.org>
parents:
9888
diff
changeset
|
1067 ;; Columns in error msgs are 1-origin. |
b53266f04fd9
(compilation-next-error-locus): Parsed column numbers are 1-origin.
Roland McGrath <roland@gnu.org>
parents:
9888
diff
changeset
|
1068 (move-to-column (1- column)) |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1069 (beginning-of-line)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1070 (setcdr next-error (point-marker)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1071 ;; Make all the other error messages referring |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1072 ;; to the same file have markers into the buffer. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1073 (while errors |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1074 (and (consp (cdr (car errors))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1075 (equal (car (cdr (car errors))) fileinfo) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1076 (let* ((this (nth 1 (cdr (car errors)))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1077 (column (nth 2 (cdr (car errors)))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1078 (lines (- this last-line))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1079 (if (eq selective-display t) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1080 ;; When selective-display is t, |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1081 ;; each C-m is a line boundary, |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1082 ;; as well as each newline. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1083 (if (< lines 0) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1084 (re-search-backward "[\n\C-m]" |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1085 nil 'end |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1086 (- lines)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1087 (re-search-forward "[\n\C-m]" |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1088 nil 'end |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1089 lines)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1090 (forward-line lines)) |
11804
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1091 (if (and column (> column 1)) |
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1092 (move-to-column (1- column)) |
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1093 (beginning-of-line)) |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1094 (setq last-line this) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1095 (setcdr (car errors) (point-marker)))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1096 (setq errors (cdr errors))))))))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1097 ;; If we didn't get a marker for this error, or this |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1098 ;; marker's buffer was killed, go on to the next one. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1099 (or (not (markerp (cdr next-error))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1100 (not (marker-buffer (cdr next-error)))))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1101 (setq next-errors compilation-error-list |
8342
95c011057e51
(compilation-next-error-locus): New arg SILENT.
Richard M. Stallman <rms@gnu.org>
parents:
8288
diff
changeset
|
1102 next-error (car next-errors))))) |
418 | 1103 |
1104 ;; Skip over multiple error messages for the same source location, | |
1105 ;; so the next C-x ` won't go to an error in the same place. | |
1106 (while (and compilation-error-list | |
1107 (equal (cdr (car compilation-error-list)) (cdr next-error))) | |
1108 (setq compilation-error-list (cdr compilation-error-list))) | |
1109 | |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1110 ;; 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
|
1111 ;; 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
|
1112 next-error)) |
418 | 1113 |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1114 (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
|
1115 "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
|
1116 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
|
1117 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
|
1118 (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
|
1119 (eq (selected-window) (frame-root-window))) |
4d808a6268a3
(compilation-goto-locus): Handle case where *compilation*
Richard M. Stallman <rms@gnu.org>
parents:
7138
diff
changeset
|
1120 (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
|
1121 (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
|
1122 (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
|
1123 ;; 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
|
1124 ;; 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
|
1125 (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
|
1126 (progn |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1127 (widen) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1128 (goto-char (cdr next-error)))) |
418 | 1129 |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1130 ;; 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
|
1131 (let* ((pop-up-windows t) |
11804
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1132 ;; Use an existing window if it is in a visible frame. |
8483
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
1133 (w (or (get-buffer-window (marker-buffer (car next-error)) 'visible) |
11804
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1134 ;; Pop up a window. |
8483
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
1135 (display-buffer (marker-buffer (car next-error)))))) |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1136 (set-window-point w (car next-error)) |
8483
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
1137 (set-window-start w (car next-error)) |
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
1138 (compilation-set-window-height w))) |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1139 |
418 | 1140 ;; Find a buffer for file FILENAME. |
1141 ;; Search the directories in compilation-search-path. | |
1142 ;; A nil in compilation-search-path means to try the | |
1143 ;; current directory, which is passed in DIR. | |
1144 ;; If FILENAME is not found at all, ask the user where to find it. | |
1145 ;; Pop up the buffer containing MARKER and scroll to MARKER if we ask the user. | |
10928
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
1146 (defun compilation-find-file (marker filename dir &rest formats) |
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
1147 (or formats (setq formats '("%s"))) |
418 | 1148 (let ((dirs compilation-search-path) |
12219
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1149 buffer thisdir fmts name) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1150 (if (file-name-absolute-p filename) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1151 ;; The file name is absolute. Use its explicit directory as |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1152 ;; the first in the search path, and strip it from FILENAME. |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1153 (setq filename (abbreviate-file-name (expand-file-name filename)) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1154 dirs (cons (file-name-directory filename) dirs) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1155 filename (file-name-nondirectory filename))) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1156 ;; Now search the path. |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1157 (while (and dirs (null buffer)) |
10928
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
1158 (setq thisdir (or (car dirs) dir) |
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
1159 fmts formats) |
12219
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1160 ;; For each directory, try each format string. |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1161 (while (and fmts (null buffer)) |
10928
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
1162 (setq name (expand-file-name (format (car fmts) filename) thisdir) |
12219
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1163 buffer (and (file-exists-p name) |
10928
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
1164 (find-file-noselect name)) |
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
1165 fmts (cdr fmts))) |
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
1166 (setq dirs (cdr dirs))) |
12219
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1167 (or buffer |
418 | 1168 ;; The file doesn't exist. |
1169 ;; Ask the user where to find it. | |
1170 ;; If he hits C-g, then the next time he does | |
1171 ;; next-error, he'll skip past it. | |
12219
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1172 (let* ((pop-up-windows t) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1173 (w (display-buffer (marker-buffer marker)))) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1174 (set-window-point w marker) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1175 (set-window-start w marker) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1176 (let ((name (expand-file-name |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1177 (read-file-name |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1178 (format "Find this error in: (default %s) " |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1179 filename) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1180 dir filename t)))) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1181 (if (file-directory-p name) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1182 (setq name (expand-file-name filename name))) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1183 (and (file-exists-p name) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1184 (find-file-noselect name))))))) |
418 | 1185 |
1186 ;; Set compilation-error-list to nil, and unchain the markers that point to the | |
1187 ;; error messages and their text, so that they no longer slow down gap motion. | |
1188 ;; This would happen anyway at the next garbage collection, but it is better to | |
894 | 1189 ;; do it right away. |
71 | 1190 (defun compilation-forget-errors () |
1191 (while compilation-old-error-list | |
1192 (let ((next-error (car compilation-old-error-list))) | |
1193 (set-marker (car next-error) nil) | |
418 | 1194 (if (markerp (cdr next-error)) |
1195 (set-marker (cdr next-error) nil))) | |
71 | 1196 (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
|
1197 (setq compilation-error-list nil |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1198 compilation-directory-stack nil |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1199 compilation-parsing-end 1)) |
418 | 1200 |
1201 | |
1202 (defun count-regexp-groupings (regexp) | |
1203 "Return the number of \\( ... \\) groupings in REGEXP (a string)." | |
1204 (let ((groupings 0) | |
1205 (len (length regexp)) | |
1206 (i 0) | |
1207 c) | |
1208 (while (< i len) | |
1209 (setq c (aref regexp i) | |
1210 i (1+ i)) | |
1211 (cond ((= c ?\[) | |
1212 ;; Find the end of this [...]. | |
1213 (while (and (< i len) | |
1214 (not (= (aref regexp i) ?\]))) | |
1215 (setq i (1+ i)))) | |
1216 ((= c ?\\) | |
1217 (if (< i len) | |
1218 (progn | |
1219 (setq c (aref regexp i) | |
1220 i (1+ i)) | |
1221 (if (= c ?\)) | |
1222 ;; We found the end of a grouping, | |
1223 ;; so bump our counter. | |
1224 (setq groupings (1+ groupings)))))))) | |
1225 groupings)) | |
71 | 1226 |
907 | 1227 (defun compilation-parse-errors (limit-search find-at-least) |
71 | 1228 "Parse the current buffer as grep, cc or lint error messages. |
418 | 1229 See variable `compilation-parse-errors-function' for the interface it uses." |
71 | 1230 (setq compilation-error-list nil) |
1231 (message "Parsing error messages...") | |
3940
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1232 (let (text-buffer orig orig-expanded parent-expanded |
418 | 1233 regexp enter-group leave-group error-group |
885 | 1234 alist subexpr error-regexp-groups |
907 | 1235 (found-desired nil) |
1133 | 1236 (compilation-num-errors-found 0)) |
418 | 1237 |
71 | 1238 ;; Don't reparse messages already seen at last parse. |
1239 (goto-char compilation-parsing-end) | |
1240 ;; Don't parse the first two lines as error messages. | |
1241 ;; This matters for grep. | |
1242 (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
|
1243 (progn |
d24725412d47
(compilation-parse-errors): After skipping two lines, move one char back so
Roland McGrath <roland@gnu.org>
parents:
4045
diff
changeset
|
1244 (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
|
1245 ;; 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
|
1246 ;; 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
|
1247 ;; 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
|
1248 (forward-char -1))) |
418 | 1249 |
1250 ;; Compile all the regexps we want to search for into one. | |
1251 (setq regexp (concat "\\(" compilation-enter-directory-regexp "\\)\\|" | |
1252 "\\(" compilation-leave-directory-regexp "\\)\\|" | |
1253 "\\(" (mapconcat (function | |
1254 (lambda (elt) | |
1255 (concat "\\(" (car elt) "\\)"))) | |
1256 compilation-error-regexp-alist | |
1257 "\\|") "\\)")) | |
1258 | |
1259 ;; Find out how many \(...\) groupings are in each of the regexps, and set | |
1260 ;; *-GROUP to the grouping containing each constituent regexp (whose | |
1261 ;; subgroups will come immediately thereafter) of the big regexp we have | |
1262 ;; just constructed. | |
1263 (setq enter-group 1 | |
1264 leave-group (+ enter-group | |
1265 (count-regexp-groupings | |
1266 compilation-enter-directory-regexp) | |
1267 1) | |
1268 error-group (+ leave-group | |
1269 (count-regexp-groupings | |
1270 compilation-leave-directory-regexp) | |
1271 1)) | |
1272 | |
5605
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1273 ;; 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
|
1274 ;; 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
|
1275 ;; 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
|
1276 ;; 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
|
1277 (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
|
1278 (error "compilation-error-regexp-alist is empty!")) |
418 | 1279 subexpr (1+ error-group)) |
1280 (while alist | |
5605
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1281 (setq error-regexp-groups |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1282 (cons (list subexpr |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1283 (+ subexpr (nth 1 (car alist))) |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1284 (+ 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
|
1285 (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
|
1286 (+ 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
|
1287 error-regexp-groups)) |
418 | 1288 (setq subexpr (+ subexpr 1 (count-regexp-groupings (car (car alist))))) |
1289 (setq alist (cdr alist))) | |
1290 | |
12219
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1291 ;; Set up now the expanded, abbreviated directory variables |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1292 ;; that compile-abbreviate-directory will need, so we can |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1293 ;; compute them just once here. |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1294 (setq orig (abbreviate-file-name default-directory) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1295 orig-expanded (abbreviate-file-name |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1296 (file-truename default-directory)) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1297 parent-expanded (abbreviate-file-name |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1298 (expand-file-name "../" orig-expanded))) |
3940
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1299 |
894 | 1300 (while (and (not found-desired) |
885 | 1301 ;; We don't just pass LIMIT-SEARCH to re-search-forward |
1302 ;; because we want to find matches containing LIMIT-SEARCH | |
1303 ;; but which extend past it. | |
894 | 1304 (re-search-forward regexp nil t)) |
935 | 1305 |
418 | 1306 ;; Figure out which constituent regexp matched. |
1307 (cond ((match-beginning enter-group) | |
1308 ;; The match was the enter-directory regexp. | |
1309 (let ((dir | |
1310 (file-name-as-directory | |
1311 (expand-file-name | |
1312 (buffer-substring (match-beginning (+ enter-group 1)) | |
1313 (match-end (+ enter-group 1))))))) | |
3940
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1314 ;; The directory name in the "entering" message |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1315 ;; 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
|
1316 ;; like what the user typed in. |
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 (compile-abbreviate-directory dir orig orig-expanded |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1319 parent-expanded)) |
418 | 1320 (setq compilation-directory-stack |
1321 (cons dir compilation-directory-stack)) | |
1322 (and (file-directory-p dir) | |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1323 (setq default-directory dir))) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1324 |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1325 (and limit-search (>= (point) limit-search) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1326 ;; 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
|
1327 ;; 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
|
1328 ;; 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
|
1329 ;; 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
|
1330 ;; 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
|
1331 ;; 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
|
1332 (setq found-desired t))) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1333 |
418 | 1334 ((match-beginning leave-group) |
1335 ;; The match was the leave-directory regexp. | |
1336 (let ((beg (match-beginning (+ leave-group 1))) | |
1337 (stack compilation-directory-stack)) | |
1338 (if beg | |
1339 (let ((dir | |
1340 (file-name-as-directory | |
1341 (expand-file-name | |
1342 (buffer-substring beg | |
1343 (match-end (+ leave-group | |
1344 1))))))) | |
12219
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1345 ;; The directory name in the "leaving" message |
3940
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1346 ;; 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
|
1347 ;; like what the user typed in. |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1348 (setq dir |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1349 (compile-abbreviate-directory dir orig orig-expanded |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1350 parent-expanded)) |
418 | 1351 (while (and stack |
1352 (not (string-equal (car stack) dir))) | |
1353 (setq stack (cdr stack))))) | |
1354 (setq compilation-directory-stack (cdr stack)) | |
1355 (setq stack (car compilation-directory-stack)) | |
1356 (if stack | |
1357 (setq default-directory stack)) | |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1358 ) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1359 |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1360 (and limit-search (>= (point) limit-search) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1361 ;; 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
|
1362 ;; 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
|
1363 ;; 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
|
1364 ;; 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
|
1365 ;; 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
|
1366 ;; 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
|
1367 (setq found-desired t))) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1368 |
418 | 1369 ((match-beginning error-group) |
1370 ;; The match was the composite error regexp. | |
1371 ;; Find out which individual regexp matched. | |
1372 (setq alist error-regexp-groups) | |
1373 (while (and alist | |
1374 (null (match-beginning (car (car alist))))) | |
1375 (setq alist (cdr alist))) | |
1376 (if alist | |
1377 (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
|
1378 (error "compilation-parse-errors: impossible regexp match!")) |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
1379 |
418 | 1380 ;; 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
|
1381 (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
|
1382 (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
|
1383 (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
|
1384 (linenum (string-to-int |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1385 (buffer-substring |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1386 (match-beginning (nth 2 alist)) |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1387 (match-end (nth 2 alist))))) |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1388 (column (and (nth 3 alist) |
9888
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
1389 (match-beginning (nth 3 alist)) |
5605
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1390 (string-to-int |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1391 (buffer-substring |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1392 (match-beginning (nth 3 alist)) |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1393 (match-end (nth 3 alist))))))) |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1394 |
5475
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1395 ;; 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
|
1396 ;; 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
|
1397 ;; 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
|
1398 (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
|
1399 ;; 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
|
1400 ;; 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
|
1401 ;; compile-abbreviate-directory). |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1402 (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
|
1403 (setq filename (concat comint-file-name-prefix filename))) |
10928
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
1404 (setq filename (cons filename (cons default-directory |
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
1405 (nthcdr 4 alist)))) |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
1406 |
5475
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1407 |
418 | 1408 ;; Locate the erring file and line. |
1409 ;; Cons a new elt onto compilation-error-list, | |
1410 ;; giving a marker for the current compilation buffer | |
1411 ;; location, and the file and line number of the error. | |
1412 (save-excursion | |
11804
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1413 ;; Save as the start of the error the beginning of the |
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1414 ;; line containing the match unless the match starts at a |
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1415 ;; newline, in which case the beginning of the next line. |
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1416 (goto-char beginning-of-match) |
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1417 (forward-line (if (eolp) 1 0)) |
4612
0c4a8158f062
(compilation-parse-errors): Don't add multiple errors for one source line.
Richard M. Stallman <rms@gnu.org>
parents:
4576
diff
changeset
|
1418 (let ((this (cons (point-marker) |
5606
f600a46890d1
(copmilation-error-list): Doc fix.
Roland McGrath <roland@gnu.org>
parents:
5605
diff
changeset
|
1419 (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
|
1420 ;; 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
|
1421 (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
|
1422 nil |
0c4a8158f062
(compilation-parse-errors): Don't add multiple errors for one source line.
Richard M. Stallman <rms@gnu.org>
parents:
4576
diff
changeset
|
1423 (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
|
1424 (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
|
1425 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
|
1426 (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
|
1427 (1+ compilation-num-errors-found))))) |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1428 (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
|
1429 find-at-least)) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1430 (and limit-search (>= (point) limit-search))) |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1431 ;; 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
|
1432 ;; 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
|
1433 ;; 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
|
1434 ;; 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
|
1435 ;; 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
|
1436 ;; 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
|
1437 (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
|
1438 (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
|
1439 (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
|
1440 (progn |
81c5d1c4a7ed
(compilation-parse-errors): Save (match-beginning 0) in a variable, so the
Roland McGrath <roland@gnu.org>
parents:
1273
diff
changeset
|
1441 ;; 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
|
1442 ;; 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
|
1443 ;; 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
|
1444 ;; 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
|
1445 ;; 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
|
1446 (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
|
1447 (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
|
1448 (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
|
1449 (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
|
1450 ) |
1273
bbf7e139412b
(compilation-parse-errors): After we get enough errors to stop early, toss
Roland McGrath <roland@gnu.org>
parents:
1271
diff
changeset
|
1451 ) |
418 | 1452 (t |
2471
c5e43751f9aa
(compilation-error-regexp-alist): Fixed MIPS CC regexp to match file
Roland McGrath <roland@gnu.org>
parents:
2461
diff
changeset
|
1453 (error "compilation-parse-errors: known groups didn't match!"))) |
935 | 1454 |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1455 (message "Parsing error messages...%d (%.0f%% of buffer)" |
1133 | 1456 compilation-num-errors-found |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1457 ;; 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
|
1458 ;; 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
|
1459 (/ (* 100.0 (point)) (point-max))) |
935 | 1460 |
885 | 1461 (and limit-search (>= (point) limit-search) |
1462 ;; The user wanted a specific error, and we're past it. | |
1463 (setq found-desired t))) | |
907 | 1464 (setq compilation-parsing-end (if found-desired |
1465 (point) | |
1466 ;; We have searched the whole buffer. | |
1467 (point-max)))) | |
1468 (setq compilation-error-list (nreverse compilation-error-list)) | |
1469 (message "Parsing error messages...done")) | |
71 | 1470 |
3940
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1471 ;; 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
|
1472 ;; 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
|
1473 ;; ORIG-EXPANDED is an expanded version of ORIG. |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1474 ;; 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
|
1475 ;; 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
|
1476 ;; having the caller compute them just once. |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1477 (defun compile-abbreviate-directory (dir orig orig-expanded parent-expanded) |
12219
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1478 ;; Apply canonical abbreviations to DIR first thing. |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1479 ;; Those abbreviations are already done in the other arguments passed. |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1480 (setq dir (abbreviate-file-name dir)) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1481 |
5475
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1482 ;; 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
|
1483 ;; (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
|
1484 ;; buffer.) |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1485 (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
|
1486 (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
|
1487 |
3940
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1488 (if (and (> (length dir) (length orig-expanded)) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1489 (string= orig-expanded |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1490 (substring dir 0 (length orig-expanded)))) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1491 (setq dir |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1492 (concat orig |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1493 (substring dir (length orig-expanded))))) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1494 (if (and (> (length dir) (length parent-expanded)) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1495 (string= parent-expanded |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1496 (substring dir 0 (length parent-expanded)))) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1497 (setq dir |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1498 (concat (file-name-directory |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1499 (directory-file-name orig)) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1500 (substring dir (length parent-expanded))))) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1501 dir) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1502 |
621 | 1503 (provide 'compile) |
712
16823e891d56
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
621
diff
changeset
|
1504 |
16823e891d56
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
621
diff
changeset
|
1505 ;;; compile.el ends here |