Mercurial > emacs
annotate lisp/progmodes/compile.el @ 17623:a09fd9348b0d
Support compilers that give a message each time the file being
compiled changes but don't include a file name each error message.
Speed up by searching for regexps one by one instead of combining.
(compile-internal): Takes more optional arguments. All five regexp
alists can be given as argument.
Change name of variable regexp-alist to error-regexp-alist. Change
some local variables directly by setq instead of rebinding by let.
(compilation-shell-minor-mode): New minor mode.
Similar to compilation-minor-mode, but key bindings don't
collide with shell mode.
(compilation-shell-minor-mode-map, compilation-shell-minor-mode):
New variables.
(compile-auto-highlight): Doc fix.
(compilation-error-regexp-alist): Removed unnecessary line break
in first regexp. Replaced \\(\\|.* on \\) by \\(.* on \\)? in
regexp for Absoft FORTRAN 77 Compiler 3.1.3. Added regexp for
SPARCcompiler Pascal. Divided long line in regexp for Cray C
compiler error messages. Made comment fit in line at regexp for
Sun Ada (VADS, Solaris). FILE-IDX may be nil, meaning an
error message with no file name, so the file name must be taken
from an earlier message. LINE-IDX may be a function which is
called with two arguments the file name and column strings and
returns an error position descriptor.
(compilation-enter-directory-regexp-alist)
(compilation-leave-directory-regexp-alist): New variables.
(compilation-file-regexp-alist)
(compilation-nomessage-regexp-alist): New variables.
(grep-regexp-alist): Removed unnecessary ^ at beginning of regexp.
(compilation-enter-directory-regexp)
(compilation-leave-directory-regexp): Variables deleted.
Replaced by compilation-enter-directory-regexp-alist and
compilation-leave-directory-regexp-alist.
(compilation-buffer-p): Return true also for buffer in
compilation-shell-minor-mode.
(compilation-next-error-locus): Split a long line.
(count-regexp-groupings): Comment about this function not being
needed any more.
(compilation-current-file, compilation-regexps); New variables.
(compilation-parse-errors): Large parts rewritten. Don't put the
regexps together in one large regexp, instead match them one by one.
Support the generalized subexpression indices.
(compile-collect-regexps, compile-buffer-substring): New functions
supporting compilation-parse-errors.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 03 May 1997 04:37:52 +0000 |
parents | 52780f61eb76 |
children | 5339baa0a334 |
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 |
17056
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
3 ;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 1997 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 | |
14169 | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
71 | 25 |
2337
2ee64176069c
Fix library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
26 ;;; Commentary: |
2ee64176069c
Fix library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
27 |
2ee64176069c
Fix library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
28 ;; 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
|
29 ;; the Emacs user's manual. |
2ee64176069c
Fix library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
30 |
795
c693d56ef36d
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
31 ;;; Code: |
c693d56ef36d
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
32 |
569 | 33 ;;;###autoload |
34 (defvar compilation-mode-hook nil | |
2760
1c7595e3089b
(Setting minor-mode-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
2603
diff
changeset
|
35 "*List of hook functions run by `compilation-mode' (see `run-hooks').") |
569 | 36 |
37 ;;;###autoload | |
8189
b88934e64021
(compilation-window-height): Use defvar.
Richard M. Stallman <rms@gnu.org>
parents:
7882
diff
changeset
|
38 (defvar compilation-window-height nil |
418 | 39 "*Number of lines in a compilation window. If nil, use Emacs default.") |
40 | |
16519
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
41 (defvar compile-auto-highlight nil |
16518
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
42 "*Specify how many compiler errors to highlight (and parse) initially. |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
43 \(Highlighting applies to an error message when the mouse is over it.) |
16518
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
44 If this is a number N, all compiler error messages in the first N lines |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
45 are highlighted and parsed as soon as they arrive in Emacs. |
16519
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
46 If t, highlight and parse the whole compilation output as soon as it arrives. |
16518
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
47 If nil, don't highlight or parse any of the buffer until you try to |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
48 move to the error messages. |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
49 |
16519
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
50 Those messages which are not parsed and highlighted initially |
16518
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
51 will be parsed and highlighted as soon as you try to move to them.") |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
52 |
71 | 53 (defvar compilation-error-list nil |
54 "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
|
55 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
|
56 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
|
57 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
|
58 \(\(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
|
59 error is not interesting. |
418 | 60 |
61 The value may be t instead of a list; this means that the buffer of | |
3607 | 62 error messages should be reparsed the next time the list of errors is wanted. |
63 | |
64 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
|
65 message tracking facilities; if you change its structure, you should make |
3607 | 66 sure you also change those packages. Perhaps it is better not to change |
67 it at all.") | |
71 | 68 |
69 (defvar compilation-old-error-list nil | |
70 "Value of `compilation-error-list' after errors were parsed.") | |
71 | |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
72 (defvar compilation-parse-errors-function 'compilation-parse-errors |
885 | 73 "Function to call to parse error messages from a compilation. |
907 | 74 It takes args LIMIT-SEARCH and FIND-AT-LEAST. |
75 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
|
76 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
|
77 many new errors. |
418 | 78 It should read in the source files which have errors and set |
79 `compilation-error-list' to a list with an element for each error message | |
80 found. See that variable for more info.") | |
71 | 81 |
474 | 82 ;;;###autoload |
16985
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
83 (defvar compilation-process-setup-function nil |
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
84 "*Function to call to customize the compilation process. |
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
85 This functions is called immediately before the compilation process is |
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
86 started. It can be used to set any variables or functions that are used |
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
87 while processing the output of the compilation process.") |
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
88 |
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
89 ;;;###autoload |
418 | 90 (defvar compilation-buffer-name-function nil |
1133 | 91 "Function to compute the name of a compilation buffer. |
92 The function receives one argument, the name of the major mode of the | |
93 compilation buffer. It should return a string. | |
94 nil means compute the name with `(concat \"*\" (downcase major-mode) \"*\")'.") | |
71 | 95 |
474 | 96 ;;;###autoload |
418 | 97 (defvar compilation-finish-function nil |
474 | 98 "*Function to call when a compilation process finishes. |
418 | 99 It is called with two arguments: the compilation buffer, and a string |
100 describing how the process finished.") | |
101 | |
16042
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
102 ;;;###autoload |
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
103 (defvar compilation-finish-functions nil |
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
104 "*Functions to call when a compilation process finishes. |
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
105 Each function is called with two arguments: the compilation buffer, |
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
106 and a string describing how the process finished.") |
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
107 |
418 | 108 (defvar compilation-last-buffer nil |
1133 | 109 "The most recent compilation buffer. |
110 A buffer becomes most recent when its compilation is started | |
111 or when it is used with \\[next-error] or \\[compile-goto-error].") | |
71 | 112 |
740 | 113 (defvar compilation-in-progress nil |
114 "List of compilation processes now running.") | |
115 (or (assq 'compilation-in-progress minor-mode-alist) | |
116 (setq minor-mode-alist (cons '(compilation-in-progress " Compiling") | |
117 minor-mode-alist))) | |
118 | |
71 | 119 (defvar compilation-parsing-end nil |
418 | 120 "Position of end of buffer when last error messages were parsed.") |
71 | 121 |
418 | 122 (defvar compilation-error-message "No more errors" |
1133 | 123 "Message to print when no more matches are found.") |
124 | |
125 (defvar compilation-num-errors-found) | |
71 | 126 |
418 | 127 (defvar compilation-error-regexp-alist |
128 '( | |
8359
a9f95d2ac181
(compilation-error-regexp-alist): Fix bug in Borland
Richard M. Stallman <rms@gnu.org>
parents:
8351
diff
changeset
|
129 ;; 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
|
130 |
418 | 131 ;; 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
|
132 ;; /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
|
133 ;; 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
|
134 ;; 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
|
135 ;; 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
|
136 ;; 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
|
137 ;; 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
|
138 ;; 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
|
139 ;; |
1702
817bd71e0e72
* compile.el (compilation-error-regexp-alist): Tightened up
Jim Blandy <jimb@redhat.com>
parents:
1554
diff
changeset
|
140 ;; 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
|
141 ;; 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
|
142 ;; containing a number with spaces around it. |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
143 ("\\([a-zA-Z]?:?[^:( \t\n]+\\)[:(][ \t]*\\([0-9]+\\)\\([) \t]\\|\ |
9888
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
144 :\\([^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
|
145 |
15084
01518892abad
(compilation-error-regexp-alist): Add regexp
Richard M. Stallman <rms@gnu.org>
parents:
14807
diff
changeset
|
146 ;; Microsoft C/C++: |
01518892abad
(compilation-error-regexp-alist): Add regexp
Richard M. Stallman <rms@gnu.org>
parents:
14807
diff
changeset
|
147 ;; keyboard.c(537) : warning C4005: 'min' : macro redefinition |
01518892abad
(compilation-error-regexp-alist): Add regexp
Richard M. Stallman <rms@gnu.org>
parents:
14807
diff
changeset
|
148 ;; d:\tmp\test.c(23) : error C2143: syntax error : missing ';' before 'if' |
16923
c7f39edc6320
(compilation-parse-errors): Use looking-at on each line.
Richard M. Stallman <rms@gnu.org>
parents:
16920
diff
changeset
|
149 ("\\(\\([a-zA-Z]:\\)?[^:( \t\n-]+\\)[:(][ \t]*\\([0-9]+\\)[:) \t]" 1 3) |
15084
01518892abad
(compilation-error-regexp-alist): Add regexp
Richard M. Stallman <rms@gnu.org>
parents:
14807
diff
changeset
|
150 |
8398
38513039d818
(compilation-error-regexp-alist): Make separate
Richard M. Stallman <rms@gnu.org>
parents:
8359
diff
changeset
|
151 ;; Borland C++: |
38513039d818
(compilation-error-regexp-alist): Make separate
Richard M. Stallman <rms@gnu.org>
parents:
8359
diff
changeset
|
152 ;; 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
|
153 ;; Warning ping.c 68: Call to function 'func' with no prototype |
16923
c7f39edc6320
(compilation-parse-errors): Use looking-at on each line.
Richard M. Stallman <rms@gnu.org>
parents:
16920
diff
changeset
|
154 ("\\(Error\\|Warning\\) \\([a-zA-Z]?:?[^:( \t\n]+\\)\ |
8398
38513039d818
(compilation-error-regexp-alist): Make separate
Richard M. Stallman <rms@gnu.org>
parents:
8359
diff
changeset
|
155 \\([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
|
156 |
418 | 157 ;; 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
|
158 ;; strcmp: variable # of args. llib-lc(359) :: /usr/src/foo/foo.c(8) |
16923
c7f39edc6320
(compilation-parse-errors): Use looking-at on each line.
Richard M. Stallman <rms@gnu.org>
parents:
16920
diff
changeset
|
159 (".*[ \t:]\\([a-zA-Z]?:?[^:( \t\n]+\\)[:(](+[ \t]*\\([0-9]+\\))[:) \t]*$" |
14049
d35edcfdefc1
(compilation-error-regexp-alist, grep-regexp-alist
Roland McGrath <roland@gnu.org>
parents:
14048
diff
changeset
|
160 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
|
161 |
418 | 162 ;; 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
|
163 ;; bloofle defined( /users/wolfgang/foo.c(4) ), but never used |
727 | 164 ;; This used to be |
14049
d35edcfdefc1
(compilation-error-regexp-alist, grep-regexp-alist
Roland McGrath <roland@gnu.org>
parents:
14048
diff
changeset
|
165 ;; ("[ \t(]+\\([a-zA-Z]?:?[^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]+" 1 2) |
727 | 166 ;; which is regexp Impressionism - it matches almost anything! |
16923
c7f39edc6320
(compilation-parse-errors): Use looking-at on each line.
Richard M. Stallman <rms@gnu.org>
parents:
16920
diff
changeset
|
167 (".*([ \t]*\\([a-zA-Z]?:?[^:( \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
|
168 |
14048
1a0cc425fb62
Mon Nov 6 18:01:01 1995 Dave Love <d.love@dl.ac.uk>
Roland McGrath <roland@gnu.org>
parents:
14047
diff
changeset
|
169 ;; MIPS lint pass<n>; looks good for SunPro lint also |
1a0cc425fb62
Mon Nov 6 18:01:01 1995 Dave Love <d.love@dl.ac.uk>
Roland McGrath <roland@gnu.org>
parents:
14047
diff
changeset
|
170 ;; TrimMask (255) in solomon.c may be indistinguishable from TrimMasks (93) in solomon.c due to truncation |
16923
c7f39edc6320
(compilation-parse-errors): Use looking-at on each line.
Richard M. Stallman <rms@gnu.org>
parents:
16920
diff
changeset
|
171 ("[^\n ]+ (\\([0-9]+\\)) in \\([^ \n]+\\)" 2 1) |
14048
1a0cc425fb62
Mon Nov 6 18:01:01 1995 Dave Love <d.love@dl.ac.uk>
Roland McGrath <roland@gnu.org>
parents:
14047
diff
changeset
|
172 ;; name defined but never used: LinInt in cmap_calc.c(199) |
16923
c7f39edc6320
(compilation-parse-errors): Use looking-at on each line.
Richard M. Stallman <rms@gnu.org>
parents:
16920
diff
changeset
|
173 (".*in \\([^(\n]+\\)(\\([0-9]+\\))$" 1 2) |
14048
1a0cc425fb62
Mon Nov 6 18:01:01 1995 Dave Love <d.love@dl.ac.uk>
Roland McGrath <roland@gnu.org>
parents:
14047
diff
changeset
|
174 |
4045
a37868b332ac
(compilation-error-regexp-alist): Broaden ``Line N of "FILE": msg'' regexp
Roland McGrath <roland@gnu.org>
parents:
3940
diff
changeset
|
175 ;; Ultrix 3.0 f77: |
7138
cbe3820953c6
(compilation-error-regexp-alist): Add fortran pattern.
Karl Heuer <kwzh@gnu.org>
parents:
7099
diff
changeset
|
176 ;; 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
|
177 ;; 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
|
178 ;; cfe: Warning 835: foo.c, line 2: something |
16923
c7f39edc6320
(compilation-parse-errors): Use looking-at on each line.
Richard M. Stallman <rms@gnu.org>
parents:
16920
diff
changeset
|
179 ("\\(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
|
180 ;; 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
|
181 ;; Unknown who does this: |
13972
6d4e18531dd2
(compilation-error-list): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
13819
diff
changeset
|
182 ;; 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
|
183 ;; 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
|
184 ;; 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
|
185 ;; warning on line 17 of fplot.f: data type is undefined for variable d |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
186 ("\\(.* on \\)?[Ll]ine[ \t]+\\([0-9]+\\)[ \t]+\ |
14049
d35edcfdefc1
(compilation-error-regexp-alist, grep-regexp-alist
Roland McGrath <roland@gnu.org>
parents:
14048
diff
changeset
|
187 of[ \t]+\"?\\([a-zA-Z]?:?[^\":\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
|
188 |
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
189 ;; 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
|
190 ;; "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
|
191 ;; IBM RS6000: |
ae1462a1a8d4
(compilation-error-regexp-alist): Generalize the
Richard M. Stallman <rms@gnu.org>
parents:
3607
diff
changeset
|
192 ;; "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
|
193 ;; Unknown compiler: |
7ef7f31aab53
(compilation-error-regexp-alist): Broaden RS6000 regexp to match
Roland McGrath <roland@gnu.org>
parents:
4153
diff
changeset
|
194 ;; 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
|
195 ;; Microtec mcc68k: |
4d6ab37798ff
(compilation-error-regexp-alist): Generalize `"foo.c", line 13:' regexp to
Roland McGrath <roland@gnu.org>
parents:
4757
diff
changeset
|
196 ;; "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
|
197 ;; GNAT (as of July 94): |
8288
8695e414a2b1
(compilation-error-regexp-alist): Allow `(' after
Richard M. Stallman <rms@gnu.org>
parents:
8218
diff
changeset
|
198 ;; "foo.adb", line 2(11): warning: file name does not match ... |
14047
2df0227ff613
(compilation-error-regexp-alist): Broaden GNAT regexp to match column numbers.
Roland McGrath <roland@gnu.org>
parents:
14046
diff
changeset
|
199 ;; IBM AIX xlc compiler: |
2df0227ff613
(compilation-error-regexp-alist): Broaden GNAT regexp to match column numbers.
Roland McGrath <roland@gnu.org>
parents:
14046
diff
changeset
|
200 ;; "src/swapping.c", line 30.34: 1506-342 (W) "/*" detected in comment. |
16923
c7f39edc6320
(compilation-parse-errors): Use looking-at on each line.
Richard M. Stallman <rms@gnu.org>
parents:
16920
diff
changeset
|
201 (".*\"\\([^,\" \n\t]+\\)\", lines? \ |
14047
2df0227ff613
(compilation-error-regexp-alist): Broaden GNAT regexp to match column numbers.
Roland McGrath <roland@gnu.org>
parents:
14046
diff
changeset
|
202 \\([0-9]+\\)\\([\(.]\\([0-9]+\\)\)?\\)?[:., (-]" 1 2 4) |
3606
713c76a95b74
* compile.el (compilation-error-list): When we haven't yet
Jim Blandy <jimb@redhat.com>
parents:
3514
diff
changeset
|
203 |
713c76a95b74
* compile.el (compilation-error-list): When we haven't yet
Jim Blandy <jimb@redhat.com>
parents:
3514
diff
changeset
|
204 ;; 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
|
205 ;; 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
|
206 ;; DEC AXP OSF/1 cc |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
207 ;; /usr/lib/cmplrs/cc/cfe: Error: foo.c: 1: blah blah |
16923
c7f39edc6320
(compilation-parse-errors): Use looking-at on each line.
Richard M. Stallman <rms@gnu.org>
parents:
16920
diff
changeset
|
208 (".*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
|
209 |
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
210 ;; 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
|
211 ;; ****** Error number 140 in line 8 of file errors.c ****** |
16923
c7f39edc6320
(compilation-parse-errors): Use looking-at on each line.
Richard M. Stallman <rms@gnu.org>
parents:
16920
diff
changeset
|
212 (".*in line \\([0-9]+\\) of file \\([^ \n]+[^. \n]\\)\\.? " 2 1) |
418 | 213 ;; IBM AIX lint is too painful to do right this way. File name |
214 ;; 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
|
215 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
216 ;; SPARCcompiler Pascal: |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
217 ;; 20 linjer : array[1..4] of linje; |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
218 ;; e 18480-----------^--- Inserted ';' |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
219 ;; and |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
220 ;; E 18520 line 61 - 0 is undefined |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
221 ;; These messages don't contain a file name. Instead the compiler gives |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
222 ;; a message whenever the file being compiled is changed. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
223 (" +\\([0-9]+\\) +.*\n[ew] [0-9]+-+" nil 1) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
224 ("[Ew] +[0-9]+ line \\([0-9]+\\) - " nil 1) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
225 |
5605
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
226 ;; Lucid Compiler, lcc 3.x |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
227 ;; E, file.cc(35,52) Illegal operation on pointers |
16923
c7f39edc6320
(compilation-parse-errors): Use looking-at on each line.
Richard M. Stallman <rms@gnu.org>
parents:
16920
diff
changeset
|
228 ("[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
|
229 |
9888
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
230 ;; GNU messages with program name and optional column number. |
16946
0c76a3a4b4d6
(compilation-error-regexp-alist): Undo 1/21 change.
Richard M. Stallman <rms@gnu.org>
parents:
16923
diff
changeset
|
231 ("[a-zA-Z]?:?[^0-9 \n\t:]+[^ \n\t:]*:[ \t]*\\([^ \n\t:]+\\):\ |
9888
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
232 \\([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
|
233 |
34dbef732b27
(compilation-error-regexp-alist): Add regexps for IBM and Cray compilers.
Roland McGrath <roland@gnu.org>
parents:
11618
diff
changeset
|
234 ;; Cray C compiler error messages |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
235 ("\\(cc\\| cft\\)-[0-9]+ c\\(c\\|f77\\): ERROR \\([^,\n]+, \\)* File = \ |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
236 \\([^,\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
|
237 |
34dbef732b27
(compilation-error-regexp-alist): Add regexps for IBM and Cray compilers.
Roland McGrath <roland@gnu.org>
parents:
11618
diff
changeset
|
238 ;; 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
|
239 ;; 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
|
240 ;; 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
|
241 ;; foo.c(5:5) : error EDC0350: Syntax error. |
16923
c7f39edc6320
(compilation-parse-errors): Use looking-at on each line.
Richard M. Stallman <rms@gnu.org>
parents:
16920
diff
changeset
|
242 ("\\([^( \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
|
243 |
287cc74602fa
(compilation-error-regexp-alist): Add regexp for Sun ada.
Roland McGrath <roland@gnu.org>
parents:
12256
diff
changeset
|
244 ;; Sun ada (VADS, Solaris): |
287cc74602fa
(compilation-error-regexp-alist): Add regexp for Sun ada.
Roland McGrath <roland@gnu.org>
parents:
12256
diff
changeset
|
245 ;; /home3/xdhar/rcds_rc/main.a, line 361, char 6:syntax error: "," inserted |
16923
c7f39edc6320
(compilation-parse-errors): Use looking-at on each line.
Richard M. Stallman <rms@gnu.org>
parents:
16920
diff
changeset
|
246 ("\\([^, \n\t]+\\), line \\([0-9]+\\), char \\([0-9]+\\)[:., \(-]" 1 2 3) |
17582
52780f61eb76
(compilation-error-regexp-alist): Add regexp for Perl -w.
Richard M. Stallman <rms@gnu.org>
parents:
17277
diff
changeset
|
247 |
52780f61eb76
(compilation-error-regexp-alist): Add regexp for Perl -w.
Richard M. Stallman <rms@gnu.org>
parents:
17277
diff
changeset
|
248 ;; Perl -w: |
52780f61eb76
(compilation-error-regexp-alist): Add regexp for Perl -w.
Richard M. Stallman <rms@gnu.org>
parents:
17277
diff
changeset
|
249 ;; syntax error at automake line 922, near "':'" |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
250 (".* at \\([^ ]+\\) line \\([0-9]+\\)," 1 2) |
418 | 251 ) |
1133 | 252 "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
|
253 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
|
254 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
|
255 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
|
256 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
|
257 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
|
258 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
|
259 subexpression.") |
71 | 260 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
261 (defvar compilation-enter-directory-regexp-alist |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
262 '( |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
263 ;; Matches lines printed by the `-w' option of GNU Make. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
264 (".*: Entering directory `\\(.*\\)'$" 1) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
265 ) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
266 "Alist specifying how to match lines that indicate a new current directory. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
267 Note that the match is done at the beginning of lines. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
268 Each elt has the form (REGEXP IDX). |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
269 If REGEXP matches, the IDX'th subexpression gives the directory name. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
270 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
271 The default value matches lines printed by the `-w' option of GNU Make.") |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
272 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
273 (defvar compilation-leave-directory-regexp-alist |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
274 '( |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
275 ;; Matches lines printed by the `-w' option of GNU Make. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
276 (".*: Leaving directory `\\(.*\\)'$" 1) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
277 ) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
278 "Alist specifying how to match lines that indicate restoring current directory. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
279 Note that the match is done at the beginning of lines. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
280 Each elt has the form (REGEXP IDX). |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
281 If REGEXP matches, the IDX'th subexpression gives the name of the directory |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
282 being moved from. If IDX is nil, the last directory entered \(by a line |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
283 matching `compilation-enter-directory-regexp-alist'\) is assumed. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
284 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
285 The default value matches lines printed by the `-w' option of GNU Make.") |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
286 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
287 (defvar compilation-file-regexp-alist |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
288 '( |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
289 ;; This matches entries with date time year file-name: like |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
290 ;; Thu May 14 10:46:12 1992 mom3.p: |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
291 ("\\w\\w\\w \\w\\w\\w +[0-9]+ [0-9][0-9]:[0-9][0-9]:[0-9][0-9] [0-9][0-9][0-9][0-9] \\(.*\\):$" 1) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
292 ) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
293 "Alist specifying how to match lines that indicate a new current file. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
294 Note that the match is done at the beginning of lines. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
295 Each elt has the form (REGEXP IDX). |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
296 If REGEXP matches, the IDX'th subexpression gives the file name. This is |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
297 used with compilers that don't indicate file name in every error message.") |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
298 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
299 ;; There is no generally useful regexp that will match non messages, but |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
300 ;; in special cases there might be one. The lines that are not matched by |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
301 ;; a regexp take much longer time than the ones that are recognized so if |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
302 ;; you have same regexeps here, parsing is faster. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
303 (defvar compilation-nomessage-regexp-alist |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
304 '( |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
305 ) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
306 "Alist specifying how to match lines that have no message. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
307 Note that the match is done at the beginning of lines. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
308 Each elt has the form (REGEXP). This alist is by default empty, but if |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
309 you have some good regexps here, the parsing of messages will be faster.") |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
310 |
5406
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
311 (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
|
312 "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
|
313 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
|
314 |
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
315 (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
|
316 "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
|
317 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
|
318 |
1072 | 319 (defvar grep-regexp-alist |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
320 '(("\\([a-zA-Z]?:?[^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 2)) |
1072 | 321 "Regexp used to match grep hits. See `compilation-error-regexp-alist'.") |
322 | |
17277
6ee6f94817dc
(grep-null-device): Move before first use.
Richard M. Stallman <rms@gnu.org>
parents:
17242
diff
changeset
|
323 ;; The system null device. (Should reference NULL_DEVICE from C.) |
6ee6f94817dc
(grep-null-device): Move before first use.
Richard M. Stallman <rms@gnu.org>
parents:
17242
diff
changeset
|
324 (defvar grep-null-device "/dev/null" "The system null device.") |
6ee6f94817dc
(grep-null-device): Move before first use.
Richard M. Stallman <rms@gnu.org>
parents:
17242
diff
changeset
|
325 |
17242
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
326 ;; Use zgrep if available, to work nicely with compressed files. |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
327 ;; Otherwise, use ordinary grep. |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
328 (defvar grep-program |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
329 (if (equal (condition-case nil ; in case "zgrep" isn't in exec-path |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
330 (call-process "zgrep" nil nil nil |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
331 "foo" grep-null-device) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
332 (error nil)) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
333 1) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
334 "zgrep" |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
335 "grep") |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
336 "The default grep program for `grep-command' and `grep-find-command'.") |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
337 |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
338 ;; Use -e if grep supports it, |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
339 ;; because that avoids lossage if the pattern starts with `-'. |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
340 (defvar grep-command |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
341 (if (equal (condition-case nil ; in case "grep" isn't in exec-path |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
342 (call-process grep-program nil nil nil |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
343 "-e" "foo" grep-null-device) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
344 (error nil)) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
345 1) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
346 (format "%s -n -e " grep-program) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
347 (format "%s -n " grep-program)) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
348 "The default grep command for \\[grep].") |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
349 |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
350 (defvar grep-find-use-xargs |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
351 (if (equal (call-process "find" nil nil nil |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
352 grep-null-device "-print0") |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
353 0) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
354 'gnu) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
355 "Whether \\[grep-find] uses the `xargs' utility by default. |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
356 |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
357 If nil, it uses `grep -exec'; if `gnu', it uses `find -print0' and `xargs -0'; |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
358 if not nil and not `gnu', it uses `find -print' and `xargs'. |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
359 |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
360 This variable's value takes effect when `compile.el' is loaded |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
361 by influencing the default value for the variable `grep-find-command'.") |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
362 |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
363 (defvar grep-find-command |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
364 (cond ((eq grep-find-use-xargs 'gnu) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
365 (format "find . -type f -print0 | xargs -0 -e %s" grep-command)) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
366 (grep-find-use-xargs |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
367 (format "find . -type f -print | xargs %s" grep-command)) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
368 (t (cons (format "find . -type f -exec %s {} /dev/null \\;" |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
369 grep-command) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
370 (+ 22 (length grep-command))))) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
371 "The default find command for \\[grep-find].") |
5260
93a5ed7aaeb5
(grep-command): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5215
diff
changeset
|
372 |
569 | 373 ;;;###autoload |
418 | 374 (defvar compilation-search-path '(nil) |
569 | 375 "*List of directories to search for source files named in error messages. |
418 | 376 Elements should be directory names, not file names of directories. |
377 nil as an element means to try the default directory.") | |
71 | 378 |
379 (defvar compile-command "make -k " | |
380 "Last shell command used to do a compilation; default for next compilation. | |
381 | |
382 Sometimes it is useful for files to supply local values for this variable. | |
383 You might also use mode hooks to specify it in certain modes, like this: | |
384 | |
385 (setq c-mode-hook | |
386 '(lambda () (or (file-exists-p \"makefile\") (file-exists-p \"Makefile\") | |
387 (progn (make-local-variable 'compile-command) | |
388 (setq compile-command | |
389 (concat \"make -k \" | |
390 buffer-file-name))))))") | |
391 | |
418 | 392 (defvar compilation-directory-stack nil |
1133 | 393 "Stack of previous directories for `compilation-leave-directory-regexp'. |
394 The head element is the directory the compilation was started in.") | |
418 | 395 |
12920
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
396 (defvar compilation-exit-message-function nil "\ |
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
397 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
|
398 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
|
399 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
|
400 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
|
401 |
864
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
402 ;; History of compile commands. |
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
403 (defvar compile-history nil) |
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
404 ;; History of grep commands. |
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
405 (defvar grep-history nil) |
17242
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
406 (defvar grep-find-history nil) |
864
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
407 |
17056
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
408 (defun compilation-mode-font-lock-keywords () |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
409 "Return expressions to highlight in Compilation mode." |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
410 (nconc |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
411 ;; |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
412 ;; Compiler warning/error lines. |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
413 (mapcar #'(lambda (item) |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
414 (list (nth 0 item) |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
415 (list (nth 1 item) 'font-lock-warning-face nil t) |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
416 (list (nth 2 item) 'font-lock-variable-name-face nil t))) |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
417 compilation-error-regexp-alist) |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
418 (list |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
419 ;; |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
420 ;; Compiler output lines. Recognize `make[n]:' lines too. |
17056
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
421 '("^\\([A-Za-z_0-9/\.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:" |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
422 (1 font-lock-function-name-face) (3 font-lock-comment-face nil t))) |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
423 )) |
12920
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
424 |
418 | 425 ;;;###autoload |
71 | 426 (defun compile (command) |
427 "Compile the program including the current buffer. Default: run `make'. | |
428 Runs COMMAND, a shell command, in a separate process asynchronously | |
429 with output going to the buffer `*compilation*'. | |
418 | 430 |
71 | 431 You can then use the command \\[next-error] to find the next error message |
432 and move to the source code that caused it. | |
433 | |
9888
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
434 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
|
435 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
|
436 |
71 | 437 To run more than one compilation at once, start one and rename the |
418 | 438 \`*compilation*' buffer to some other name with \\[rename-buffer]. |
439 Then start the next one. | |
440 | |
441 The name used for the buffer is actually whatever is returned by | |
442 the function in `compilation-buffer-name-function', so you can set that | |
443 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
|
444 (interactive |
9888
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
445 (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
|
446 (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
|
447 compile-command nil nil |
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
448 '(compile-history . 1))) |
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
449 (list compile-command))) |
71 | 450 (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
|
451 (save-some-buffers (not compilation-ask-about-save) nil) |
418 | 452 (compile-internal compile-command "No more errors")) |
71 | 453 |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
454 ;;; run compile with the default command line |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
455 (defun recompile () |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
456 "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
|
457 (interactive) |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
458 (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
|
459 (compile-internal compile-command "No more errors")) |
12256
e50e5d419c51
(grep-null-device): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
12219
diff
changeset
|
460 |
17054
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
461 (defun grep-process-setup () |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
462 "Set up `compilation-exit-message-function' for `grep'." |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
463 (set (make-local-variable 'compilation-exit-message-function) |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
464 (lambda (status code msg) |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
465 (if (eq status 'exit) |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
466 (cond ((zerop code) |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
467 '("finished (matches found)\n" . "matched")) |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
468 ((= code 1) |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
469 '("finished with no matches found\n" . "no match")) |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
470 (t |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
471 (cons msg code))) |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
472 (cons msg code))))) |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
473 |
418 | 474 ;;;###autoload |
71 | 475 (defun grep (command-args) |
476 "Run grep, with user-specified args, and collect output in a buffer. | |
477 While grep runs asynchronously, you can use the \\[next-error] command | |
418 | 478 to find the text that grep hits refer to. |
479 | |
864
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
480 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
|
481 easily repeat a grep command." |
71 | 482 (interactive |
864
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
483 (list (read-from-minibuffer "Run grep (like this): " |
5260
93a5ed7aaeb5
(grep-command): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5215
diff
changeset
|
484 grep-command nil nil 'grep-history))) |
17054
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
485 ;; Setting process-setup-function makes exit-message-function work |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
486 ;; even when async processes aren't supported. |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
487 (let* ((compilation-process-setup-function 'grep-process-setup) |
17242
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
488 (buf (compile-internal (if grep-null-device |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
489 (concat command-args " " grep-null-device) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
490 command-args) |
17054
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
491 "No more grep hits" "grep" |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
492 ;; Give it a simpler regexp to match. |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
493 nil grep-regexp-alist))))) |
71 | 494 |
17242
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
495 |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
496 ;;;###autoload |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
497 (defun grep-find (command-args) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
498 "Run grep via find, with user-specified args, and collect output in a buffer. |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
499 While find runs asynchronously, you can use the \\[next-error] command |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
500 to find the text that grep hits refer to. |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
501 |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
502 This command uses a special history list for its arguments, so you can |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
503 easily repeat a find command." |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
504 (interactive |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
505 (list (read-from-minibuffer "Run find (like this): " |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
506 grep-find-command nil nil 'grep-find-history))) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
507 (let ((grep-null-device nil)) ; see grep |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
508 (grep command-args))) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
509 |
71 | 510 (defun compile-internal (command error-message |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
511 &optional name-of-mode parser |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
512 error-regexp-alist name-function |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
513 enter-regexp-alist leave-regexp-alist |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
514 file-regexp-alist nomessage-regexp-alist) |
71 | 515 "Run compilation command COMMAND (low level interface). |
516 ERROR-MESSAGE is a string to print if the user asks to see another error | |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
517 and there are no more errors. The rest of the arguments, 3-10 are optional. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
518 For them nil means use the default. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
519 NAME-OF-MODE is the name to display as the major mode in the compilation |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
520 buffer. PARSER is the error parser function. ERROR-REGEXP-ALIST is the error |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
521 message regexp alist to use. NAME-FUNCTION is a function called to name the |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
522 buffer. ENTER-REGEXP-ALIST is the enter directory message regexp alist to use. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
523 LEAVE-REGEXP-ALIST is the leave directory message regexp alist to use. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
524 FILE-REGEXP-ALIST is the change current file message regexp alist to use. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
525 NOMESSAGE-REGEXP-ALIST is the nomessage regexp alist to use. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
526 The defaults for these variables are the global values of |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
527 \`compilation-parse-errors-function', `compilation-error-regexp-alist', |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
528 \`compilation-buffer-name-function', `compilation-enter-directory-regexp-alist', |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
529 \`compilation-leave-directory-regexp-alist', `compilation-file-regexp-alist', |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
530 \ and `compilation-nomessage-regexp-alist', respectively. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
531 For arg 7-10 a value `t' means an empty alist. |
894 | 532 |
533 Returns the compilation buffer created." | |
418 | 534 (let (outbuf) |
71 | 535 (save-excursion |
418 | 536 (or name-of-mode |
537 (setq name-of-mode "Compilation")) | |
538 (setq outbuf | |
539 (get-buffer-create | |
540 (funcall (or name-function compilation-buffer-name-function | |
541 (function (lambda (mode) | |
542 (concat "*" (downcase mode) "*")))) | |
543 name-of-mode))) | |
71 | 544 (set-buffer outbuf) |
418 | 545 (let ((comp-proc (get-buffer-process (current-buffer)))) |
546 (if comp-proc | |
547 (if (or (not (eq (process-status comp-proc) 'run)) | |
548 (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
|
549 (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
|
550 name-of-mode))) |
418 | 551 (condition-case () |
552 (progn | |
553 (interrupt-process comp-proc) | |
554 (sit-for 1) | |
555 (delete-process comp-proc)) | |
556 (error nil)) | |
557 (error "Cannot have two processes in `%s' at once" | |
558 (buffer-name)) | |
559 ))) | |
560 ;; In case the compilation buffer is current, make sure we get the global | |
561 ;; values of compilation-error-regexp-alist, etc. | |
562 (kill-all-local-variables)) | |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
563 (or error-regexp-alist |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
564 (setq error-regexp-alist compilation-error-regexp-alist)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
565 (or enter-regexp-alist |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
566 (setq enter-regexp-alist compilation-enter-directory-regexp-alist)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
567 (or leave-regexp-alist |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
568 (setq leave-regexp-alist compilation-leave-directory-regexp-alist)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
569 (or file-regexp-alist |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
570 (setq file-regexp-alist compilation-file-regexp-alist)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
571 (or nomessage-regexp-alist |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
572 (setq nomessage-regexp-alist compilation-nomessage-regexp-alist)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
573 (or parser (setq parser compilation-parse-errors-function)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
574 (let ((thisdir default-directory) |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
575 outwin) |
418 | 576 (save-excursion |
577 ;; Clear out the compilation buffer and make it writable. | |
578 ;; Change its default-directory to the directory where the compilation | |
579 ;; will happen, and insert a `cd' command to indicate this. | |
580 (set-buffer outbuf) | |
581 (setq buffer-read-only nil) | |
11618
9702de178097
(compile-internal): Disable undo before erasing
Richard M. Stallman <rms@gnu.org>
parents:
11359
diff
changeset
|
582 (buffer-disable-undo (current-buffer)) |
418 | 583 (erase-buffer) |
11618
9702de178097
(compile-internal): Disable undo before erasing
Richard M. Stallman <rms@gnu.org>
parents:
11359
diff
changeset
|
584 (buffer-enable-undo (current-buffer)) |
418 | 585 (setq default-directory thisdir) |
586 (insert "cd " thisdir "\n" command "\n") | |
587 (set-buffer-modified-p nil)) | |
588 ;; If we're already in the compilation buffer, go to the end | |
589 ;; of the buffer, so point will track the compilation output. | |
590 (if (eq outbuf (current-buffer)) | |
591 (goto-char (point-max))) | |
592 ;; Pop up the compilation buffer. | |
593 (setq outwin (display-buffer outbuf)) | |
3514
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
594 (save-excursion |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
595 (set-buffer outbuf) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
596 (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
|
597 ;; (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
|
598 (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
|
599 (set (make-local-variable 'compilation-error-message) error-message) |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
600 (set (make-local-variable 'compilation-error-regexp-alist) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
601 error-regexp-alist) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
602 (set (make-local-variable 'compilation-enter-directory-regexp-alist) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
603 enter-regexp-alist) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
604 (set (make-local-variable 'compilation-leave-directory-regexp-alist) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
605 leave-regexp-alist) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
606 (set (make-local-variable 'compilation-file-regexp-alist) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
607 file-regexp-alist) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
608 (set (make-local-variable 'compilation-nomessage-regexp-alist) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
609 nomessage-regexp-alist) |
3514
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
610 (setq default-directory thisdir |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
611 compilation-directory-stack (list default-directory)) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
612 (set-window-start outwin (point-min)) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
613 (setq mode-name name-of-mode) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
614 (or (eq outwin (selected-window)) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
615 (set-window-point outwin (point-min))) |
8483
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
616 (compilation-set-window-height outwin) |
16985
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
617 (if compilation-process-setup-function |
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
618 (funcall compilation-process-setup-function)) |
3514
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
619 ;; Start the compilation. |
5456
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
620 (if (fboundp 'start-process) |
8810
6ca3e0d3b7ca
(compile-internal): Set EMACS=t in process-environment.
Richard M. Stallman <rms@gnu.org>
parents:
8795
diff
changeset
|
621 (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
|
622 (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
|
623 outbuf |
6ca3e0d3b7ca
(compile-internal): Set EMACS=t in process-environment.
Richard M. Stallman <rms@gnu.org>
parents:
8795
diff
changeset
|
624 command))) |
5456
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
625 (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
|
626 (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
|
627 (set-marker (process-mark proc) (point) outbuf) |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
628 (setq compilation-in-progress |
5456
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
629 (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
|
630 ;; No asynchronous processes available. |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
631 (message "Executing `%s'..." command) |
13819
57cd7ef01dc7
(compile-internal): On systems with no asynchronous
Richard M. Stallman <rms@gnu.org>
parents:
13755
diff
changeset
|
632 ;; 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
|
633 (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
|
634 (force-mode-line-update) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
635 (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
|
636 (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
|
637 command))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
638 (cond ((numberp status) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
639 (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
|
640 (if (zerop status) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
641 "finished\n" |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
642 (format "\ |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
643 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
|
644 status)))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
645 ((stringp status) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
646 (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
|
647 (concat status "\n"))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
648 (t |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
649 (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
|
650 (message "Executing `%s'...done" command)))) |
418 | 651 ;; Make it so the next C-x ` will use this buffer. |
652 (setq compilation-last-buffer outbuf))) | |
71 | 653 |
8483
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
654 ;; 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
|
655 (defun compilation-set-window-height (window) |
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
656 (and compilation-window-height |
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
657 (= (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
|
658 ;; 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
|
659 ;; don't change its height. |
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
660 (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
|
661 ;; 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
|
662 ;; 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
|
663 (save-excursion |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
664 (let ((w (selected-window))) |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
665 (unwind-protect |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
666 (progn |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
667 (select-window window) |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
668 (enlarge-window (- compilation-window-height |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
669 (window-height)))) |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
670 (select-window w)))))) |
8483
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
671 |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
672 (defvar compilation-minor-mode-map |
71 | 673 (let ((map (make-sparse-keymap))) |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
674 (define-key map [mouse-2] 'compile-mouse-goto-error) |
71 | 675 (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
|
676 (define-key map "\C-m" 'compile-goto-error) |
418 | 677 (define-key map "\C-c\C-k" 'kill-compilation) |
894 | 678 (define-key map "\M-n" 'compilation-next-error) |
679 (define-key map "\M-p" 'compilation-previous-error) | |
946 | 680 (define-key map "\M-{" 'compilation-previous-file) |
681 (define-key map "\M-}" 'compilation-next-file) | |
71 | 682 map) |
2760
1c7595e3089b
(Setting minor-mode-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
2603
diff
changeset
|
683 "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
|
684 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
685 (defvar compilation-shell-minor-mode-map |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
686 (let ((map (make-sparse-keymap))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
687 (define-key map [mouse-2] 'compile-mouse-goto-error) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
688 (define-key map "\M-\C-m" 'compile-goto-error) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
689 (define-key map "\M-\C-n" 'compilation-next-error) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
690 (define-key map "\M-\C-p" 'compilation-previous-error) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
691 (define-key map "\M-{" 'compilation-previous-file) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
692 (define-key map "\M-}" 'compilation-next-file) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
693 ;; Set up the menu-bar |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
694 (define-key map [menu-bar errors-menu] |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
695 (cons "Errors" (make-sparse-keymap "Errors"))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
696 (define-key map [menu-bar errors-menu stop-subjob] |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
697 '("Stop" . comint-interrupt-subjob)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
698 (define-key map [menu-bar errors-menu compilation-mode-separator2] |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
699 '("----" . nil)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
700 (define-key map [menu-bar errors-menu compilation-mode-first-error] |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
701 '("First Error" . first-error)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
702 (define-key map [menu-bar errors-menu compilation-mode-previous-error] |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
703 '("Previous Error" . previous-error)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
704 (define-key map [menu-bar errors-menu compilation-mode-next-error] |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
705 '("Next Error" . next-error)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
706 map) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
707 "Keymap for `compilation-shell-minor-mode'.") |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
708 |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
709 (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
|
710 (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
|
711 (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
|
712 (define-key map "\^?" 'scroll-down) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
713 ;; Set up the menu-bar |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
714 (define-key map [menu-bar compilation-menu] |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
715 (cons "Compile" (make-sparse-keymap "Compile"))) |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
716 |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
717 (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
|
718 '("Stop Compilation" . kill-compilation)) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
719 (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
|
720 '("----" . nil)) |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
721 (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
|
722 '("First Error" . first-error)) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
723 (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
|
724 '("Previous Error" . previous-error)) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
725 (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
|
726 '("Next Error" . next-error)) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
727 (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
|
728 '("----" . nil)) |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
729 (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
|
730 '("Grep" . grep)) |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
731 (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
|
732 '("Recompile" . recompile)) |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
733 (define-key map [menu-bar compilation-menu compilation-mode-compile] |
17057
e54588a6cea9
Add ... to relevant menu entries.
Simon Marshall <simon@gnu.org>
parents:
17056
diff
changeset
|
734 '("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
|
735 map) |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
736 "Keymap for compilation log buffers. |
2760
1c7595e3089b
(Setting minor-mode-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
2603
diff
changeset
|
737 `compilation-minor-mode-map' is a cdr of this.") |
71 | 738 |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
739 ;;;###autoload |
71 | 740 (defun compilation-mode () |
741 "Major mode for compilation log buffers. | |
742 \\<compilation-mode-map>To visit the source for a line-numbered error, | |
418 | 743 move point to the error message line and type \\[compile-goto-error]. |
569 | 744 To kill the compilation, type \\[kill-compilation]. |
745 | |
746 Runs `compilation-mode-hook' with `run-hooks' (which see)." | |
71 | 747 (interactive) |
9376
f0ac347309e2
(compilation-mode-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8976
diff
changeset
|
748 (kill-all-local-variables) |
71 | 749 (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
|
750 (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
|
751 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
|
752 (compilation-setup) |
9473
b0cc803bf367
* compile.el: (compilation-mode): Set font-lock-defaults.
Simon Marshall <simon@gnu.org>
parents:
9376
diff
changeset
|
753 (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
|
754 '(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
|
755 (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
|
756 |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
757 ;; 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
|
758 (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
|
759 ;; 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
|
760 (setq mode-line-process '(":%s")) |
418 | 761 (set (make-local-variable 'compilation-error-list) nil) |
762 (set (make-local-variable 'compilation-old-error-list) nil) | |
763 (set (make-local-variable 'compilation-parsing-end) 1) | |
764 (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
|
765 (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
|
766 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
767 (defvar compilation-shell-minor-mode nil |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
768 "Non-nil when in compilation-shell-minor-mode. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
769 In this minor mode, all the error-parsing commands of the |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
770 Compilation major mode are available but bound to keys that don't |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
771 collide with Shell mode.") |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
772 (make-variable-buffer-local 'compilation-shell-minor-mode) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
773 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
774 (or (assq 'compilation-shell-minor-mode minor-mode-alist) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
775 (setq minor-mode-alist |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
776 (cons '(compilation-shell-minor-mode " Shell-Compile") |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
777 minor-mode-alist))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
778 (or (assq 'compilation-shell-minor-mode minor-mode-map-alist) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
779 (setq minor-mode-map-alist (cons (cons 'compilation-shell-minor-mode |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
780 compilation-shell-minor-mode-map) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
781 minor-mode-map-alist))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
782 |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
783 (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
|
784 "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
|
785 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
|
786 Compilation major mode are available.") |
4445
a1e412873732
(compilation-minor-mode): Make variable buffer-local.
Roland McGrath <roland@gnu.org>
parents:
4350
diff
changeset
|
787 (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
|
788 |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
789 (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
|
790 (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
|
791 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
|
792 (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
|
793 (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
|
794 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
|
795 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
|
796 |
4445
a1e412873732
(compilation-minor-mode): Make variable buffer-local.
Roland McGrath <roland@gnu.org>
parents:
4350
diff
changeset
|
797 ;;;###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
|
798 (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
|
799 "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
|
800 With arg, turn compilation mode on if and only if arg is positive. |
14607
3c86ac6a871a
(compilation-minor-mode): Run compilation-minor-mode-hook.
Roland McGrath <roland@gnu.org>
parents:
14562
diff
changeset
|
801 See `compilation-mode'. |
3c86ac6a871a
(compilation-minor-mode): Run compilation-minor-mode-hook.
Roland McGrath <roland@gnu.org>
parents:
14562
diff
changeset
|
802 Turning the mode on runs the normal hook `compilation-minor-mode-hook'." |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
803 (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
|
804 (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
|
805 (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
|
806 (> (prefix-numeric-value arg) 0))) |
14607
3c86ac6a871a
(compilation-minor-mode): Run compilation-minor-mode-hook.
Roland McGrath <roland@gnu.org>
parents:
14562
diff
changeset
|
807 (progn |
3c86ac6a871a
(compilation-minor-mode): Run compilation-minor-mode-hook.
Roland McGrath <roland@gnu.org>
parents:
14562
diff
changeset
|
808 (compilation-setup) |
14643
9a31b6a37efd
(compilation-minor-mode): Add missing `)'.
Erik Naggum <erik@naggum.no>
parents:
14607
diff
changeset
|
809 (run-hooks 'compilation-minor-mode-hook)))) |
71 | 810 |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
811 ;; 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
|
812 (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
|
813 (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
|
814 (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
|
815 (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
|
816 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
|
817 (cons msg exit-status))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
818 (omax (point-max)) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
819 (opoint (point))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
820 ;; 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
|
821 ;; later on. |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
822 (goto-char omax) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
823 (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
|
824 (forward-char -1) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
825 (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
|
826 (forward-char 1) |
14260
4577848d3ef2
(compilation-handle-exit): Undo previous change.
Karl Heuer <kwzh@gnu.org>
parents:
14250
diff
changeset
|
827 (setq mode-line-process (format ":%s [%s]" process-status (cdr status))) |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
828 ;; 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
|
829 (force-mode-line-update) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
830 (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
|
831 (goto-char opoint)) |
16519
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
832 ;; Automatically parse (and mouse-highlight) error messages: |
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
833 (cond ((eq compile-auto-highlight t) |
16518
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
834 (compile-reinitialize-errors nil (point-max))) |
16519
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
835 ((numberp compile-auto-highlight) |
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
836 (compile-reinitialize-errors nil |
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
837 (save-excursion |
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
838 (goto-line compile-auto-highlight) |
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
839 (point))))) |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
840 (if compilation-finish-function |
16042
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
841 (funcall compilation-finish-function (current-buffer) msg)) |
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
842 (let ((functions compilation-finish-functions)) |
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
843 (while functions |
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
844 (funcall (car functions) (current-buffer) msg) |
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
845 (setq functions (cdr functions)))))) |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
846 |
71 | 847 ;; Called when compilation process changes state. |
848 (defun compilation-sentinel (proc msg) | |
418 | 849 "Sentinel for compilation buffers." |
850 (let ((buffer (process-buffer proc))) | |
740 | 851 (if (memq (process-status proc) '(signal exit)) |
852 (progn | |
853 (if (null (buffer-name buffer)) | |
854 ;; buffer killed | |
855 (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
|
856 (let ((obuf (current-buffer))) |
740 | 857 ;; save-excursion isn't the right thing if |
858 ;; process-buffer is current-buffer | |
859 (unwind-protect | |
860 (progn | |
861 ;; Write something in the compilation buffer | |
862 ;; and hack its mode line. | |
863 (set-buffer buffer) | |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
864 (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
|
865 (process-exit-status proc) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
866 msg) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
867 ;; 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
|
868 ;; 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
|
869 ;; 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
|
870 (delete-process proc)) |
1133 | 871 (set-buffer obuf)))) |
740 | 872 (setq compilation-in-progress (delq proc compilation-in-progress)) |
873 )))) | |
71 | 874 |
2472
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
875 (defun compilation-filter (proc string) |
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
876 "Process filter for compilation buffers. |
2760
1c7595e3089b
(Setting minor-mode-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
2603
diff
changeset
|
877 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
|
878 (if (buffer-name (process-buffer proc)) |
2472
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
879 (save-excursion |
9511
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
880 (set-buffer (process-buffer proc)) |
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
881 (let ((buffer-read-only nil)) |
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
882 (save-excursion |
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
883 (goto-char (process-mark proc)) |
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
884 (insert-before-markers string) |
14455
1ce19c0594b1
(compilation-filter): Run compilation-filter-hook.
Richard M. Stallman <rms@gnu.org>
parents:
14260
diff
changeset
|
885 (run-hooks 'compilation-filter-hook) |
9511
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
886 (set-marker (process-mark proc) (point))))))) |
2472
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
887 |
920 | 888 ;; Return the cdr of compilation-old-error-list for the error containing point. |
889 (defun compile-error-at-point () | |
890 (compile-reinitialize-errors nil (point)) | |
891 (let ((errors compilation-old-error-list)) | |
892 (while (and errors | |
893 (> (point) (car (car errors)))) | |
894 (setq errors (cdr errors))) | |
895 errors)) | |
896 | |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
897 (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
|
898 (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
|
899 (set-buffer buffer) |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
900 (or compilation-shell-minor-mode compilation-minor-mode |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
901 (eq major-mode 'compilation-mode)))) |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
902 |
894 | 903 (defun compilation-next-error (n) |
904 "Move point to the next error in the compilation buffer. | |
905 Does NOT find the source line like \\[next-error]." | |
906 (interactive "p") | |
907 (or (compilation-buffer-p (current-buffer)) | |
908 (error "Not in a compilation buffer.")) | |
909 (setq compilation-last-buffer (current-buffer)) | |
910 | |
920 | 911 (let ((errors (compile-error-at-point))) |
894 | 912 |
920 | 913 ;; Move to the error after the one containing point. |
914 (goto-char (car (if (< n 0) | |
915 (let ((i 0) | |
916 (e compilation-old-error-list)) | |
917 ;; See how many cdrs away ERRORS is from the start. | |
918 (while (not (eq e errors)) | |
919 (setq i (1+ i) | |
920 e (cdr e))) | |
921 (if (> (- n) i) | |
922 (error "Moved back past first error") | |
923 (nth (+ i n) compilation-old-error-list))) | |
924 (let ((compilation-error-list (cdr errors))) | |
925 (compile-reinitialize-errors nil nil n) | |
926 (if compilation-error-list | |
927 (nth (1- n) compilation-error-list) | |
928 (error "Moved past last error")))))))) | |
894 | 929 |
930 (defun compilation-previous-error (n) | |
931 "Move point to the previous error in the compilation buffer. | |
932 Does NOT find the source line like \\[next-error]." | |
933 (interactive "p") | |
934 (compilation-next-error (- n))) | |
935 | |
936 | |
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
|
937 ;; 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
|
938 ;; 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
|
939 ;; 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
|
940 (defsubst compilation-error-filedata (data) |
920 | 941 (setq data (cdr data)) |
942 (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
|
943 (marker-buffer data) |
3875
c5b6f641698a
* compile.el (compile-file-of-error): Remember that
Jim Blandy <jimb@redhat.com>
parents:
3825
diff
changeset
|
944 (car data))) |
920 | 945 |
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
|
946 ;; 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
|
947 ;; 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
|
948 ;; 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
|
949 (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
|
950 (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
|
951 (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
|
952 (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
|
953 |
920 | 954 (defun compilation-next-file (n) |
955 "Move point to the next error for a different file than the current one." | |
956 (interactive "p") | |
957 (or (compilation-buffer-p (current-buffer)) | |
958 (error "Not in a compilation buffer.")) | |
959 (setq compilation-last-buffer (current-buffer)) | |
960 | |
961 (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
|
962 errors filedata) |
920 | 963 |
964 (if (not reversed) | |
965 (setq errors (or (compile-error-at-point) | |
966 (error "Moved past last error"))) | |
967 | |
968 ;; Get a reversed list of the errors up through the one containing point. | |
969 (compile-reinitialize-errors nil (point)) | |
970 (setq errors (reverse compilation-old-error-list) | |
971 n (- n)) | |
972 | |
973 ;; Ignore errors after point. (car ERRORS) will be the error | |
974 ;; containing point, (cadr ERRORS) the one before it. | |
975 (while (and errors | |
976 (< (point) (car (car errors)))) | |
977 (setq errors (cdr errors)))) | |
978 | |
979 (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
|
980 (setq filedata (compilation-error-filedata (car errors))) |
920 | 981 |
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
|
982 ;; 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
|
983 (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
|
984 (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
|
985 (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
|
986 (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
|
987 (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
|
988 (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
|
989 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
|
990 (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
|
991 ;; 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
|
992 (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
|
993 (setq errors compilation-error-list))) |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
994 (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
|
995 (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
|
996 filedata)))))) |
920 | 997 (setq errors (cdr errors))) |
998 | |
999 (setq n (1- n))) | |
1000 | |
1001 ;; Move to the following error. | |
1002 (goto-char (car (car (or errors | |
1003 (if reversed | |
1004 (error "This is the first erring file") | |
1005 (let ((compilation-error-list nil)) | |
1006 ;; Parse the last one. | |
1007 (compile-reinitialize-errors nil nil 1) | |
1008 compilation-error-list)))))))) | |
1009 | |
1010 (defun compilation-previous-file (n) | |
1011 "Move point to the previous error for a different file than the current one." | |
1012 (interactive "p") | |
1013 (compilation-next-file (- n))) | |
1014 | |
1015 | |
71 | 1016 (defun kill-compilation () |
1017 "Kill the process made by the \\[compile] command." | |
1018 (interactive) | |
418 | 1019 (let ((buffer (compilation-find-buffer))) |
71 | 1020 (if (get-buffer-process buffer) |
418 | 1021 (interrupt-process (get-buffer-process buffer)) |
1022 (error "The compilation process is not running.")))) | |
71 | 1023 |
418 | 1024 |
1025 ;; Parse any new errors in the compilation buffer, | |
1026 ;; 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
|
1027 (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
|
1028 &optional limit-search find-at-least) |
418 | 1029 (save-excursion |
1030 (set-buffer compilation-last-buffer) | |
1031 ;; If we are out of errors, or if user says "reparse", | |
1032 ;; discard the info we have, to force reparsing. | |
1033 (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
|
1034 reparse) |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1035 (compilation-forget-errors)) |
907 | 1036 (if (and compilation-error-list |
920 | 1037 (or (not limit-search) |
1038 (> compilation-parsing-end limit-search)) | |
907 | 1039 (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
|
1040 (>= (length compilation-error-list) find-at-least))) |
418 | 1041 ;; Since compilation-error-list is non-nil, it points to a specific |
1042 ;; error the user wanted. So don't move it around. | |
1043 nil | |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1044 ;; 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
|
1045 ;;(switch-to-buffer compilation-last-buffer) |
71 | 1046 (set-buffer-modified-p nil) |
920 | 1047 (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
|
1048 ;; 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
|
1049 ;; 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
|
1050 ;; 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
|
1051 ;; preserve that after reparsing. |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1052 (let ((error-list-pos compilation-error-list)) |
920 | 1053 (funcall compilation-parse-errors-function |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1054 limit-search |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1055 (and find-at-least |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1056 ;; 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
|
1057 ;; 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
|
1058 ;; position. |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1059 (- 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
|
1060 ;; 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
|
1061 ;; 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
|
1062 ;; 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
|
1063 ;; compilation-old-error-list above. |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1064 (setq compilation-old-error-list |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1065 (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
|
1066 (if error-list-pos |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1067 ;; 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
|
1068 ;; 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
|
1069 (setq compilation-error-list error-list-pos)) |
16519
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
1070 ;; Mouse-Highlight (the first line of) each error message when the |
16518
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1071 ;; mouse pointer moves over it: |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1072 (let ((inhibit-read-only t) |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1073 (error-list compilation-error-list)) |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1074 (while error-list |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1075 (save-excursion |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1076 (put-text-property (goto-char (car (car error-list))) |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1077 (progn (end-of-line) (point)) |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1078 'mouse-face 'highlight)) |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1079 (setq error-list (cdr error-list)))) |
920 | 1080 ))))) |
71 | 1081 |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
1082 (defun compile-mouse-goto-error (event) |
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
1083 (interactive "e") |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1084 (save-excursion |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1085 (set-buffer (window-buffer (posn-window (event-end event)))) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1086 (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
|
1087 |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1088 (or (compilation-buffer-p (current-buffer)) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1089 (error "Not in a compilation buffer.")) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1090 (setq compilation-last-buffer (current-buffer)) |
16997
c9f46b04dad0
(compile-mouse-goto-error): Move to end of line
Eli Zaretskii <eliz@gnu.org>
parents:
16985
diff
changeset
|
1091 ;; `compile-reinitialize-errors' needs to see the complete filename |
c9f46b04dad0
(compile-mouse-goto-error): Move to end of line
Eli Zaretskii <eliz@gnu.org>
parents:
16985
diff
changeset
|
1092 ;; on the line where they clicked the mouse. Since it only looks |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1093 ;; up to point, moving point to eol makes sure the filename is |
16997
c9f46b04dad0
(compile-mouse-goto-error): Move to end of line
Eli Zaretskii <eliz@gnu.org>
parents:
16985
diff
changeset
|
1094 ;; visible to `compile-reinitialize-errors'. |
c9f46b04dad0
(compile-mouse-goto-error): Move to end of line
Eli Zaretskii <eliz@gnu.org>
parents:
16985
diff
changeset
|
1095 (end-of-line) |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1096 (compile-reinitialize-errors nil (point)) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1097 |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1098 ;; 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
|
1099 (beginning-of-line) |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
1100 |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1101 ;; 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
|
1102 ;; we want. |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1103 (setq compilation-error-list compilation-old-error-list) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1104 (while (and compilation-error-list |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1105 (> (point) (car (car compilation-error-list)))) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1106 (setq compilation-error-list (cdr compilation-error-list))) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1107 (or compilation-error-list |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1108 (error "No error to go to"))) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1109 (select-window (posn-window (event-end event))) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1110 ;; 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
|
1111 ;; result in the desired setup. |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1112 (or (one-window-p) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1113 (progn |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1114 (other-window -1) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1115 ;; other-window changed the selected buffer, |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1116 ;; but we didn't want to do that. |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1117 (set-buffer compilation-last-buffer))) |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
1118 |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1119 (push-mark) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1120 (next-error 1)) |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
1121 |
71 | 1122 (defun compile-goto-error (&optional argp) |
1123 "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
|
1124 Use this command in a compilation log buffer. Sets the mark at point there. |
885 | 1125 \\[universal-argument] as a prefix arg means to reparse the buffer's error messages first; |
71 | 1126 other kinds of prefix arguments are ignored." |
1127 (interactive "P") | |
418 | 1128 (or (compilation-buffer-p (current-buffer)) |
1129 (error "Not in a compilation buffer.")) | |
1130 (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
|
1131 (compile-reinitialize-errors (consp argp) (point)) |
894 | 1132 |
1072 | 1133 ;; Move to bol; the marker for the error on this line will point there. |
1134 (beginning-of-line) | |
1135 | |
894 | 1136 ;; Move compilation-error-list to the elt of compilation-old-error-list |
901 | 1137 ;; we want. |
894 | 1138 (setq compilation-error-list compilation-old-error-list) |
901 | 1139 (while (and compilation-error-list |
1140 (> (point) (car (car compilation-error-list)))) | |
894 | 1141 (setq compilation-error-list (cdr compilation-error-list))) |
1142 | |
71 | 1143 ;; Move to another window, so that next-error's window changes |
1144 ;; result in the desired setup. | |
1145 (or (one-window-p) | |
894 | 1146 (progn |
1147 (other-window -1) | |
1148 ;; other-window changed the selected buffer, | |
1149 ;; but we didn't want to do that. | |
1150 (set-buffer compilation-last-buffer))) | |
1151 | |
6197
8ddddba0de43
(compile-goto-error): Push the mark before calling next-error.
Roland McGrath <roland@gnu.org>
parents:
5961
diff
changeset
|
1152 (push-mark) |
901 | 1153 (next-error 1)) |
71 | 1154 |
418 | 1155 ;; Return a compilation buffer. |
1156 ;; If the current buffer is a compilation buffer, return it. | |
1157 ;; If compilation-last-buffer is set to a live buffer, use that. | |
1158 ;; Otherwise, look for a compilation buffer and signal an error | |
1159 ;; if there are none. | |
621 | 1160 (defun compilation-find-buffer (&optional other-buffer) |
1161 (if (and (not other-buffer) | |
1162 (compilation-buffer-p (current-buffer))) | |
418 | 1163 ;; The current buffer is a compilation buffer. |
1164 (current-buffer) | |
621 | 1165 (if (and compilation-last-buffer (buffer-name compilation-last-buffer) |
14807
db1942b2425e
(compilation-find-buffer): Only choose compilation-last-buffer if it is
Roland McGrath <roland@gnu.org>
parents:
14730
diff
changeset
|
1166 (compilation-buffer-p compilation-last-buffer) |
621 | 1167 (or (not other-buffer) (not (eq compilation-last-buffer |
1168 (current-buffer))))) | |
418 | 1169 compilation-last-buffer |
1170 (let ((buffers (buffer-list))) | |
621 | 1171 (while (and buffers (or (not (compilation-buffer-p (car buffers))) |
1172 (and other-buffer | |
1173 (eq (car buffers) (current-buffer))))) | |
418 | 1174 (setq buffers (cdr buffers))) |
1175 (if buffers | |
1176 (car buffers) | |
621 | 1177 (or (and other-buffer |
1178 (compilation-buffer-p (current-buffer)) | |
1179 ;; The current buffer is a compilation buffer. | |
1180 (progn | |
1181 (if other-buffer | |
1182 (message "This is the only compilation buffer.")) | |
1183 (current-buffer))) | |
1184 (error "No compilation started!"))))))) | |
418 | 1185 |
1186 ;;;###autoload | |
71 | 1187 (defun next-error (&optional argp) |
1188 "Visit next compilation error message and corresponding source code. | |
1189 This operates on the output from the \\[compile] command. | |
1190 If all preparsed error messages have been processed, | |
1191 the error message buffer is checked for new ones. | |
1192 | |
1193 A prefix arg specifies how many error messages to move; | |
1194 negative means move back to previous error messages. | |
1195 Just C-u as a prefix means reparse the error message buffer | |
1196 and start at the first error. | |
1197 | |
1198 \\[next-error] normally applies to the most recent compilation started, | |
1199 but as long as you are in the middle of parsing errors from one compilation | |
1200 output buffer, you stay with that compilation output buffer. | |
1201 | |
1202 Use \\[next-error] in a compilation output buffer to switch to | |
1203 processing errors from that compilation. | |
1204 | |
418 | 1205 See variables `compilation-parse-errors-function' and |
1206 \`compilation-error-regexp-alist' for customization ideas." | |
71 | 1207 (interactive "P") |
418 | 1208 (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
|
1209 (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
|
1210 ;; 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
|
1211 ;; 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
|
1212 (and (not (consp argp)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1213 (prefix-numeric-value argp)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1214 (consp argp)))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1215 ;;;###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
|
1216 |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1217 (defun previous-error () |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1218 "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
|
1219 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
|
1220 (interactive) |
11804
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1221 (next-error -1)) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1222 |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1223 (defun first-error () |
16866
3244576af168
compile.el (first-error): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
16519
diff
changeset
|
1224 "Reparse the error message buffer and start at the first error. |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1225 Visit corresponding source code. |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1226 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
|
1227 (interactive) |
11804
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1228 (next-error '(4))) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1229 |
16448
39556b6d7c6e
(compilation-skip-to-next-location): Defined.
Karl Heuer <kwzh@gnu.org>
parents:
16042
diff
changeset
|
1230 (defvar compilation-skip-to-next-location nil |
39556b6d7c6e
(compilation-skip-to-next-location): Defined.
Karl Heuer <kwzh@gnu.org>
parents:
16042
diff
changeset
|
1231 "*If non-nil, skip multiple error messages for the same source location.") |
39556b6d7c6e
(compilation-skip-to-next-location): Defined.
Karl Heuer <kwzh@gnu.org>
parents:
16042
diff
changeset
|
1232 |
8342
95c011057e51
(compilation-next-error-locus): New arg SILENT.
Richard M. Stallman <rms@gnu.org>
parents:
8288
diff
changeset
|
1233 (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
|
1234 "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
|
1235 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
|
1236 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
|
1237 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
|
1238 |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1239 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
|
1240 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
|
1241 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
|
1242 |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1243 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
|
1244 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
|
1245 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
|
1246 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
|
1247 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
|
1248 |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1249 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
|
1250 (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
|
1251 (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
|
1252 (if (< move 1) 0 (1- move)))) |
418 | 1253 (let (next-errors next-error) |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1254 (catch 'no-next-error |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1255 (save-excursion |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1256 (set-buffer compilation-last-buffer) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1257 ;; compilation-error-list points to the "current" error. |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
1258 (setq next-errors |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1259 (if (> move 0) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1260 (nthcdr (1- move) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1261 compilation-error-list) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1262 ;; 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
|
1263 (let ((n (1- move)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1264 (i 0) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1265 (e compilation-old-error-list)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1266 ;; 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
|
1267 (while (not (eq e compilation-error-list)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1268 (setq i (1+ i) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1269 e (cdr e))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1270 (if (> (- n) i) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1271 (error "Moved back past first error") |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1272 (nthcdr (+ i n) compilation-old-error-list)))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1273 next-error (car next-errors)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1274 (while |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1275 (if (null next-error) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1276 (progn |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1277 (and move (/= move 1) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1278 (error (if (> move 0) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1279 "Moved past last error") |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1280 "Moved back past first error")) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1281 ;; Forget existing error messages if compilation has finished. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1282 (if (not (and (get-buffer-process (current-buffer)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1283 (eq (process-status |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1284 (get-buffer-process |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1285 (current-buffer))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1286 'run))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1287 (compilation-forget-errors)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1288 (if silent |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1289 (throw 'no-next-error nil) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1290 (error (concat compilation-error-message |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1291 (and (get-buffer-process (current-buffer)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1292 (eq (process-status |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1293 (get-buffer-process |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1294 (current-buffer))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1295 'run) |
8342
95c011057e51
(compilation-next-error-locus): New arg SILENT.
Richard M. Stallman <rms@gnu.org>
parents:
8288
diff
changeset
|
1296 " yet"))))) |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1297 (setq compilation-error-list (cdr next-errors)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1298 (if (null (cdr next-error)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1299 ;; This error is boring. Go to the next. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1300 t |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1301 (or (markerp (cdr next-error)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1302 ;; This error has a filename/lineno pair. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1303 ;; Find the file and turn it into a marker. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1304 (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
|
1305 (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
|
1306 (car next-error) fileinfo))) |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1307 (if (null buffer) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1308 ;; We can't find this error's file. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1309 ;; Remove all errors in the same file. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1310 (progn |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1311 (setq next-errors compilation-old-error-list) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1312 (while next-errors |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1313 (and (consp (cdr (car next-errors))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1314 (equal (car (cdr (car next-errors))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1315 fileinfo) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1316 (progn |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1317 (set-marker (car (car next-errors)) nil) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1318 (setcdr (car next-errors) nil))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1319 (setq next-errors (cdr next-errors))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1320 ;; Look for the next error. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1321 t) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1322 ;; 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
|
1323 ;; compilation-old-error-list is a buffer-local |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1324 ;; 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
|
1325 ;; before switching to the source file buffer. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1326 (let ((errors compilation-old-error-list) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1327 (last-line (nth 1 (cdr next-error))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1328 (column (nth 2 (cdr next-error)))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1329 (set-buffer buffer) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1330 (save-excursion |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1331 (save-restriction |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1332 (widen) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1333 (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
|
1334 (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
|
1335 ;; 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
|
1336 (move-to-column (1- column)) |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1337 (beginning-of-line)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1338 (setcdr next-error (point-marker)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1339 ;; Make all the other error messages referring |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1340 ;; to the same file have markers into the buffer. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1341 (while errors |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1342 (and (consp (cdr (car errors))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1343 (equal (car (cdr (car errors))) fileinfo) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1344 (let* ((this (nth 1 (cdr (car errors)))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1345 (column (nth 2 (cdr (car errors)))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1346 (lines (- this last-line))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1347 (if (eq selective-display t) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1348 ;; When selective-display is t, |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1349 ;; each C-m is a line boundary, |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1350 ;; as well as each newline. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1351 (if (< lines 0) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1352 (re-search-backward "[\n\C-m]" |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1353 nil 'end |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1354 (- lines)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1355 (re-search-forward "[\n\C-m]" |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1356 nil 'end |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1357 lines)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1358 (forward-line lines)) |
11804
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1359 (if (and column (> column 1)) |
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1360 (move-to-column (1- column)) |
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1361 (beginning-of-line)) |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1362 (setq last-line this) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1363 (setcdr (car errors) (point-marker)))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1364 (setq errors (cdr errors))))))))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1365 ;; 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
|
1366 ;; 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
|
1367 (or (not (markerp (cdr next-error))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1368 (not (marker-buffer (cdr next-error)))))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1369 (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
|
1370 next-error (car next-errors))))) |
418 | 1371 |
16448
39556b6d7c6e
(compilation-skip-to-next-location): Defined.
Karl Heuer <kwzh@gnu.org>
parents:
16042
diff
changeset
|
1372 (if compilation-skip-to-next-location |
39556b6d7c6e
(compilation-skip-to-next-location): Defined.
Karl Heuer <kwzh@gnu.org>
parents:
16042
diff
changeset
|
1373 ;; Skip over multiple error messages for the same source location, |
39556b6d7c6e
(compilation-skip-to-next-location): Defined.
Karl Heuer <kwzh@gnu.org>
parents:
16042
diff
changeset
|
1374 ;; so the next C-x ` won't go to an error in the same place. |
39556b6d7c6e
(compilation-skip-to-next-location): Defined.
Karl Heuer <kwzh@gnu.org>
parents:
16042
diff
changeset
|
1375 (while (and compilation-error-list |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1376 (equal (cdr (car compilation-error-list)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1377 (cdr next-error))) |
16448
39556b6d7c6e
(compilation-skip-to-next-location): Defined.
Karl Heuer <kwzh@gnu.org>
parents:
16042
diff
changeset
|
1378 (setq compilation-error-list (cdr compilation-error-list)))) |
418 | 1379 |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1380 ;; 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
|
1381 ;; 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
|
1382 next-error)) |
418 | 1383 |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1384 (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
|
1385 "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
|
1386 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
|
1387 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
|
1388 (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
|
1389 (eq (selected-window) (frame-root-window))) |
4d808a6268a3
(compilation-goto-locus): Handle case where *compilation*
Richard M. Stallman <rms@gnu.org>
parents:
7138
diff
changeset
|
1390 (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
|
1391 (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
|
1392 (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
|
1393 ;; 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
|
1394 ;; 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
|
1395 (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
|
1396 (progn |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1397 (widen) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1398 (goto-char (cdr next-error)))) |
418 | 1399 |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1400 ;; 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
|
1401 (let* ((pop-up-windows t) |
11804
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1402 ;; 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
|
1403 (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
|
1404 ;; Pop up a window. |
8483
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
1405 (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
|
1406 (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
|
1407 (set-window-start w (car next-error)) |
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
1408 (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
|
1409 |
418 | 1410 ;; Find a buffer for file FILENAME. |
1411 ;; Search the directories in compilation-search-path. | |
1412 ;; A nil in compilation-search-path means to try the | |
1413 ;; current directory, which is passed in DIR. | |
1414 ;; If FILENAME is not found at all, ask the user where to find it. | |
1415 ;; 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
|
1416 (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
|
1417 (or formats (setq formats '("%s"))) |
418 | 1418 (let ((dirs compilation-search-path) |
12219
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1419 buffer thisdir fmts name) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1420 (if (file-name-absolute-p filename) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1421 ;; 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
|
1422 ;; 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
|
1423 (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
|
1424 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
|
1425 filename (file-name-nondirectory filename))) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1426 ;; Now search the path. |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1427 (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
|
1428 (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
|
1429 fmts formats) |
12219
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1430 ;; 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
|
1431 (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
|
1432 (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
|
1433 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
|
1434 (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
|
1435 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
|
1436 (setq dirs (cdr dirs))) |
12219
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1437 (or buffer |
418 | 1438 ;; The file doesn't exist. |
1439 ;; Ask the user where to find it. | |
1440 ;; If he hits C-g, then the next time he does | |
1441 ;; 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
|
1442 (let* ((pop-up-windows t) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1443 (w (display-buffer (marker-buffer marker)))) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1444 (set-window-point w marker) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1445 (set-window-start w marker) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1446 (let ((name (expand-file-name |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1447 (read-file-name |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1448 (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
|
1449 filename) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1450 dir filename t)))) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1451 (if (file-directory-p name) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1452 (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
|
1453 (and (file-exists-p name) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1454 (find-file-noselect name))))))) |
418 | 1455 |
1456 ;; Set compilation-error-list to nil, and unchain the markers that point to the | |
1457 ;; error messages and their text, so that they no longer slow down gap motion. | |
1458 ;; This would happen anyway at the next garbage collection, but it is better to | |
894 | 1459 ;; do it right away. |
71 | 1460 (defun compilation-forget-errors () |
1461 (while compilation-old-error-list | |
1462 (let ((next-error (car compilation-old-error-list))) | |
1463 (set-marker (car next-error) nil) | |
418 | 1464 (if (markerp (cdr next-error)) |
1465 (set-marker (cdr next-error) nil))) | |
71 | 1466 (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
|
1467 (setq compilation-error-list nil |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1468 compilation-directory-stack nil |
16518
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1469 compilation-parsing-end 1) |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1470 ;; Remove the highlighting added by compile-reinitialize-errors: |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1471 (let ((inhibit-read-only t)) |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1472 (remove-text-properties (point-min) (point-max) '(mouse-face highlight))) |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1473 ) |
418 | 1474 |
1475 | |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1476 ;; This function is not needed any more by compilation mode. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1477 ;; Does anyone else need it or can it be deleted? |
418 | 1478 (defun count-regexp-groupings (regexp) |
1479 "Return the number of \\( ... \\) groupings in REGEXP (a string)." | |
1480 (let ((groupings 0) | |
1481 (len (length regexp)) | |
1482 (i 0) | |
1483 c) | |
1484 (while (< i len) | |
1485 (setq c (aref regexp i) | |
1486 i (1+ i)) | |
1487 (cond ((= c ?\[) | |
1488 ;; Find the end of this [...]. | |
1489 (while (and (< i len) | |
1490 (not (= (aref regexp i) ?\]))) | |
1491 (setq i (1+ i)))) | |
1492 ((= c ?\\) | |
1493 (if (< i len) | |
1494 (progn | |
1495 (setq c (aref regexp i) | |
1496 i (1+ i)) | |
1497 (if (= c ?\)) | |
1498 ;; We found the end of a grouping, | |
1499 ;; so bump our counter. | |
1500 (setq groupings (1+ groupings)))))))) | |
1501 groupings)) | |
71 | 1502 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1503 (defvar compilation-current-file nil |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1504 "Used by compilation-parse-errors to store filename for file being compiled") |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1505 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1506 ;; This variable is not used as a global variable. It's defined here just to |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1507 ;; shut up the byte compiler. It's bound and used by compilation-parse-errors |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1508 ;; and set by compile-collect-regexps. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1509 (defvar compilation-regexps nil) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1510 |
907 | 1511 (defun compilation-parse-errors (limit-search find-at-least) |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1512 "Parse the current buffer as grep, cc, lint or other error messages. |
418 | 1513 See variable `compilation-parse-errors-function' for the interface it uses." |
71 | 1514 (setq compilation-error-list nil) |
1515 (message "Parsing error messages...") | |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1516 (if (null compilation-error-regexp-alist) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1517 (error "compilation-error-regexp-alist is empty!")) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1518 (let* ((compilation-regexps nil) ; Variable set by compile-collect-regexps. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1519 (found-desired nil) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1520 (compilation-num-errors-found 0) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1521 ;; Set up now the expanded, abbreviated directory variables |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1522 ;; that compile-abbreviate-directory will need, so we can |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1523 ;; compute them just once here. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1524 (orig (abbreviate-file-name default-directory)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1525 (orig-expanded (abbreviate-file-name |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1526 (file-truename default-directory))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1527 (parent-expanded (abbreviate-file-name |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1528 (expand-file-name "../" orig-expanded)))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1529 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1530 ;; Make a list of all the regexps. Each element has the form |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1531 ;; (REGEXP TYPE IDX1 IDX2 ...) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1532 ;; where TYPE is one of leave, enter, file, error or nomessage. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1533 (compile-collect-regexps 'leave compilation-leave-directory-regexp-alist) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1534 (compile-collect-regexps 'enter compilation-enter-directory-regexp-alist) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1535 (compile-collect-regexps 'file compilation-file-regexp-alist) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1536 (compile-collect-regexps 'nomessage compilation-nomessage-regexp-alist) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1537 (compile-collect-regexps 'error compilation-error-regexp-alist) |
418 | 1538 |
71 | 1539 ;; Don't reparse messages already seen at last parse. |
1540 (goto-char compilation-parsing-end) | |
1541 (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
|
1542 (progn |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1543 (setq compilation-current-file nil) ; No current file at start. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1544 ;; Don't parse the first two lines as error messages. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1545 ;; This matters for grep. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1546 (forward-line 2))) |
418 | 1547 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1548 ;; Parse messages. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1549 (while (not (or found-desired (eobp))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1550 (let ((this compilation-regexps) (prev nil) (alist nil) type) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1551 ;; Go through the regular expressions. If a match is found, |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1552 ;; variable alist is set to the corresponding alist and the |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1553 ;; matching regexp is moved to the front of compilation-regexps |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1554 ;; to make it match faster next time. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1555 (while (and this (null alist)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1556 (if (not (looking-at (car (car this)))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1557 (progn (setq prev this) ; No match, go to next. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1558 (setq this (cdr this))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1559 (setq alist (cdr (car this))) ; Got a match. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1560 ;;; (if prev ; If not the first regexp, |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1561 ;;; (progn ; move it to the front. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1562 ;;; (setcdr prev (cdr this)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1563 ;;; (setcdr this compilation-regexps) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1564 ;;; (setq compilation-regexps this))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1565 )) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1566 (if (and alist ; Seen a match and not to |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1567 (not (eq (setq type (car alist)) 'nomessage))) ; be ignored. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1568 (let* ((end-of-match (match-end 0)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1569 (filename |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1570 (compile-buffer-substring (car (setq alist (cdr alist))))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1571 stack) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1572 (if (eq type 'error) ; error message |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1573 (let* ((linenum (if (numberp (car (setq alist (cdr alist)))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1574 (string-to-int |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1575 (compile-buffer-substring (car alist))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1576 ;; (car alist) is not a number, must be a |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1577 ;; function that is called below to return |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1578 ;; an error position descriptor. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1579 (car alist))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1580 ;; Convert to integer later if linenum not a function. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1581 (column (compile-buffer-substring |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1582 (car (setq alist (cdr alist))))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1583 this-error) |
935 | 1584 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1585 ;; Check that we have a file name. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1586 (or filename |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1587 ;; No file name in message, we must have seen it before |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1588 (setq filename compilation-current-file) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1589 (error "\ |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1590 An error message with no file name and no file name has been seen earlier.")) |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1591 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1592 ;; Check for a comint-file-name-prefix and prepend it if |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1593 ;; appropriate. (This is very useful for |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1594 ;; compilation-minor-mode in an rlogin-mode buffer.) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1595 (and (boundp 'comint-file-name-prefix) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1596 ;; If file name is relative, default-directory will |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1597 ;; already contain the comint-file-name-prefix (done |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1598 ;; by compile-abbreviate-directory). |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1599 (file-name-absolute-p filename) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1600 (setq filename |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1601 (concat comint-file-name-prefix filename))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1602 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1603 ;; Some compilers (e.g. Sun's java compiler, reportedly) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1604 ;; produce bogus file names like "./bar//foo.c" for file |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1605 ;; "bar/foo.c"; expand-file-name will collapse these into |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1606 ;; "/foo.c" and fail to find the appropriate file. So we |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1607 ;; look for doubled slashes in the file name and fix them |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1608 ;; up in the buffer. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1609 (setq filename (command-line-normalize-file-name filename)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1610 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1611 (setq filename |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1612 (cons filename (cons default-directory (cdr alist)))) |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1613 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1614 ;; Locate the erring file and line. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1615 ;; Make this-error a new elt for compilation-error-list, |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1616 ;; giving a marker for the current compilation buffer |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1617 ;; location, and the file and line number of the error. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1618 ;; Save, as the start of the error, the beginning of the |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1619 ;; line containing the match. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1620 (if (setq this-error |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1621 (if (numberp linenum) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1622 (list (point-marker) filename linenum |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1623 (and column (string-to-int column))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1624 ;; If linenum is not a number then it must be |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1625 ;; a function returning an error position |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1626 ;; descriptor or nil (meaning no position). |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1627 (save-excursion |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1628 (funcall linenum filename column)))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1629 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1630 ;; We have an error position descriptor. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1631 ;; If we have found as many new errors as the user |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1632 ;; wants, or if we are past the buffer position he |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1633 ;; indicated, then we continue to parse until we have |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1634 ;; seen all consecutive errors in the same file. This |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1635 ;; means that all the errors of a source file will be |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1636 ;; seen in one parsing run, so that the error positions |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1637 ;; will be recorded as markers in the source file |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1638 ;; buffer that will move when the buffer is changed. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1639 (if (and (or (and find-at-least |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1640 (>= compilation-num-errors-found |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1641 find-at-least)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1642 (and limit-search |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1643 (>= end-of-match limit-search))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1644 compilation-error-list ;At least one previous. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1645 (not (equal ; Same filename? |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1646 (car (cdr (car compilation-error-list))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1647 (car (cdr this-error))))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1648 ;; We are past the limits and the last error |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1649 ;; parsed, didn't belong to the same source file |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1650 ;; as the earlier ones i.e. we have seen all the |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1651 ;; errors belonging to the earlier file. We don't |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1652 ;; add the error just parsed so that the next |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1653 ;; parsing run can get it and the following errors |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1654 ;; in the same file all at once. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1655 (setq found-desired t) |
5605
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
1656 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1657 (goto-char end-of-match) ; Prepare for next message. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1658 ;; Don't add the same source line more than once. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1659 (and (not (and |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1660 compilation-error-list |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1661 (equal (cdr (car compilation-error-list)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1662 (cdr this-error)))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1663 (setq compilation-error-list |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1664 (cons this-error compilation-error-list) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1665 compilation-num-errors-found |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1666 (1+ compilation-num-errors-found)))))) |
5475
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1667 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1668 ;; Not an error message. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1669 (if (eq type `file) ; Change current file. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1670 (and filename (setq compilation-current-file filename)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1671 ;; Enter or leave directory. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1672 (setq stack compilation-directory-stack) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1673 (and filename |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1674 (file-directory-p |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1675 (setq filename |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1676 ;; The directory name in the message |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1677 ;; is a truename. Try to convert it to a form |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1678 ;; like what the user typed in. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1679 (compile-abbreviate-directory |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1680 (file-name-as-directory |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1681 (expand-file-name filename)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1682 orig orig-expanded parent-expanded))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1683 (if (eq type 'leave) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1684 (while (and stack |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1685 (not (string-equal (car stack) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1686 filename))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1687 (setq stack (cdr stack))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1688 (setq compilation-directory-stack |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1689 (cons filename compilation-directory-stack) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1690 default-directory filename))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1691 (and (eq type 'leave |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1692 stack |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1693 (setq compilation-directory-stack (cdr stack)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1694 (setq stack (car compilation-directory-stack)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1695 (setq default-directory stack))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1696 (goto-char end-of-match) ; Prepare to look at next message. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1697 (and limit-search (>= end-of-match limit-search) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1698 ;; The user wanted a specific error, and we're past it. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1699 ;; We do this check here rather than at the end of the |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1700 ;; loop because if the last thing seen is an error |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1701 ;; message, we must carefully discard the last error |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1702 ;; when it is the first in a new file (see above in |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1703 ;; the error-message case) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1704 (setq found-desired t)))) |
935 | 1705 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1706 ;; Go to before the last character in the message so that we will |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1707 ;; see the next line also when the message ended at end of line. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1708 ;; When we ignore the last error message above, this will |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1709 ;; cancel the effect of forward-line below so that point |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1710 ;; doesn't move. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1711 (forward-char -1) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1712 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1713 ;; Is this message necessary any more? Parsing is now so fast |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1714 ;; that you might not need to know how it proceeds. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1715 (message |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1716 "Parsing error messages...%d found. %.0f%% of buffer seen." |
1133 | 1717 compilation-num-errors-found |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1718 ;; 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
|
1719 ;; 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
|
1720 (/ (* 100.0 (point)) (point-max))) |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1721 )) |
935 | 1722 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1723 (forward-line 1))) ; End of while loop. Look at next line. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1724 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1725 (setq compilation-parsing-end (point)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1726 (setq compilation-error-list (nreverse compilation-error-list)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1727 ;;; (message "Parsing error messages...done. %d found. %.0f%% of buffer seen." |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1728 ;;; compilation-num-errors-found |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1729 ;;; (/ (* 100.0 (point)) (point-max))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1730 (message "Parsing error messages...done."))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1731 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1732 (defun compile-collect-regexps (type this) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1733 ;; Add elements to variable compilation-regexps that is bound in |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1734 ;; compilation-parse-errors. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1735 (and (not (eq this t)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1736 (while this |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1737 (setq compilation-regexps |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1738 (cons (cons (car (car this)) (cons type (cdr (car this)))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1739 compilation-regexps)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1740 (setq this (cdr this))))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1741 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1742 (defun compile-buffer-substring (index) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1743 ;; Get substring matched by INDEXth subexpression. |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1744 (if index |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1745 (let ((beg (match-beginning index))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1746 (if beg (buffer-substring beg (match-end index)))))) |
71 | 1747 |
3940
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1748 ;; 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
|
1749 ;; 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
|
1750 ;; ORIG-EXPANDED is an expanded version of ORIG. |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1751 ;; 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
|
1752 ;; 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
|
1753 ;; having the caller compute them just once. |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1754 (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
|
1755 ;; 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
|
1756 ;; 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
|
1757 (setq dir (abbreviate-file-name dir)) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
1758 |
5475
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1759 ;; 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
|
1760 ;; (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
|
1761 ;; buffer.) |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
1762 (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
|
1763 (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
|
1764 |
3940
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1765 (if (and (> (length dir) (length orig-expanded)) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1766 (string= orig-expanded |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1767 (substring dir 0 (length orig-expanded)))) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1768 (setq dir |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1769 (concat orig |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1770 (substring dir (length orig-expanded))))) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1771 (if (and (> (length dir) (length parent-expanded)) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1772 (string= parent-expanded |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1773 (substring dir 0 (length parent-expanded)))) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1774 (setq dir |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1775 (concat (file-name-directory |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1776 (directory-file-name orig)) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1777 (substring dir (length parent-expanded))))) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1778 dir) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
1779 |
621 | 1780 (provide 'compile) |
712
16823e891d56
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
621
diff
changeset
|
1781 |
16823e891d56
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
621
diff
changeset
|
1782 ;;; compile.el ends here |