Mercurial > emacs
annotate lisp/progmodes/compile.el @ 46677:86e8d59e2e49
*** empty log message ***
author | Dave Love <fx@gnu.org> |
---|---|
date | Wed, 24 Jul 2002 23:01:32 +0000 |
parents | d4001fdfa742 |
children | 5128d5a8980c |
rev | line source |
---|---|
38412
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
38077
diff
changeset
|
1 ;;; compile.el --- run compiler as inferior of Emacs, parse error messages |
712
16823e891d56
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
621
diff
changeset
|
2 |
40294
c3b8e6d5266f
(compilation-parse-errors-filename-function):
Gerd Moellmann <gerd@gnu.org>
parents:
40222
diff
changeset
|
3 ;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 98, 1999, 2001 |
c3b8e6d5266f
(compilation-parse-errors-filename-function):
Gerd Moellmann <gerd@gnu.org>
parents:
40222
diff
changeset
|
4 ;; Free Software Foundation, Inc. |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
5 |
25426
a08bfd064439
(compilation-parsing-end,compilation-setup)
Richard M. Stallman <rms@gnu.org>
parents:
24894
diff
changeset
|
6 ;; Author: Roland McGrath <roland@gnu.org> |
795
c693d56ef36d
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
7 ;; Maintainer: FSF |
2247
2c7997f249eb
Add or correct keywords
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1846
diff
changeset
|
8 ;; Keywords: tools, processes |
795
c693d56ef36d
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
9 |
71 | 10 ;; This file is part of GNU Emacs. |
11 | |
804 | 12 ;; GNU Emacs is free software; you can redistribute it and/or modify |
13 ;; it under the terms of the GNU General Public License as published by | |
14 ;; the Free Software Foundation; either version 2, or (at your option) | |
15 ;; any later version. | |
71 | 16 |
804 | 17 ;; GNU Emacs is distributed in the hope that it will be useful, |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
14169 | 23 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
25 ;; Boston, MA 02111-1307, USA. | |
71 | 26 |
2337
2ee64176069c
Fix library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
27 ;;; Commentary: |
2ee64176069c
Fix library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
28 |
2ee64176069c
Fix library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
29 ;; 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
|
30 ;; the Emacs user's manual. |
2ee64176069c
Fix library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
31 |
795
c693d56ef36d
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
32 ;;; Code: |
c693d56ef36d
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
33 |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
34 (defgroup compilation nil |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
35 "Run compiler as inferior of Emacs, parse error messages." |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
36 :group 'tools |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
37 :group 'processes) |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
38 |
569 | 39 |
40 ;;;###autoload | |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
41 (defcustom compilation-mode-hook nil |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
42 "*List of hook functions run by `compilation-mode' (see `run-hooks')." |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
43 :type 'hook |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
44 :group 'compilation) |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
45 |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
46 ;;;###autoload |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
47 (defcustom compilation-window-height nil |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
48 "*Number of lines in a compilation window. If nil, use Emacs default." |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
49 :type '(choice (const :tag "Default" nil) |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
50 integer) |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
51 :group 'compilation) |
418 | 52 |
24288
b563359187fd
(compile-auto-highlight): Customize.
Richard M. Stallman <rms@gnu.org>
parents:
24284
diff
changeset
|
53 (defcustom compile-auto-highlight nil |
16518
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
54 "*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
|
55 \(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
|
56 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
|
57 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
|
58 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
|
59 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
|
60 move to the error messages. |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
61 |
16519
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
62 Those messages which are not parsed and highlighted initially |
24288
b563359187fd
(compile-auto-highlight): Customize.
Richard M. Stallman <rms@gnu.org>
parents:
24284
diff
changeset
|
63 will be parsed and highlighted as soon as you try to move to them." |
b563359187fd
(compile-auto-highlight): Customize.
Richard M. Stallman <rms@gnu.org>
parents:
24284
diff
changeset
|
64 :type '(choice (const :tag "All" t) |
b563359187fd
(compile-auto-highlight): Customize.
Richard M. Stallman <rms@gnu.org>
parents:
24284
diff
changeset
|
65 (const :tag "None" nil) |
b563359187fd
(compile-auto-highlight): Customize.
Richard M. Stallman <rms@gnu.org>
parents:
24284
diff
changeset
|
66 (integer :tag "First N lines")) |
b563359187fd
(compile-auto-highlight): Customize.
Richard M. Stallman <rms@gnu.org>
parents:
24284
diff
changeset
|
67 :group 'compilation) |
16518
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
68 |
43135
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
69 ;;; This has to be here so it can be called |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
70 ;;; by the following defcustoms. |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
71 (defun grep-compute-defaults () |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
72 (unless (or (not grep-use-null-device) (eq grep-use-null-device t)) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
73 (setq grep-use-null-device |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
74 (with-temp-buffer |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
75 (let ((hello-file (expand-file-name "HELLO" data-directory))) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
76 (not |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
77 (and (equal (condition-case nil |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
78 (if grep-command |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
79 ;; `grep-command' is already set, so |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
80 ;; use that for testing. |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
81 (call-process-shell-command |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
82 grep-command nil t nil |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
83 "^English" hello-file) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
84 ;; otherwise use `grep-program' |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
85 (call-process grep-program nil t nil |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
86 "-nH" "^English" hello-file)) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
87 (error nil)) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
88 0) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
89 (progn |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
90 (goto-char (point-min)) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
91 (looking-at |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
92 (concat (regexp-quote hello-file) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
93 ":[0-9]+:English"))))))))) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
94 (unless grep-command |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
95 (setq grep-command |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
96 (let ((required-options (if grep-use-null-device "-n" "-nH"))) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
97 (if (equal (condition-case nil ; in case "grep" isn't in exec-path |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
98 (call-process grep-program nil nil nil |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
99 "-e" "foo" null-device) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
100 (error nil)) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
101 1) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
102 (format "%s %s -e " grep-program required-options) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
103 (format "%s %s " grep-program required-options))))) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
104 (unless grep-find-use-xargs |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
105 (setq grep-find-use-xargs |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
106 (if (and |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
107 (equal (call-process "find" nil nil nil |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
108 null-device "-print0") |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
109 0) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
110 (equal (call-process "xargs" nil nil nil |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
111 "-0" "-e" "echo") |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
112 0)) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
113 'gnu))) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
114 (unless grep-find-command |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
115 (setq grep-find-command |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
116 (cond ((eq grep-find-use-xargs 'gnu) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
117 (format "%s . -type f -print0 | xargs -0 -e %s" |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
118 find-program grep-command)) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
119 (grep-find-use-xargs |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
120 (format "%s . -type f -print | xargs %s" |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
121 find-program grep-command)) |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
122 (t (cons (format "%s . -type f -exec %s {} %s \\;" |
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
123 find-program grep-command null-device) |
45593
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
124 (+ 22 (length grep-command))))))) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
125 (unless grep-tree-command |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
126 (setq grep-tree-command |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
127 (let* ((glen (length grep-program)) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
128 (gcmd (concat grep-program " <C>" (substring grep-command glen)))) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
129 (cond ((eq grep-find-use-xargs 'gnu) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
130 (format "%s <D> <X> -type f <F> -print0 | xargs -0 -e %s <R>" |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
131 find-program gcmd)) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
132 (grep-find-use-xargs |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
133 (format "%s <D> <X> -type f <F> -print | xargs %s <R>" |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
134 find-program gcmd)) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
135 (t (format "%s <D> <X> -type f <F> -exec %s <R> {} %s \\;" |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
136 find-program gcmd null-device))))))) |
43135
10b506b00785
(grep-compute-defaults): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42939
diff
changeset
|
137 |
39269
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
138 (defcustom grep-command nil |
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
139 "The default grep command for \\[grep]. |
39599
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
140 If the grep program used supports an option to always include file names |
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
141 in its output (such as the `-H' option to GNU grep), it's a good idea to |
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
142 include it when specifying `grep-command'. |
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
143 |
39269
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
144 The default value of this variable is set up by `grep-compute-defaults'; |
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
145 call that function before using this variable in your program." |
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
146 :type 'string |
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
147 :get '(lambda (symbol) |
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
148 (or grep-command |
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
149 (progn (grep-compute-defaults) grep-command))) |
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
150 :group 'compilation) |
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
151 |
39599
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
152 (defcustom grep-use-null-device 'auto-detect |
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
153 "If non-nil, append the value of `null-device' to grep commands. |
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
154 This is done to ensure that the output of grep includes the filename of |
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
155 any match in the case where only a single file is searched, and is not |
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
156 necessary if the grep program used supports the `-H' option. |
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
157 |
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
158 The default value of this variable is set up by `grep-compute-defaults'; |
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
159 call that function before using this variable in your program." |
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
160 :type 'boolean |
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
161 :get '(lambda (symbol) |
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
162 (if (and grep-use-null-device (not (eq grep-use-null-device t))) |
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
163 (progn (grep-compute-defaults) grep-use-null-device) |
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
164 grep-use-null-device)) |
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
165 :group 'compilation) |
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
166 |
39269
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
167 (defcustom grep-find-command nil |
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
168 "The default find command for \\[grep-find]. |
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
169 The default value of this variable is set up by `grep-compute-defaults'; |
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
170 call that function before using this variable in your program." |
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
171 :type 'string |
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
172 :get (lambda (symbol) |
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
173 (or grep-find-command |
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
174 (progn (grep-compute-defaults) grep-find-command))) |
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
175 :group 'compilation) |
75fdf7bea836
(grep-compute-defaults): Don't set
Gerd Moellmann <gerd@gnu.org>
parents:
38532
diff
changeset
|
176 |
45593
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
177 (defcustom grep-tree-command nil |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
178 "The default find command for \\[grep-tree]. |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
179 The default value of this variable is set up by `grep-compute-defaults'; |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
180 call that function before using this variable in your program. |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
181 The following place holders should be present in the string: |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
182 <D> - base directory for find |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
183 <X> - find options to restrict or expand the directory list |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
184 <F> - find options to limit the files matched |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
185 <C> - place to put -i if case insensitive grep |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
186 <R> - the regular expression searched for." |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
187 :type 'string |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
188 :version "21.4" |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
189 :get (lambda (symbol) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
190 (or grep-tree-command |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
191 (progn (grep-compute-defaults) grep-tree-command))) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
192 :group 'compilation) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
193 |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
194 (defcustom grep-tree-files-aliases '( |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
195 ("ch" . "*.[ch]") |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
196 ("c" . "*.c") |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
197 ("h" . "*.h") |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
198 ("m" . "[Mm]akefile*") |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
199 ("asm" . "*.[sS]") |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
200 ("all" . "*") |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
201 ("el" . "*.el") |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
202 ) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
203 "*Alist of aliases for the FILES argument to `grep-tree'." |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
204 :type 'alist |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
205 :group 'compilation) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
206 |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
207 (defcustom grep-tree-ignore-case t |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
208 "*If non-nil, `grep-tree' ignores case in matches." |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
209 :type 'boolean |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
210 :group 'compilation) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
211 |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
212 (defcustom grep-tree-ignore-CVS-directories t |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
213 "*If non-nil, `grep-tree' does no recurse into CVS directories." |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
214 :type 'boolean |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
215 :group 'compilation) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
216 |
71 | 217 (defvar compilation-error-list nil |
218 "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
|
219 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
|
220 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
|
221 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
|
222 \(\(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
|
223 error is not interesting. |
418 | 224 |
225 The value may be t instead of a list; this means that the buffer of | |
3607 | 226 error messages should be reparsed the next time the list of errors is wanted. |
227 | |
228 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
|
229 message tracking facilities; if you change its structure, you should make |
3607 | 230 sure you also change those packages. Perhaps it is better not to change |
231 it at all.") | |
71 | 232 |
233 (defvar compilation-old-error-list nil | |
234 "Value of `compilation-error-list' after errors were parsed.") | |
235 | |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
236 (defvar compilation-parse-errors-function 'compilation-parse-errors |
885 | 237 "Function to call to parse error messages from a compilation. |
907 | 238 It takes args LIMIT-SEARCH and FIND-AT-LEAST. |
239 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
|
240 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
|
241 many new errors. |
418 | 242 It should read in the source files which have errors and set |
243 `compilation-error-list' to a list with an element for each error message | |
244 found. See that variable for more info.") | |
71 | 245 |
40294
c3b8e6d5266f
(compilation-parse-errors-filename-function):
Gerd Moellmann <gerd@gnu.org>
parents:
40222
diff
changeset
|
246 (defvar compilation-parse-errors-filename-function nil |
c3b8e6d5266f
(compilation-parse-errors-filename-function):
Gerd Moellmann <gerd@gnu.org>
parents:
40222
diff
changeset
|
247 "Function to call to post-process filenames while parsing error messages. |
c3b8e6d5266f
(compilation-parse-errors-filename-function):
Gerd Moellmann <gerd@gnu.org>
parents:
40222
diff
changeset
|
248 It takes one arg FILENAME which is the name of a file as found |
c3b8e6d5266f
(compilation-parse-errors-filename-function):
Gerd Moellmann <gerd@gnu.org>
parents:
40222
diff
changeset
|
249 in the compilation output, and should return a transformed file name.") |
c3b8e6d5266f
(compilation-parse-errors-filename-function):
Gerd Moellmann <gerd@gnu.org>
parents:
40222
diff
changeset
|
250 |
474 | 251 ;;;###autoload |
16985
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
252 (defvar compilation-process-setup-function nil |
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
253 "*Function to call to customize the compilation process. |
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
254 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
|
255 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
|
256 while processing the output of the compilation process.") |
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
257 |
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
258 ;;;###autoload |
418 | 259 (defvar compilation-buffer-name-function nil |
1133 | 260 "Function to compute the name of a compilation buffer. |
261 The function receives one argument, the name of the major mode of the | |
262 compilation buffer. It should return a string. | |
263 nil means compute the name with `(concat \"*\" (downcase major-mode) \"*\")'.") | |
71 | 264 |
474 | 265 ;;;###autoload |
418 | 266 (defvar compilation-finish-function nil |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
267 "Function to call when a compilation process finishes. |
418 | 268 It is called with two arguments: the compilation buffer, and a string |
269 describing how the process finished.") | |
270 | |
16042
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
271 ;;;###autoload |
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
272 (defvar compilation-finish-functions nil |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
273 "Functions to call when a compilation process finishes. |
16042
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
274 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
|
275 and a string describing how the process finished.") |
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
276 |
418 | 277 (defvar compilation-last-buffer nil |
1133 | 278 "The most recent compilation buffer. |
279 A buffer becomes most recent when its compilation is started | |
280 or when it is used with \\[next-error] or \\[compile-goto-error].") | |
71 | 281 |
740 | 282 (defvar compilation-in-progress nil |
283 "List of compilation processes now running.") | |
284 (or (assq 'compilation-in-progress minor-mode-alist) | |
285 (setq minor-mode-alist (cons '(compilation-in-progress " Compiling") | |
286 minor-mode-alist))) | |
287 | |
71 | 288 (defvar compilation-parsing-end nil |
25426
a08bfd064439
(compilation-parsing-end,compilation-setup)
Richard M. Stallman <rms@gnu.org>
parents:
24894
diff
changeset
|
289 "Marker position of end of buffer when last error messages were parsed.") |
71 | 290 |
418 | 291 (defvar compilation-error-message "No more errors" |
1133 | 292 "Message to print when no more matches are found.") |
293 | |
17866
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
294 (defvar compilation-arguments nil |
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
295 "Arguments that were given to `compile-internal'.") |
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
296 |
1133 | 297 (defvar compilation-num-errors-found) |
71 | 298 |
418 | 299 (defvar compilation-error-regexp-alist |
300 '( | |
8359
a9f95d2ac181
(compilation-error-regexp-alist): Fix bug in Borland
Richard M. Stallman <rms@gnu.org>
parents:
8351
diff
changeset
|
301 ;; 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
|
302 |
418 | 303 ;; 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
|
304 ;; /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
|
305 ;; 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
|
306 ;; 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
|
307 ;; 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
|
308 ;; 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
|
309 ;; 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
|
310 ;; foo.adb:2:1: Unit name does not match file name |
20966
1abf4d6ec488
(compilation-error-regexp-alist): Allow initial
Dave Love <fx@gnu.org>
parents:
20877
diff
changeset
|
311 ;; or with column and program name: |
1abf4d6ec488
(compilation-error-regexp-alist): Allow initial
Dave Love <fx@gnu.org>
parents:
20877
diff
changeset
|
312 ;; jade:dbcommon.dsl:133:17:E: missing argument for function call |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
313 ;; |
1702
817bd71e0e72
* compile.el (compilation-error-regexp-alist): Tightened up
Jim Blandy <jimb@redhat.com>
parents:
1554
diff
changeset
|
314 ;; 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
|
315 ;; 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
|
316 ;; containing a number with spaces around it. |
23866
b1adb6a721dd
(compilation-error-regexp-alist): Insist on a non-digit in the file name.
Karl Heuer <kwzh@gnu.org>
parents:
23865
diff
changeset
|
317 |
b1adb6a721dd
(compilation-error-regexp-alist): Insist on a non-digit in the file name.
Karl Heuer <kwzh@gnu.org>
parents:
23865
diff
changeset
|
318 ;; We insist on a non-digit in the file name |
b1adb6a721dd
(compilation-error-regexp-alist): Insist on a non-digit in the file name.
Karl Heuer <kwzh@gnu.org>
parents:
23865
diff
changeset
|
319 ;; so that we don't mistake the file name for a command name |
b1adb6a721dd
(compilation-error-regexp-alist): Insist on a non-digit in the file name.
Karl Heuer <kwzh@gnu.org>
parents:
23865
diff
changeset
|
320 ;; and take the line number as the file name. |
24824
7b6625bfb652
(compilation-error-regexp-alist): Allow
Dave Love <fx@gnu.org>
parents:
24625
diff
changeset
|
321 ("\\([a-zA-Z][-a-zA-Z._0-9]+: ?\\)?\ |
23866
b1adb6a721dd
(compilation-error-regexp-alist): Insist on a non-digit in the file name.
Karl Heuer <kwzh@gnu.org>
parents:
23865
diff
changeset
|
322 \\([a-zA-Z]?:?[^:( \t\n]*[^:( \t\n0-9][^:( \t\n]*\\)[:(][ \t]*\\([0-9]+\\)\ |
23865
e5da22ef0b94
(compilation-error-regexp-alist): Fix regexp to match
Karl Heuer <kwzh@gnu.org>
parents:
23263
diff
changeset
|
323 \\([) \t]\\|:\\(\\([0-9]+:\\)\\|[0-9]*[^:0-9]\\)\\)" 2 3 6) |
8398
38513039d818
(compilation-error-regexp-alist): Make separate
Richard M. Stallman <rms@gnu.org>
parents:
8359
diff
changeset
|
324 |
44413
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
325 ;; GNU utilities with precise locations (line and columns), |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
326 ;; possibly ranges: |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
327 ;; foo.c:8.23-9.1: error message |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
328 ("\\([a-zA-Z][-a-zA-Z._0-9]+: ?\\)\ |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
329 \\([0-9]+\\)\\.\\([0-9]+\\)\ |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
330 -\\([0-9]+\\)\\.\\([0-9]+\\)\ |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
331 :" 1 2 3) ;; When ending points are supported, add line = 4 and col = 5. |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
332 ;; foo.c:8.23-45: error message |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
333 ("\\([a-zA-Z][-a-zA-Z._0-9]+: ?\\)\ |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
334 \\([0-9]+\\)\\.\\([0-9]+\\)\ |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
335 -\\([0-9]+\\)\ |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
336 :" 1 2 3) ;; When ending points are supported, add line = 2 and col = 4. |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
337 ;; foo.c:8-45.3: error message |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
338 ("\\([a-zA-Z][-a-zA-Z._0-9]+: ?\\)\ |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
339 \\([0-9]+\\)\ |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
340 -\\([0-9]+\\)\\.\\([0-9]+\\)\ |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
341 :" 1 2 nil) ;; When ending points are supported, add line = 2 and col = 4. |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
342 ;; foo.c:8.23: error message |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
343 ("\\([a-zA-Z][-a-zA-Z._0-9]+: ?\\)\ |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
344 \\([0-9]+\\)\\.\\([0-9]+\\)\ |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
345 :" 1 2 3) |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
346 ;; foo.c:8-23: error message |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
347 ("\\([a-zA-Z][-a-zA-Z._0-9]+: ?\\)\ |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
348 \\([0-9]+\\)\ |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
349 -\\([0-9]+\\)\ |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
350 :" 1 2 nil);; When ending points are supported, add line = 3. |
2b898d069325
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44209
diff
changeset
|
351 |
15084
01518892abad
(compilation-error-regexp-alist): Add regexp
Richard M. Stallman <rms@gnu.org>
parents:
14807
diff
changeset
|
352 ;; Microsoft C/C++: |
01518892abad
(compilation-error-regexp-alist): Add regexp
Richard M. Stallman <rms@gnu.org>
parents:
14807
diff
changeset
|
353 ;; 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
|
354 ;; d:\tmp\test.c(23) : error C2143: syntax error : missing ';' before 'if' |
18565
1df558397136
(compilation-parse-errors): Skip 2 lines only for Compilation major mode.
Richard M. Stallman <rms@gnu.org>
parents:
18477
diff
changeset
|
355 ;; This used to be less selective and allow characters other than |
1df558397136
(compilation-parse-errors): Skip 2 lines only for Compilation major mode.
Richard M. Stallman <rms@gnu.org>
parents:
18477
diff
changeset
|
356 ;; parens around the line number, but that caused confusion for |
1df558397136
(compilation-parse-errors): Skip 2 lines only for Compilation major mode.
Richard M. Stallman <rms@gnu.org>
parents:
18477
diff
changeset
|
357 ;; GNU-style error messages. |
19616
bc9b6200a609
(compilation-error-regexp-alist): Allow spaces in file names for Microsoft C;
Richard M. Stallman <rms@gnu.org>
parents:
19351
diff
changeset
|
358 ;; This used to reject spaces and dashes in file names, |
24625
5b75b8661881
(compilation-error-regexp-alist): Recognize C++Build 4.0 error message syntax.
Karl Heuer <kwzh@gnu.org>
parents:
24623
diff
changeset
|
359 ;; but they are valid now; so I made it more strict about the error |
19616
bc9b6200a609
(compilation-error-regexp-alist): Allow spaces in file names for Microsoft C;
Richard M. Stallman <rms@gnu.org>
parents:
19351
diff
changeset
|
360 ;; message that follows. |
bc9b6200a609
(compilation-error-regexp-alist): Allow spaces in file names for Microsoft C;
Richard M. Stallman <rms@gnu.org>
parents:
19351
diff
changeset
|
361 ("\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)(\\([0-9]+\\)) \ |
bc9b6200a609
(compilation-error-regexp-alist): Allow spaces in file names for Microsoft C;
Richard M. Stallman <rms@gnu.org>
parents:
19351
diff
changeset
|
362 : \\(error\\|warning\\) C[0-9]+:" 1 3) |
15084
01518892abad
(compilation-error-regexp-alist): Add regexp
Richard M. Stallman <rms@gnu.org>
parents:
14807
diff
changeset
|
363 |
24625
5b75b8661881
(compilation-error-regexp-alist): Recognize C++Build 4.0 error message syntax.
Karl Heuer <kwzh@gnu.org>
parents:
24623
diff
changeset
|
364 ;; Borland C++, C++Builder: |
8398
38513039d818
(compilation-error-regexp-alist): Make separate
Richard M. Stallman <rms@gnu.org>
parents:
8359
diff
changeset
|
365 ;; 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
|
366 ;; Warning ping.c 68: Call to function 'func' with no prototype |
24625
5b75b8661881
(compilation-error-regexp-alist): Recognize C++Build 4.0 error message syntax.
Karl Heuer <kwzh@gnu.org>
parents:
24623
diff
changeset
|
367 ;; Error E2010 ping.c 15: Unable to open include file 'sys/types.h' |
5b75b8661881
(compilation-error-regexp-alist): Recognize C++Build 4.0 error message syntax.
Karl Heuer <kwzh@gnu.org>
parents:
24623
diff
changeset
|
368 ;; Warning W1022 ping.c 68: Call to function 'func' with no prototype |
5b75b8661881
(compilation-error-regexp-alist): Recognize C++Build 4.0 error message syntax.
Karl Heuer <kwzh@gnu.org>
parents:
24623
diff
changeset
|
369 ("\\(Error\\|Warning\\) \\(\\([FEW][0-9]+\\) \\)?\ |
5b75b8661881
(compilation-error-regexp-alist): Recognize C++Build 4.0 error message syntax.
Karl Heuer <kwzh@gnu.org>
parents:
24623
diff
changeset
|
370 \\([a-zA-Z]?:?[^:( \t\n]+\\)\ |
5b75b8661881
(compilation-error-regexp-alist): Recognize C++Build 4.0 error message syntax.
Karl Heuer <kwzh@gnu.org>
parents:
24623
diff
changeset
|
371 \\([0-9]+\\)\\([) \t]\\|:[^0-9\n]\\)" 4 5) |
2461
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
372 |
46324
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
373 ;; Valgrind (memory debugger for x86 GNU/Linux): |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
374 ;; ==1332== at 0x8008621: main (vtest.c:180) |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
375 ;; Currently this regexp only matches the first error. |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
376 ;; Thanks to Hans Petter Jansson <hpj@ximian.com> for his regexp wisdom. |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
377 ("^==[0-9]+==[^(]+\(([^:]+):([0-9]+)" 1 2) |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
378 |
418 | 379 ;; 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
|
380 ;; 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
|
381 (".*[ \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
|
382 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
|
383 |
418 | 384 ;; 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
|
385 ;; bloofle defined( /users/wolfgang/foo.c(4) ), but never used |
727 | 386 ;; This used to be |
14049
d35edcfdefc1
(compilation-error-regexp-alist, grep-regexp-alist
Roland McGrath <roland@gnu.org>
parents:
14048
diff
changeset
|
387 ;; ("[ \t(]+\\([a-zA-Z]?:?[^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]+" 1 2) |
727 | 388 ;; 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
|
389 (".*([ \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
|
390 |
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
|
391 ;; 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
|
392 ;; 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
|
393 ("[^\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
|
394 ;; 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
|
395 (".*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
|
396 |
4045
a37868b332ac
(compilation-error-regexp-alist): Broaden ``Line N of "FILE": msg'' regexp
Roland McGrath <roland@gnu.org>
parents:
3940
diff
changeset
|
397 ;; Ultrix 3.0 f77: |
7138
cbe3820953c6
(compilation-error-regexp-alist): Add fortran pattern.
Karl Heuer <kwzh@gnu.org>
parents:
7099
diff
changeset
|
398 ;; 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
|
399 ;; 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
|
400 ;; 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
|
401 ("\\(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
|
402 ;; 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
|
403 ;; Unknown who does this: |
13972
6d4e18531dd2
(compilation-error-list): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
13819
diff
changeset
|
404 ;; 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
|
405 ;; 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
|
406 ;; 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
|
407 ;; 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
|
408 ("\\(.* 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
|
409 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
|
410 |
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
411 ;; 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
|
412 ;; "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
|
413 ;; IBM RS6000: |
ae1462a1a8d4
(compilation-error-regexp-alist): Generalize the
Richard M. Stallman <rms@gnu.org>
parents:
3607
diff
changeset
|
414 ;; "vvouch.c", line 19.5: 1506-046 (S) Syntax error. |
5215
4d6ab37798ff
(compilation-error-regexp-alist): Generalize `"foo.c", line 13:' regexp to
Roland McGrath <roland@gnu.org>
parents:
4757
diff
changeset
|
415 ;; Microtec mcc68k: |
4d6ab37798ff
(compilation-error-regexp-alist): Generalize `"foo.c", line 13:' regexp to
Roland McGrath <roland@gnu.org>
parents:
4757
diff
changeset
|
416 ;; "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
|
417 ;; GNAT (as of July 94): |
8288
8695e414a2b1
(compilation-error-regexp-alist): Allow `(' after
Richard M. Stallman <rms@gnu.org>
parents:
8218
diff
changeset
|
418 ;; "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
|
419 ;; 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
|
420 ;; "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
|
421 (".*\"\\([^,\" \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
|
422 \\([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
|
423 |
45215
7c87a236ef78
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44413
diff
changeset
|
424 ;; Python: |
7c87a236ef78
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44413
diff
changeset
|
425 ;; File "foobar.py", line 5, blah blah |
7c87a236ef78
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44413
diff
changeset
|
426 ("^File \"\\([^,\" \n\t]+\\)\", line \\([0-9]+\\)," 1 2) |
7c87a236ef78
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
44413
diff
changeset
|
427 |
19351
cf429b6a3ab8
(compilation-error-regexp-alist): New regexp for Caml.
Richard M. Stallman <rms@gnu.org>
parents:
19182
diff
changeset
|
428 ;; Caml compiler: |
cf429b6a3ab8
(compilation-error-regexp-alist): New regexp for Caml.
Richard M. Stallman <rms@gnu.org>
parents:
19182
diff
changeset
|
429 ;; File "foobar.ml", lines 5-8, characters 20-155: blah blah |
cf429b6a3ab8
(compilation-error-regexp-alist): New regexp for Caml.
Richard M. Stallman <rms@gnu.org>
parents:
19182
diff
changeset
|
430 ("^File \"\\([^,\" \n\t]+\\)\", lines? \\([0-9]+\\)[-0-9]*, characters? \\([0-9]+\\)" 1 2 3) |
cf429b6a3ab8
(compilation-error-regexp-alist): New regexp for Caml.
Richard M. Stallman <rms@gnu.org>
parents:
19182
diff
changeset
|
431 |
3606
713c76a95b74
* compile.el (compilation-error-list): When we haven't yet
Jim Blandy <jimb@redhat.com>
parents:
3514
diff
changeset
|
432 ;; 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
|
433 ;; 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
|
434 ;; DEC AXP OSF/1 cc |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
435 ;; /usr/lib/cmplrs/cc/cfe: Error: foo.c: 1: blah blah |
21224
1581abe1a67e
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
20966
diff
changeset
|
436 ("[a-z0-9/]+: \\([eE]rror\\|[wW]arning\\): \\([^,\" \n\t]+\\)[,:] \\(line \\)?\\([0-9]+\\):" 2 4) |
2461
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
437 |
1ecb75748794
(compilation-error-regexp-alist): Merged HP-UX 7.0 fc regexp with the
Roland McGrath <roland@gnu.org>
parents:
2460
diff
changeset
|
438 ;; 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
|
439 ;; ****** 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
|
440 (".*in line \\([0-9]+\\) of file \\([^ \n]+[^. \n]\\)\\.? " 2 1) |
418 | 441 ;; IBM AIX lint is too painful to do right this way. File name |
442 ;; 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
|
443 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
444 ;; SPARCcompiler Pascal: |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
445 ;; 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
|
446 ;; 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
|
447 ;; and |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
448 ;; 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
|
449 ;; 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
|
450 ;; 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
|
451 (" +\\([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
|
452 ("[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
|
453 |
5605
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
454 ;; Lucid Compiler, lcc 3.x |
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
455 ;; 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
|
456 ("[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
|
457 |
38493
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
458 ;; This seems to be superfluous because the first pattern matches it. |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
459 ;; ;; GNU messages with program name and optional column number. |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
460 ;; ("[a-zA-Z]?:?[^0-9 \n\t:]+[^ \n\t:]*:[ \t]*\\([^ \n\t:]+\\):\ |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
461 ;;\\([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
|
462 |
34dbef732b27
(compilation-error-regexp-alist): Add regexps for IBM and Cray compilers.
Roland McGrath <roland@gnu.org>
parents:
11618
diff
changeset
|
463 ;; 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
|
464 ("\\(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
|
465 \\([^,\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
|
466 |
34dbef732b27
(compilation-error-regexp-alist): Add regexps for IBM and Cray compilers.
Roland McGrath <roland@gnu.org>
parents:
11618
diff
changeset
|
467 ;; 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
|
468 ;; 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
|
469 ;; 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
|
470 ;; 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
|
471 ("\\([^( \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
|
472 |
18619
5d7968727c67
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
18565
diff
changeset
|
473 ;; IAR Systems C Compiler: |
5d7968727c67
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
18565
diff
changeset
|
474 ;; "foo.c",3 Error[32]: Error message |
5d7968727c67
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
18565
diff
changeset
|
475 ;; "foo.c",3 Warning[32]: Error message |
5d7968727c67
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
18565
diff
changeset
|
476 ("\"\\(.*\\)\",\\([0-9]+\\)\\s-+\\(Error\\|Warning\\)\\[[0-9]+\\]:" 1 2) |
5d7968727c67
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
18565
diff
changeset
|
477 |
12767
287cc74602fa
(compilation-error-regexp-alist): Add regexp for Sun ada.
Roland McGrath <roland@gnu.org>
parents:
12256
diff
changeset
|
478 ;; Sun ada (VADS, Solaris): |
287cc74602fa
(compilation-error-regexp-alist): Add regexp for Sun ada.
Roland McGrath <roland@gnu.org>
parents:
12256
diff
changeset
|
479 ;; /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
|
480 ("\\([^, \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
|
481 |
52780f61eb76
(compilation-error-regexp-alist): Add regexp for Perl -w.
Richard M. Stallman <rms@gnu.org>
parents:
17277
diff
changeset
|
482 ;; Perl -w: |
52780f61eb76
(compilation-error-regexp-alist): Add regexp for Perl -w.
Richard M. Stallman <rms@gnu.org>
parents:
17277
diff
changeset
|
483 ;; syntax error at automake line 922, near "':'" |
25433
3141f8df24cc
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
25426
diff
changeset
|
484 ;; Perl debugging traces |
3141f8df24cc
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
25426
diff
changeset
|
485 ;; store::odrecall('File_A', 'x2') called at store.pm line 90 |
3141f8df24cc
(compilation-error-regexp-alist):
Richard M. Stallman <rms@gnu.org>
parents:
25426
diff
changeset
|
486 (".* at \\([^ \n]+\\) line \\([0-9]+\\)[,.\n]" 1 2) |
18477
270080940256
(compilation-error-regexp-alist): New item, for Oracle compiler.
Richard M. Stallman <rms@gnu.org>
parents:
18273
diff
changeset
|
487 |
270080940256
(compilation-error-regexp-alist): New item, for Oracle compiler.
Richard M. Stallman <rms@gnu.org>
parents:
18273
diff
changeset
|
488 ;; Oracle pro*c: |
270080940256
(compilation-error-regexp-alist): New item, for Oracle compiler.
Richard M. Stallman <rms@gnu.org>
parents:
18273
diff
changeset
|
489 ;; Semantic error at line 528, column 5, file erosacqdb.pc: |
270080940256
(compilation-error-regexp-alist): New item, for Oracle compiler.
Richard M. Stallman <rms@gnu.org>
parents:
18273
diff
changeset
|
490 ("Semantic error at line \\([0-9]+\\), column \\([0-9]+\\), file \\(.*\\):" |
270080940256
(compilation-error-regexp-alist): New item, for Oracle compiler.
Richard M. Stallman <rms@gnu.org>
parents:
18273
diff
changeset
|
491 3 1 2) |
18984
d2c26a873eb4
(compilation-error-regexp-alist): Add elt for EPC F90.
Richard M. Stallman <rms@gnu.org>
parents:
18619
diff
changeset
|
492 |
d2c26a873eb4
(compilation-error-regexp-alist): Add elt for EPC F90.
Richard M. Stallman <rms@gnu.org>
parents:
18619
diff
changeset
|
493 ;; EPC F90 compiler: |
d2c26a873eb4
(compilation-error-regexp-alist): Add elt for EPC F90.
Richard M. Stallman <rms@gnu.org>
parents:
18619
diff
changeset
|
494 ;; Error 24 at (2:progran.f90) : syntax error |
d2c26a873eb4
(compilation-error-regexp-alist): Add elt for EPC F90.
Richard M. Stallman <rms@gnu.org>
parents:
18619
diff
changeset
|
495 ("Error [0-9]+ at (\\([0-9]*\\):\\([^)\n]+\\))" 2 1) |
20187
0ee26e03e911
(compilation-error-regexp-alist):
Karl Heuer <kwzh@gnu.org>
parents:
20059
diff
changeset
|
496 |
25623 | 497 ;; SGI IRIX MipsPro 7.3 compilers: |
25435
5ff4e59e5f02
(compilation-error-regexp-alist): New item for SGI IRIX MipsPro compilers.
Richard M. Stallman <rms@gnu.org>
parents:
25433
diff
changeset
|
498 ;; cc-1070 cc: ERROR File = linkl.c, Line = 38 |
5ff4e59e5f02
(compilation-error-regexp-alist): New item for SGI IRIX MipsPro compilers.
Richard M. Stallman <rms@gnu.org>
parents:
25433
diff
changeset
|
499 (".*: ERROR File = \\(.+\\), Line = \\([0-9]+\\)" 1 2) |
5ff4e59e5f02
(compilation-error-regexp-alist): New item for SGI IRIX MipsPro compilers.
Richard M. Stallman <rms@gnu.org>
parents:
25433
diff
changeset
|
500 (".*: WARNING File = \\(.+\\), Line = \\([0-9]+\\)" 1 2) |
5ff4e59e5f02
(compilation-error-regexp-alist): New item for SGI IRIX MipsPro compilers.
Richard M. Stallman <rms@gnu.org>
parents:
25433
diff
changeset
|
501 |
20187
0ee26e03e911
(compilation-error-regexp-alist):
Karl Heuer <kwzh@gnu.org>
parents:
20059
diff
changeset
|
502 ;; Sun F90 error messages: |
26222 | 503 ;; cf90-113 f90comp: ERROR NSE, File = Hoved.f90, Line = 16, Column = 3 |
20187
0ee26e03e911
(compilation-error-regexp-alist):
Karl Heuer <kwzh@gnu.org>
parents:
20059
diff
changeset
|
504 (".* ERROR [a-zA-Z0-9 ]+, File = \\(.+\\), Line = \\([0-9]+\\), Column = \\([0-9]+\\)" |
0ee26e03e911
(compilation-error-regexp-alist):
Karl Heuer <kwzh@gnu.org>
parents:
20059
diff
changeset
|
505 1 2 3) |
41843
ab6cfeb406ab
(compilation-error-regexp-alist): Added regexps for RXP.
Miles Bader <miles@gnu.org>
parents:
41037
diff
changeset
|
506 |
ab6cfeb406ab
(compilation-error-regexp-alist): Added regexps for RXP.
Miles Bader <miles@gnu.org>
parents:
41037
diff
changeset
|
507 ;; RXP - GPL XML validator at http://www.cogsci.ed.ac.uk/~richard/rxp.html: |
ab6cfeb406ab
(compilation-error-regexp-alist): Added regexps for RXP.
Miles Bader <miles@gnu.org>
parents:
41037
diff
changeset
|
508 ;; Error: Mismatched end tag: expected </geroup>, got </group> |
ab6cfeb406ab
(compilation-error-regexp-alist): Added regexps for RXP.
Miles Bader <miles@gnu.org>
parents:
41037
diff
changeset
|
509 ;; in unnamed entity at line 71 char 8 of file:///home/reto/test/group.xml |
ab6cfeb406ab
(compilation-error-regexp-alist): Added regexps for RXP.
Miles Bader <miles@gnu.org>
parents:
41037
diff
changeset
|
510 ("Error:.*\n.* line \\([0-9]+\\) char \\([0-9]+\\) of file://\\(.+\\)" |
ab6cfeb406ab
(compilation-error-regexp-alist): Added regexps for RXP.
Miles Bader <miles@gnu.org>
parents:
41037
diff
changeset
|
511 3 1 2) |
ab6cfeb406ab
(compilation-error-regexp-alist): Added regexps for RXP.
Miles Bader <miles@gnu.org>
parents:
41037
diff
changeset
|
512 ;; Warning: Start tag for undeclared element geroup |
ab6cfeb406ab
(compilation-error-regexp-alist): Added regexps for RXP.
Miles Bader <miles@gnu.org>
parents:
41037
diff
changeset
|
513 ;; in unnamed entity at line 4 char 8 of file:///home/reto/test/group.xml |
ab6cfeb406ab
(compilation-error-regexp-alist): Added regexps for RXP.
Miles Bader <miles@gnu.org>
parents:
41037
diff
changeset
|
514 ("Warning:.*\n.* line \\([0-9]+\\) char \\([0-9]+\\) of file://\\(.+\\)" |
ab6cfeb406ab
(compilation-error-regexp-alist): Added regexps for RXP.
Miles Bader <miles@gnu.org>
parents:
41037
diff
changeset
|
515 3 1 2) |
418 | 516 ) |
26229
11ac69b74132
(compilation-error-regexp-alist): Recognize
Gerd Moellmann <gerd@gnu.org>
parents:
26222
diff
changeset
|
517 |
1133 | 518 "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
|
519 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
|
520 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
|
521 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
|
522 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
|
523 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
|
524 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
|
525 subexpression.") |
71 | 526 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
527 (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
|
528 '( |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
529 ;; 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
|
530 (".*: 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
|
531 ) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
532 "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
|
533 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
|
534 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
|
535 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
|
536 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
537 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
|
538 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
539 (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
|
540 '( |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
541 ;; 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
|
542 (".*: 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
|
543 ) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
544 "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
|
545 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
|
546 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
|
547 If REGEXP matches, the IDX'th subexpression gives the name of the directory |
26222 | 548 being moved from. If IDX is nil, the last directory entered \(by a line |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
549 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
|
550 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
551 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
|
552 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
553 (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
|
554 '( |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
555 ;; 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
|
556 ;; 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
|
557 ("\\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
|
558 ) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
559 "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
|
560 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
|
561 Each elt has the form (REGEXP IDX). |
26222 | 562 If REGEXP matches, the IDX'th subexpression gives the file name. This is |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
563 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
|
564 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
565 ;; 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
|
566 ;; 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
|
567 ;; 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
|
568 ;; 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
|
569 (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
|
570 '( |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
571 ) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
572 "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
|
573 Note that the match is done at the beginning of lines. |
26222 | 574 Each elt has the form (REGEXP). This alist is by default empty, but if |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
575 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
|
576 |
23263
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
577 (defcustom compilation-error-screen-columns t |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
578 "*If non-nil, column numbers in error messages are screen columns. |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
579 Otherwise they are interpreted as character positions, with |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
580 each character occupying one column. |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
581 The default is to use screen columns, which requires that the compilation |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
582 program and Emacs agree about the display width of the characters, |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
583 especially the TAB character." |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
584 :type 'boolean |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
585 :group 'compilation |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
586 :version "20.4") |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
587 |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
588 (defcustom compilation-read-command t |
26222 | 589 "*Non-nil means \\[compile] reads the compilation command to use. |
590 Otherwise, \\[compile] just uses the value of `compile-command'." | |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
591 :type 'boolean |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
592 :group 'compilation) |
5406
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
593 |
19766
0790c7dab24d
(compilation-ask-about-save): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
19616
diff
changeset
|
594 ;;;###autoload |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
595 (defcustom compilation-ask-about-save t |
26222 | 596 "*Non-nil means \\[compile] asks which buffers to save before compiling. |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
597 Otherwise, it saves all modified buffers without asking." |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
598 :type 'boolean |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
599 :group 'compilation) |
5406
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
600 |
36108
8b657bbc6608
(grep-regexp-alist): Remove the blank from
Eli Zaretskii <eliz@gnu.org>
parents:
34845
diff
changeset
|
601 ;; Note: the character class after the optional drive letter does not |
8b657bbc6608
(grep-regexp-alist): Remove the blank from
Eli Zaretskii <eliz@gnu.org>
parents:
34845
diff
changeset
|
602 ;; include a space to support file names with blanks. |
1072 | 603 (defvar grep-regexp-alist |
36108
8b657bbc6608
(grep-regexp-alist): Remove the blank from
Eli Zaretskii <eliz@gnu.org>
parents:
34845
diff
changeset
|
604 '(("\\([a-zA-Z]?:?[^:(\t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 2)) |
1072 | 605 "Regexp used to match grep hits. See `compilation-error-regexp-alist'.") |
606 | |
17242
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
607 (defvar grep-program |
18273
41496911055d
(grep-program): Comment out the use of zgrep.
Richard M. Stallman <rms@gnu.org>
parents:
17866
diff
changeset
|
608 ;; Currently zgrep has trouble. It runs egrep instead of grep, |
41496911055d
(grep-program): Comment out the use of zgrep.
Richard M. Stallman <rms@gnu.org>
parents:
17866
diff
changeset
|
609 ;; and it doesn't pass along long options right. |
41496911055d
(grep-program): Comment out the use of zgrep.
Richard M. Stallman <rms@gnu.org>
parents:
17866
diff
changeset
|
610 "grep" |
38493
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
611 ;; (if (equal (condition-case nil ; in case "zgrep" isn't in exec-path |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
612 ;; (call-process "zgrep" nil nil nil |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
613 ;; "foo" null-device) |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
614 ;; (error nil)) |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
615 ;; 1) |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
616 ;; "zgrep" |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
617 ;; "grep") |
22556
892421e6b7b4
(grep-command): Initialize to nil.
Richard M. Stallman <rms@gnu.org>
parents:
22404
diff
changeset
|
618 "The default grep program for `grep-command' and `grep-find-command'. |
892421e6b7b4
(grep-command): Initialize to nil.
Richard M. Stallman <rms@gnu.org>
parents:
22404
diff
changeset
|
619 This variable's value takes effect when `grep-compute-defaults' is called.") |
17242
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
620 |
39358
d599e4f7047f
w32 find cannot be used with `grep-find'.
Sam Steingold <sds@gnu.org>
parents:
39269
diff
changeset
|
621 (defvar find-program "find" |
d599e4f7047f
w32 find cannot be used with `grep-find'.
Sam Steingold <sds@gnu.org>
parents:
39269
diff
changeset
|
622 "The default find program for `grep-find-command'. |
d599e4f7047f
w32 find cannot be used with `grep-find'.
Sam Steingold <sds@gnu.org>
parents:
39269
diff
changeset
|
623 This variable's value takes effect when `grep-compute-defaults' is called.") |
d599e4f7047f
w32 find cannot be used with `grep-find'.
Sam Steingold <sds@gnu.org>
parents:
39269
diff
changeset
|
624 |
22556
892421e6b7b4
(grep-command): Initialize to nil.
Richard M. Stallman <rms@gnu.org>
parents:
22404
diff
changeset
|
625 (defvar grep-find-use-xargs nil |
17242
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
626 "Whether \\[grep-find] uses the `xargs' utility by default. |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
627 |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
628 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
|
629 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
|
630 |
22556
892421e6b7b4
(grep-command): Initialize to nil.
Richard M. Stallman <rms@gnu.org>
parents:
22404
diff
changeset
|
631 This variable's value takes effect when `grep-compute-defaults' is called.") |
17242
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
632 |
569 | 633 ;;;###autoload |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
634 (defcustom compilation-search-path '(nil) |
569 | 635 "*List of directories to search for source files named in error messages. |
418 | 636 Elements should be directory names, not file names of directories. |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
637 nil as an element means to try the default directory." |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
638 :type '(repeat (choice (const :tag "Default" nil) |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
639 (string :tag "Directory"))) |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
640 :group 'compilation) |
71 | 641 |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
642 (defcustom compile-command "make -k " |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
643 "*Last shell command used to do a compilation; default for next compilation. |
71 | 644 |
645 Sometimes it is useful for files to supply local values for this variable. | |
646 You might also use mode hooks to specify it in certain modes, like this: | |
647 | |
19007
1606d5205bbc
(compile-command): More doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18987
diff
changeset
|
648 (add-hook 'c-mode-hook |
1606d5205bbc
(compile-command): More doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18987
diff
changeset
|
649 (lambda () |
1606d5205bbc
(compile-command): More doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18987
diff
changeset
|
650 (unless (or (file-exists-p \"makefile\") |
1606d5205bbc
(compile-command): More doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18987
diff
changeset
|
651 (file-exists-p \"Makefile\")) |
38493
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
652 (set (make-local-variable 'compile-command) |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
653 (concat \"make -k \" |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
654 (file-name-sans-extension buffer-file-name))))))" |
17639
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
655 :type 'string |
5339baa0a334
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17623
diff
changeset
|
656 :group 'compilation) |
71 | 657 |
418 | 658 (defvar compilation-directory-stack nil |
1133 | 659 "Stack of previous directories for `compilation-leave-directory-regexp'. |
21930
b84bfe98263d
* progmodes/compile.el (compilation-directory-stack): Doc fix.
Andreas Schwab <schwab@suse.de>
parents:
21224
diff
changeset
|
660 The last element is the directory the compilation was started in.") |
418 | 661 |
12920
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
662 (defvar compilation-exit-message-function nil "\ |
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
663 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
|
664 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
|
665 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
|
666 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
|
667 |
864
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
668 ;; History of compile commands. |
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
669 (defvar compile-history nil) |
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
670 ;; History of grep commands. |
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
671 (defvar grep-history nil) |
17242
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
672 (defvar grep-find-history nil) |
864
fe5f6b7c9727
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
673 |
17056
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
674 (defun compilation-mode-font-lock-keywords () |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
675 "Return expressions to highlight in Compilation mode." |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
676 (nconc |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
677 ;; |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
678 ;; Compiler warning/error lines. |
18984
d2c26a873eb4
(compilation-error-regexp-alist): Add elt for EPC F90.
Richard M. Stallman <rms@gnu.org>
parents:
18619
diff
changeset
|
679 (mapcar (function |
d2c26a873eb4
(compilation-error-regexp-alist): Add elt for EPC F90.
Richard M. Stallman <rms@gnu.org>
parents:
18619
diff
changeset
|
680 (lambda (item) |
d2c26a873eb4
(compilation-error-regexp-alist): Add elt for EPC F90.
Richard M. Stallman <rms@gnu.org>
parents:
18619
diff
changeset
|
681 ;; Prepend "^", adjusting FILE-IDX and LINE-IDX accordingly. |
20001
75f1bdf2c886
(compilation-mode-font-lock-keywords): Font-lock column numbers.
Karl Heuer <kwzh@gnu.org>
parents:
20000
diff
changeset
|
682 (let ((file-idx (nth 1 item)) |
75f1bdf2c886
(compilation-mode-font-lock-keywords): Font-lock column numbers.
Karl Heuer <kwzh@gnu.org>
parents:
20000
diff
changeset
|
683 (line-idx (nth 2 item)) |
75f1bdf2c886
(compilation-mode-font-lock-keywords): Font-lock column numbers.
Karl Heuer <kwzh@gnu.org>
parents:
20000
diff
changeset
|
684 (col-idx (nth 3 item)) |
75f1bdf2c886
(compilation-mode-font-lock-keywords): Font-lock column numbers.
Karl Heuer <kwzh@gnu.org>
parents:
20000
diff
changeset
|
685 keyword) |
75f1bdf2c886
(compilation-mode-font-lock-keywords): Font-lock column numbers.
Karl Heuer <kwzh@gnu.org>
parents:
20000
diff
changeset
|
686 (when (numberp col-idx) |
75f1bdf2c886
(compilation-mode-font-lock-keywords): Font-lock column numbers.
Karl Heuer <kwzh@gnu.org>
parents:
20000
diff
changeset
|
687 (setq keyword |
75f1bdf2c886
(compilation-mode-font-lock-keywords): Font-lock column numbers.
Karl Heuer <kwzh@gnu.org>
parents:
20000
diff
changeset
|
688 (cons (list (1+ col-idx) 'font-lock-type-face nil t) |
75f1bdf2c886
(compilation-mode-font-lock-keywords): Font-lock column numbers.
Karl Heuer <kwzh@gnu.org>
parents:
20000
diff
changeset
|
689 keyword))) |
18984
d2c26a873eb4
(compilation-error-regexp-alist): Add elt for EPC F90.
Richard M. Stallman <rms@gnu.org>
parents:
18619
diff
changeset
|
690 (when (numberp line-idx) |
d2c26a873eb4
(compilation-error-regexp-alist): Add elt for EPC F90.
Richard M. Stallman <rms@gnu.org>
parents:
18619
diff
changeset
|
691 (setq keyword |
d2c26a873eb4
(compilation-error-regexp-alist): Add elt for EPC F90.
Richard M. Stallman <rms@gnu.org>
parents:
18619
diff
changeset
|
692 (cons (list (1+ line-idx) 'font-lock-variable-name-face) |
d2c26a873eb4
(compilation-error-regexp-alist): Add elt for EPC F90.
Richard M. Stallman <rms@gnu.org>
parents:
18619
diff
changeset
|
693 keyword))) |
d2c26a873eb4
(compilation-error-regexp-alist): Add elt for EPC F90.
Richard M. Stallman <rms@gnu.org>
parents:
18619
diff
changeset
|
694 (when (numberp file-idx) |
d2c26a873eb4
(compilation-error-regexp-alist): Add elt for EPC F90.
Richard M. Stallman <rms@gnu.org>
parents:
18619
diff
changeset
|
695 (setq keyword |
d2c26a873eb4
(compilation-error-regexp-alist): Add elt for EPC F90.
Richard M. Stallman <rms@gnu.org>
parents:
18619
diff
changeset
|
696 (cons (list (1+ file-idx) 'font-lock-warning-face) |
d2c26a873eb4
(compilation-error-regexp-alist): Add elt for EPC F90.
Richard M. Stallman <rms@gnu.org>
parents:
18619
diff
changeset
|
697 keyword))) |
d2c26a873eb4
(compilation-error-regexp-alist): Add elt for EPC F90.
Richard M. Stallman <rms@gnu.org>
parents:
18619
diff
changeset
|
698 (cons (concat "^\\(" (nth 0 item) "\\)") keyword)))) |
17056
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
699 compilation-error-regexp-alist) |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
700 (list |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
701 ;; |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
702 ;; Compiler output lines. Recognize `make[n]:' lines too. |
17056
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
703 '("^\\([A-Za-z_0-9/\.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:" |
0f7992bc968f
Rewrite Font Lock support.
Simon Marshall <simon@gnu.org>
parents:
17054
diff
changeset
|
704 (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
|
705 )) |
12920
905444ab8d92
(compilation-exit-message-function): New variable.
Roland McGrath <roland@gnu.org>
parents:
12767
diff
changeset
|
706 |
418 | 707 ;;;###autoload |
71 | 708 (defun compile (command) |
709 "Compile the program including the current buffer. Default: run `make'. | |
710 Runs COMMAND, a shell command, in a separate process asynchronously | |
711 with output going to the buffer `*compilation*'. | |
418 | 712 |
71 | 713 You can then use the command \\[next-error] to find the next error message |
714 and move to the source code that caused it. | |
715 | |
9888
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
716 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
|
717 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
|
718 |
71 | 719 To run more than one compilation at once, start one and rename the |
418 | 720 \`*compilation*' buffer to some other name with \\[rename-buffer]. |
721 Then start the next one. | |
722 | |
723 The name used for the buffer is actually whatever is returned by | |
724 the function in `compilation-buffer-name-function', so you can set that | |
725 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
|
726 (interactive |
9888
9d7972f4657c
(compile): With prefix arg, prompt even if (not compilation-read-command).
Roland McGrath <roland@gnu.org>
parents:
9868
diff
changeset
|
727 (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
|
728 (list (read-from-minibuffer "Compile command: " |
38493
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
729 (eval compile-command) nil nil |
5406
d9a58377567c
(compilation-read-command, compilation-ask-about-save): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
5260
diff
changeset
|
730 '(compile-history . 1))) |
38493
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
731 (list (eval compile-command)))) |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
732 (unless (equal command (eval compile-command)) |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
733 (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
|
734 (save-some-buffers (not compilation-ask-about-save) nil) |
38493
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
735 (compile-internal command "No more errors")) |
71 | 736 |
38493
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
737 ;; run compile with the default command line |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
738 (defun recompile () |
41037
5dd37d315c33
(recompile): Use compilation-arguments if set, so as to be able to M-x
Richard M. Stallman <rms@gnu.org>
parents:
40902
diff
changeset
|
739 "Re-compile the program including the current buffer. |
5dd37d315c33
(recompile): Use compilation-arguments if set, so as to be able to M-x
Richard M. Stallman <rms@gnu.org>
parents:
40902
diff
changeset
|
740 If this is run in a compilation-mode buffer, re-use the arguments from the |
5dd37d315c33
(recompile): Use compilation-arguments if set, so as to be able to M-x
Richard M. Stallman <rms@gnu.org>
parents:
40902
diff
changeset
|
741 original use. Otherwise, it recompiles using `compile-command'." |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
742 (interactive) |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
743 (save-some-buffers (not compilation-ask-about-save) nil) |
41037
5dd37d315c33
(recompile): Use compilation-arguments if set, so as to be able to M-x
Richard M. Stallman <rms@gnu.org>
parents:
40902
diff
changeset
|
744 (apply 'compile-internal (or compilation-arguments |
5dd37d315c33
(recompile): Use compilation-arguments if set, so as to be able to M-x
Richard M. Stallman <rms@gnu.org>
parents:
40902
diff
changeset
|
745 `(,(eval compile-command) "No more errors")))) |
12256
e50e5d419c51
(grep-null-device): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
12219
diff
changeset
|
746 |
17054
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
747 (defun grep-process-setup () |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
748 "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
|
749 (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
|
750 (lambda (status code msg) |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
751 (if (eq status 'exit) |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
752 (cond ((zerop code) |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
753 '("finished (matches found)\n" . "matched")) |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
754 ((= code 1) |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
755 '("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
|
756 (t |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
757 (cons msg code))) |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
758 (cons msg code))))) |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
759 |
418 | 760 ;;;###autoload |
71 | 761 (defun grep (command-args) |
762 "Run grep, with user-specified args, and collect output in a buffer. | |
22966 | 763 While grep runs asynchronously, you can use \\[next-error] (M-x next-error), |
764 or \\<compilation-minor-mode-map>\\[compile-goto-error] in the grep \ | |
765 output buffer, to go to the lines | |
766 where grep found matches. | |
418 | 767 |
30878
13a1a0ec31e5
(grep): Provide a default set of files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30688
diff
changeset
|
768 This command uses a special history list for its COMMAND-ARGS, so you can |
22208
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
769 easily repeat a grep command. |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
770 |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
771 A prefix argument says to default the argument based upon the current |
22307 | 772 tag the cursor is over, substituting it into the last grep command |
773 in the grep command history (or into `grep-command' | |
774 if that history list is empty)." | |
71 | 775 (interactive |
22307 | 776 (let (grep-default (arg current-prefix-arg)) |
39599
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
777 (unless (and grep-command |
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
778 (or (not grep-use-null-device) (eq grep-use-null-device t))) |
22556
892421e6b7b4
(grep-command): Initialize to nil.
Richard M. Stallman <rms@gnu.org>
parents:
22404
diff
changeset
|
779 (grep-compute-defaults)) |
22307 | 780 (when arg |
33493
23d500c81118
(grep): `tag-default' can be nil.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32195
diff
changeset
|
781 (let ((tag-default |
23d500c81118
(grep): `tag-default' can be nil.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32195
diff
changeset
|
782 (funcall (or find-tag-default-function |
23d500c81118
(grep): `tag-default' can be nil.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32195
diff
changeset
|
783 (get major-mode 'find-tag-default-function) |
23d500c81118
(grep): `tag-default' can be nil.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32195
diff
changeset
|
784 ;; We use grep-tag-default instead of |
23d500c81118
(grep): `tag-default' can be nil.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32195
diff
changeset
|
785 ;; find-tag-default, to avoid loading etags. |
23d500c81118
(grep): `tag-default' can be nil.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32195
diff
changeset
|
786 'grep-tag-default)))) |
22307 | 787 (setq grep-default (or (car grep-history) grep-command)) |
22208
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
788 ;; Replace the thing matching for with that around cursor |
30878
13a1a0ec31e5
(grep): Provide a default set of files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30688
diff
changeset
|
789 (when (string-match "[^ ]+\\s +\\(-[^ ]+\\s +\\)*\\(\"[^\"]+\"\\|[^ ]+\\)\\(\\s-+\\S-+\\)?" grep-default) |
13a1a0ec31e5
(grep): Provide a default set of files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30688
diff
changeset
|
790 (unless (or (match-beginning 3) (not (stringp buffer-file-name))) |
13a1a0ec31e5
(grep): Provide a default set of files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30688
diff
changeset
|
791 (setq grep-default (concat grep-default "*." |
13a1a0ec31e5
(grep): Provide a default set of files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30688
diff
changeset
|
792 (file-name-extension buffer-file-name)))) |
33493
23d500c81118
(grep): `tag-default' can be nil.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32195
diff
changeset
|
793 (setq grep-default (replace-match (or tag-default "") |
23d500c81118
(grep): `tag-default' can be nil.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32195
diff
changeset
|
794 t t grep-default 2))))) |
22208
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
795 (list (read-from-minibuffer "Run grep (like this): " |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
796 (or grep-default grep-command) |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
797 nil nil 'grep-history)))) |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
798 |
17054
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
799 ;; 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
|
800 ;; 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
|
801 (let* ((compilation-process-setup-function 'grep-process-setup) |
39599
56800ba6a856
(grep-use-null-device): New variable.
Miles Bader <miles@gnu.org>
parents:
39358
diff
changeset
|
802 (buf (compile-internal (if (and grep-use-null-device null-device) |
22404
9862ae4f05a7
(grep-null-device): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22307
diff
changeset
|
803 (concat command-args " " null-device) |
17242
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
804 command-args) |
17054
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
805 "No more grep hits" "grep" |
84414e5f194d
(grep-process-setup): New function, sets up the
Eli Zaretskii <eliz@gnu.org>
parents:
16997
diff
changeset
|
806 ;; 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
|
807 nil grep-regexp-alist))))) |
71 | 808 |
22208
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
809 ;; This is a copy of find-tag-default from etags.el. |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
810 (defun grep-tag-default () |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
811 (save-excursion |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
812 (while (looking-at "\\sw\\|\\s_") |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
813 (forward-char 1)) |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
814 (when (or (re-search-backward "\\sw\\|\\s_" |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
815 (save-excursion (beginning-of-line) (point)) |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
816 t) |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
817 (re-search-forward "\\(\\sw\\|\\s_\\)+" |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
818 (save-excursion (end-of-line) (point)) |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
819 t)) |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
820 (goto-char (match-end 0)) |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
821 (buffer-substring (point) |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
822 (progn (forward-sexp -1) |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
823 (while (looking-at "\\s'") |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
824 (forward-char 1)) |
5b05d45bfbbf
(grep-tag-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21930
diff
changeset
|
825 (point)))))) |
17242
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
826 |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
827 ;;;###autoload |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
828 (defun grep-find (command-args) |
26222 | 829 "Run grep via find, with user-specified args COMMAND-ARGS. |
830 Collect output in a buffer. | |
17242
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
831 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
|
832 to find the text that grep hits refer to. |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
833 |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
834 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
|
835 easily repeat a find command." |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
836 (interactive |
22556
892421e6b7b4
(grep-command): Initialize to nil.
Richard M. Stallman <rms@gnu.org>
parents:
22404
diff
changeset
|
837 (progn |
892421e6b7b4
(grep-command): Initialize to nil.
Richard M. Stallman <rms@gnu.org>
parents:
22404
diff
changeset
|
838 (unless grep-find-command |
892421e6b7b4
(grep-command): Initialize to nil.
Richard M. Stallman <rms@gnu.org>
parents:
22404
diff
changeset
|
839 (grep-compute-defaults)) |
892421e6b7b4
(grep-command): Initialize to nil.
Richard M. Stallman <rms@gnu.org>
parents:
22404
diff
changeset
|
840 (list (read-from-minibuffer "Run find (like this): " |
892421e6b7b4
(grep-command): Initialize to nil.
Richard M. Stallman <rms@gnu.org>
parents:
22404
diff
changeset
|
841 grep-find-command nil nil |
892421e6b7b4
(grep-command): Initialize to nil.
Richard M. Stallman <rms@gnu.org>
parents:
22404
diff
changeset
|
842 'grep-find-history)))) |
22404
9862ae4f05a7
(grep-null-device): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22307
diff
changeset
|
843 (let ((null-device nil)) ; see grep |
17242
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
844 (grep command-args))) |
7dd0da53476f
(grep-program): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17057
diff
changeset
|
845 |
45593
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
846 (defun grep-expand-command-macros (command &optional regexp files dir excl case-fold) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
847 "Patch grep COMMAND replacing <D>, etc." |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
848 (setq command |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
849 (replace-regexp-in-string "<D>" |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
850 (or dir ".") command t t)) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
851 (setq command |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
852 (replace-regexp-in-string "<X>" |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
853 (or excl "") command t t)) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
854 (setq command |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
855 (replace-regexp-in-string "<F>" |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
856 (or files "") command t t)) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
857 (setq command |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
858 (replace-regexp-in-string "<C>" |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
859 (if case-fold "-i" "") command t t)) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
860 (setq command |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
861 (replace-regexp-in-string "<R>" |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
862 (or regexp "") command t t)) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
863 command) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
864 |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
865 (defvar grep-tree-last-regexp "") |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
866 (defvar grep-tree-last-files (car (car grep-tree-files-aliases))) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
867 |
46344 | 868 ;;;###autoload |
45829 | 869 (defun grep-tree (regexp files dir &optional subdirs) |
870 "Grep for REGEXP in FILES in directory tree rooted at DIR. | |
45593
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
871 Collect output in a buffer. |
45829 | 872 Interactively, prompt separately for each search parameter. |
873 With prefix arg, reuse previous REGEXP. | |
874 The search is limited to file names matching shell pattern FILES. | |
875 FILES may use abbreviations defined in `grep-tree-files-aliases', e.g. | |
876 entering `ch' is equivalent to `*.[ch]'. | |
877 | |
45593
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
878 While find runs asynchronously, you can use the \\[next-error] command |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
879 to find the text that grep hits refer to. |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
880 |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
881 This command uses a special history list for its arguments, so you can |
45829 | 882 easily repeat a find command. |
883 | |
884 When used non-interactively, optional arg SUBDIRS limits the search to | |
885 those sub directories of DIR." | |
45593
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
886 (interactive |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
887 (let* ((regexp |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
888 (if current-prefix-arg |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
889 grep-tree-last-regexp |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
890 (let* ((default (current-word)) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
891 (spec (read-string |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
892 (concat "Search for" |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
893 (if (and default (> (length default) 0)) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
894 (format " (default %s): " default) ": "))))) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
895 (if (equal spec "") default spec)))) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
896 (files |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
897 (read-string (concat "Search for \"" regexp "\" in files (default " grep-tree-last-files "): "))) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
898 (dir |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
899 (read-directory-name "Base directory: " nil default-directory t))) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
900 (list regexp files dir))) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
901 (unless grep-tree-command |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
902 (grep-compute-defaults)) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
903 (unless (and (stringp files) (> (length files) 0)) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
904 (setq files grep-tree-last-files)) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
905 (when files |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
906 (setq grep-tree-last-files files) |
46344 | 907 (let ((mf (assoc files grep-tree-files-aliases))) |
45593
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
908 (if mf |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
909 (setq files (cdr mf))))) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
910 (let ((command-args (grep-expand-command-macros |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
911 grep-tree-command |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
912 (setq grep-tree-last-regexp regexp) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
913 (and files (concat "-name '" files "'")) |
45829 | 914 (if subdirs |
915 (if (stringp subdirs) | |
916 subdirs | |
917 (mapconcat 'identity subdirs " ")) | |
918 nil) ;; we change default-directory to dir | |
45593
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
919 (and grep-tree-ignore-CVS-directories "-path '*/CVS' -prune -o ") |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
920 grep-tree-ignore-case)) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
921 (default-directory dir) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
922 (null-device nil)) ; see grep |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
923 (grep command-args))) |
996be238a122
(grep-tree-command, grep-tree-files-aliases)
Kim F. Storm <storm@cua.dk>
parents:
45582
diff
changeset
|
924 |
20877
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
925 (defcustom compilation-scroll-output nil |
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
926 "*Non-nil to scroll the *compilation* buffer window as output appears. |
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
927 |
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
928 Setting it causes the compilation-mode commands to put point at the |
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
929 end of their output window so that the end of the output is always |
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
930 visible rather than the begining." |
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
931 :type 'boolean |
22291
7c8d8ad75d43
(compilation-scroll-output): Correct the :version
Karl Heuer <kwzh@gnu.org>
parents:
22208
diff
changeset
|
932 :version "20.3" |
20877
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
933 :group 'compilation) |
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
934 |
39602
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
935 |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
936 (defun compilation-buffer-name (mode-name name-function) |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
937 "Return the name of a compilation buffer to use. |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
938 If NAME-FUNCTION is non-nil, call it with one argument MODE-NAME |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
939 to determine the buffer name. |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
940 Likewise if `compilation-buffer-name-function' is non-nil. |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
941 If current buffer is in Compilation mode for the same mode name |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
942 return the name of the current buffer, so that it gets reused. |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
943 Otherwise, construct a buffer name from MODE-NAME." |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
944 (cond (name-function |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
945 (funcall name-function mode-name)) |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
946 (compilation-buffer-name-function |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
947 (funcall compilation-buffer-name-function mode-name)) |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
948 ((and (eq major-mode 'compilation-mode) |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
949 (equal mode-name (nth 2 compilation-arguments))) |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
950 (buffer-name)) |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
951 (t |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
952 (concat "*" (downcase mode-name) "*")))) |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
953 |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
954 |
71 | 955 (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
|
956 &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
|
957 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
|
958 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
|
959 file-regexp-alist nomessage-regexp-alist) |
71 | 960 "Run compilation command COMMAND (low level interface). |
961 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
|
962 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
|
963 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
|
964 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
|
965 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
|
966 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
|
967 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
|
968 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
|
969 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
|
970 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
|
971 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
|
972 \`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
|
973 \`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
|
974 \`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
|
975 \ 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
|
976 For arg 7-10 a value `t' means an empty alist. |
894 | 977 |
978 Returns the compilation buffer created." | |
418 | 979 (let (outbuf) |
71 | 980 (save-excursion |
418 | 981 (or name-of-mode |
982 (setq name-of-mode "Compilation")) | |
983 (setq outbuf | |
39602
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
984 (get-buffer-create (compilation-buffer-name name-of-mode |
8c4c4c89b007
(compilation-buffer-name): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
39599
diff
changeset
|
985 name-function))) |
71 | 986 (set-buffer outbuf) |
418 | 987 (let ((comp-proc (get-buffer-process (current-buffer)))) |
988 (if comp-proc | |
989 (if (or (not (eq (process-status comp-proc) 'run)) | |
990 (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
|
991 (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
|
992 name-of-mode))) |
418 | 993 (condition-case () |
994 (progn | |
995 (interrupt-process comp-proc) | |
996 (sit-for 1) | |
997 (delete-process comp-proc)) | |
998 (error nil)) | |
999 (error "Cannot have two processes in `%s' at once" | |
1000 (buffer-name)) | |
1001 ))) | |
1002 ;; In case the compilation buffer is current, make sure we get the global | |
1003 ;; values of compilation-error-regexp-alist, etc. | |
1004 (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
|
1005 (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
|
1006 (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
|
1007 (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
|
1008 (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
|
1009 (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
|
1010 (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
|
1011 (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
|
1012 (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
|
1013 (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
|
1014 (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
|
1015 (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
|
1016 (let ((thisdir default-directory) |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
1017 outwin) |
418 | 1018 (save-excursion |
1019 ;; Clear out the compilation buffer and make it writable. | |
1020 ;; Change its default-directory to the directory where the compilation | |
1021 ;; will happen, and insert a `cd' command to indicate this. | |
1022 (set-buffer outbuf) | |
1023 (setq buffer-read-only nil) | |
11618
9702de178097
(compile-internal): Disable undo before erasing
Richard M. Stallman <rms@gnu.org>
parents:
11359
diff
changeset
|
1024 (buffer-disable-undo (current-buffer)) |
418 | 1025 (erase-buffer) |
11618
9702de178097
(compile-internal): Disable undo before erasing
Richard M. Stallman <rms@gnu.org>
parents:
11359
diff
changeset
|
1026 (buffer-enable-undo (current-buffer)) |
418 | 1027 (setq default-directory thisdir) |
1028 (insert "cd " thisdir "\n" command "\n") | |
1029 (set-buffer-modified-p nil)) | |
1030 ;; If we're already in the compilation buffer, go to the end | |
1031 ;; of the buffer, so point will track the compilation output. | |
1032 (if (eq outbuf (current-buffer)) | |
1033 (goto-char (point-max))) | |
1034 ;; Pop up the compilation buffer. | |
28495
6452df59183b
(compile-internal): Display the compilation
Gerd Moellmann <gerd@gnu.org>
parents:
26990
diff
changeset
|
1035 (setq outwin (display-buffer outbuf nil t)) |
3514
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
1036 (save-excursion |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
1037 (set-buffer outbuf) |
21930
b84bfe98263d
* progmodes/compile.el (compilation-directory-stack): Doc fix.
Andreas Schwab <schwab@suse.de>
parents:
21224
diff
changeset
|
1038 (compilation-mode name-of-mode) |
38493
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
1039 ;; In what way is it non-ergonomic ? -stef |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
1040 ;; (toggle-read-only 1) ;;; Non-ergonomic. |
3514
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
1041 (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
|
1042 (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
|
1043 (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
|
1044 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
|
1045 (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
|
1046 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
|
1047 (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
|
1048 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
|
1049 (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
|
1050 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
|
1051 (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
|
1052 nomessage-regexp-alist) |
17866
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
1053 (set (make-local-variable 'compilation-arguments) |
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
1054 (list command error-message |
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
1055 name-of-mode parser |
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
1056 error-regexp-alist name-function |
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
1057 enter-regexp-alist leave-regexp-alist |
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
1058 file-regexp-alist nomessage-regexp-alist)) |
20877
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
1059 ;; This proves a good idea if the buffer's going to scroll |
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
1060 ;; with lazy-lock on. |
29121
acb056d2e9d9
(compile-internal): Style typo.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29078
diff
changeset
|
1061 (set (make-local-variable 'lazy-lock-defer-on-scrolling) t) |
3514
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
1062 (setq default-directory thisdir |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
1063 compilation-directory-stack (list default-directory)) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
1064 (set-window-start outwin (point-min)) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
1065 (or (eq outwin (selected-window)) |
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
1066 (set-window-point outwin (point-min))) |
8483
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
1067 (compilation-set-window-height outwin) |
16985
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
1068 (if compilation-process-setup-function |
b0d8e7c0f906
* (compilation-process-setup-function): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
16950
diff
changeset
|
1069 (funcall compilation-process-setup-function)) |
3514
7a3e241a2917
(compile-internal): Alter current buffer only temporarily.
Richard M. Stallman <rms@gnu.org>
parents:
3147
diff
changeset
|
1070 ;; Start the compilation. |
5456
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
1071 (if (fboundp 'start-process) |
42408
f8c910bc4ca1
(compile-internal): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
42341
diff
changeset
|
1072 (let* ((process-environment |
f8c910bc4ca1
(compile-internal): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
42341
diff
changeset
|
1073 (append |
f8c910bc4ca1
(compile-internal): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
42341
diff
changeset
|
1074 (if (and (boundp 'system-uses-terminfo) |
f8c910bc4ca1
(compile-internal): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
42341
diff
changeset
|
1075 system-uses-terminfo) |
f8c910bc4ca1
(compile-internal): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
42341
diff
changeset
|
1076 (list "TERM=dumb" "TERMCAP=" |
f8c910bc4ca1
(compile-internal): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
42341
diff
changeset
|
1077 (format "COLUMNS=%d" (window-width))) |
f8c910bc4ca1
(compile-internal): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
42341
diff
changeset
|
1078 (list "TERM=emacs" |
f8c910bc4ca1
(compile-internal): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
42341
diff
changeset
|
1079 (format "TERMCAP=emacs:co#%d:tc=unknown:" |
f8c910bc4ca1
(compile-internal): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
42341
diff
changeset
|
1080 (window-width)))) |
f8c910bc4ca1
(compile-internal): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
42341
diff
changeset
|
1081 ;; Set the EMACS variable, but |
f8c910bc4ca1
(compile-internal): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
42341
diff
changeset
|
1082 ;; don't override users' setting of $EMACS. |
f8c910bc4ca1
(compile-internal): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
42341
diff
changeset
|
1083 (if (getenv "EMACS") |
f8c910bc4ca1
(compile-internal): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
42341
diff
changeset
|
1084 process-environment |
f8c910bc4ca1
(compile-internal): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
42341
diff
changeset
|
1085 (cons "EMACS=t" process-environment)))) |
8810
6ca3e0d3b7ca
(compile-internal): Set EMACS=t in process-environment.
Richard M. Stallman <rms@gnu.org>
parents:
8795
diff
changeset
|
1086 (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
|
1087 outbuf |
6ca3e0d3b7ca
(compile-internal): Set EMACS=t in process-environment.
Richard M. Stallman <rms@gnu.org>
parents:
8795
diff
changeset
|
1088 command))) |
5456
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
1089 (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
|
1090 (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
|
1091 (set-marker (process-mark proc) (point) outbuf) |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
1092 (setq compilation-in-progress |
5456
b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
Richard M. Stallman <rms@gnu.org>
parents:
5406
diff
changeset
|
1093 (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
|
1094 ;; No asynchronous processes available. |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1095 (message "Executing `%s'..." command) |
13819
57cd7ef01dc7
(compile-internal): On systems with no asynchronous
Richard M. Stallman <rms@gnu.org>
parents:
13755
diff
changeset
|
1096 ;; 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
|
1097 (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
|
1098 (force-mode-line-update) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1099 (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
|
1100 (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
|
1101 command))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1102 (cond ((numberp status) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1103 (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
|
1104 (if (zerop status) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1105 "finished\n" |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1106 (format "\ |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1107 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
|
1108 status)))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1109 ((stringp status) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1110 (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
|
1111 (concat status "\n"))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1112 (t |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1113 (compilation-handle-exit 'bizarre status status)))) |
20877
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
1114 (message "Executing `%s'...done" command))) |
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
1115 (if compilation-scroll-output |
24326
0c8191e60c80
(compile-internal): Use save-selected-window.
Richard M. Stallman <rms@gnu.org>
parents:
24288
diff
changeset
|
1116 (save-selected-window |
20877
4b22b9a5bd8e
(compilation-scroll-output): New variable.
Dave Love <fx@gnu.org>
parents:
20187
diff
changeset
|
1117 (select-window outwin) |
24326
0c8191e60c80
(compile-internal): Use save-selected-window.
Richard M. Stallman <rms@gnu.org>
parents:
24288
diff
changeset
|
1118 (goto-char (point-max))))) |
418 | 1119 ;; Make it so the next C-x ` will use this buffer. |
1120 (setq compilation-last-buffer outbuf))) | |
71 | 1121 |
8483
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
1122 (defun compilation-set-window-height (window) |
26222 | 1123 "Set the height of WINDOW according to `compilation-window-height'." |
8483
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
1124 (and compilation-window-height |
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
1125 (= (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
|
1126 ;; 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
|
1127 ;; don't change its height. |
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
1128 (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
|
1129 ;; 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
|
1130 ;; 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
|
1131 (save-excursion |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
1132 (let ((w (selected-window))) |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
1133 (unwind-protect |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
1134 (progn |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
1135 (select-window window) |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
1136 (enlarge-window (- compilation-window-height |
593457877265
(compilation-set-window-height): Add save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
8483
diff
changeset
|
1137 (window-height)))) |
40195
dbb68d0ddad1
(compilation-set-window-height): Select
Gerd Moellmann <gerd@gnu.org>
parents:
39835
diff
changeset
|
1138 ;; The enlarge-window above may have deleted W, if |
dbb68d0ddad1
(compilation-set-window-height): Select
Gerd Moellmann <gerd@gnu.org>
parents:
39835
diff
changeset
|
1139 ;; compilation-window-height is large enough. |
dbb68d0ddad1
(compilation-set-window-height): Select
Gerd Moellmann <gerd@gnu.org>
parents:
39835
diff
changeset
|
1140 (when (window-live-p w) |
dbb68d0ddad1
(compilation-set-window-height): Select
Gerd Moellmann <gerd@gnu.org>
parents:
39835
diff
changeset
|
1141 (select-window w))))))) |
8483
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
1142 |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1143 (defvar compilation-minor-mode-map |
71 | 1144 (let ((map (make-sparse-keymap))) |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
1145 (define-key map [mouse-2] 'compile-mouse-goto-error) |
71 | 1146 (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
|
1147 (define-key map "\C-m" 'compile-goto-error) |
418 | 1148 (define-key map "\C-c\C-k" 'kill-compilation) |
894 | 1149 (define-key map "\M-n" 'compilation-next-error) |
1150 (define-key map "\M-p" 'compilation-previous-error) | |
946 | 1151 (define-key map "\M-{" 'compilation-previous-file) |
1152 (define-key map "\M-}" 'compilation-next-file) | |
71 | 1153 map) |
2760
1c7595e3089b
(Setting minor-mode-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
2603
diff
changeset
|
1154 "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
|
1155 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1156 (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
|
1157 (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
|
1158 (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
|
1159 (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
|
1160 (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
|
1161 (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
|
1162 (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
|
1163 (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
|
1164 ;; 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
|
1165 (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
|
1166 (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
|
1167 (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
|
1168 '("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
|
1169 (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
|
1170 '("----" . nil)) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1171 (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
|
1172 '("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
|
1173 (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
|
1174 '("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
|
1175 (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
|
1176 '("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
|
1177 map) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1178 "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
|
1179 |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1180 (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
|
1181 (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
|
1182 (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
|
1183 (define-key map "\^?" 'scroll-down) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1184 ;; Set up the menu-bar |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1185 (define-key map [menu-bar compilation-menu] |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1186 (cons "Compile" (make-sparse-keymap "Compile"))) |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1187 |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1188 (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
|
1189 '("Stop Compilation" . kill-compilation)) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1190 (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
|
1191 '("----" . nil)) |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1192 (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
|
1193 '("First Error" . first-error)) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1194 (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
|
1195 '("Previous Error" . previous-error)) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1196 (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
|
1197 '("Next Error" . next-error)) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1198 (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
|
1199 '("----" . nil)) |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1200 (define-key map [menu-bar compilation-menu compilation-mode-grep] |
20000
ccccaf435fdd
(compilation-mode-map): Use more meaningful menu name.
Karl Heuer <kwzh@gnu.org>
parents:
19887
diff
changeset
|
1201 '("Search Files (grep)" . grep)) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1202 (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
|
1203 '("Recompile" . recompile)) |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1204 (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
|
1205 '("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
|
1206 map) |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1207 "Keymap for compilation log buffers. |
2760
1c7595e3089b
(Setting minor-mode-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
2603
diff
changeset
|
1208 `compilation-minor-mode-map' is a cdr of this.") |
71 | 1209 |
17653
b7810d4fb620
(compilation-mode): Add a mode-class property.
Richard M. Stallman <rms@gnu.org>
parents:
17639
diff
changeset
|
1210 (put 'compilation-mode 'mode-class 'special) |
b7810d4fb620
(compilation-mode): Add a mode-class property.
Richard M. Stallman <rms@gnu.org>
parents:
17639
diff
changeset
|
1211 |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
1212 ;;;###autoload |
21930
b84bfe98263d
* progmodes/compile.el (compilation-directory-stack): Doc fix.
Andreas Schwab <schwab@suse.de>
parents:
21224
diff
changeset
|
1213 (defun compilation-mode (&optional name-of-mode) |
71 | 1214 "Major mode for compilation log buffers. |
1215 \\<compilation-mode-map>To visit the source for a line-numbered error, | |
418 | 1216 move point to the error message line and type \\[compile-goto-error]. |
569 | 1217 To kill the compilation, type \\[kill-compilation]. |
1218 | |
1219 Runs `compilation-mode-hook' with `run-hooks' (which see)." | |
71 | 1220 (interactive) |
9376
f0ac347309e2
(compilation-mode-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8976
diff
changeset
|
1221 (kill-all-local-variables) |
71 | 1222 (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
|
1223 (setq major-mode 'compilation-mode |
21930
b84bfe98263d
* progmodes/compile.el (compilation-directory-stack): Doc fix.
Andreas Schwab <schwab@suse.de>
parents:
21224
diff
changeset
|
1224 mode-name (or name-of-mode "Compilation")) |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1225 (compilation-setup) |
9473
b0cc803bf367
* compile.el: (compilation-mode): Set font-lock-defaults.
Simon Marshall <simon@gnu.org>
parents:
9376
diff
changeset
|
1226 (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
|
1227 '(compilation-mode-font-lock-keywords t)) |
17866
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
1228 (set (make-local-variable 'revert-buffer-function) |
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
1229 'compilation-revert-buffer) |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1230 (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
|
1231 |
17866
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
1232 (defun compilation-revert-buffer (ignore-auto noconfirm) |
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
1233 (if (or noconfirm (yes-or-no-p (format "Restart compilation? "))) |
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
1234 (apply 'compile-internal compilation-arguments))) |
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
1235 |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1236 (defun compilation-setup () |
26222 | 1237 "Prepare the buffer for the compilation parsing commands to work." |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1238 ;; 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
|
1239 (setq mode-line-process '(":%s")) |
418 | 1240 (set (make-local-variable 'compilation-error-list) nil) |
1241 (set (make-local-variable 'compilation-old-error-list) nil) | |
25426
a08bfd064439
(compilation-parsing-end,compilation-setup)
Richard M. Stallman <rms@gnu.org>
parents:
24894
diff
changeset
|
1242 (set (make-local-variable 'compilation-parsing-end) (copy-marker 1)) |
24284
c8a762e57cf6
(compilation-setup): Set value of
Richard M. Stallman <rms@gnu.org>
parents:
24264
diff
changeset
|
1243 (set (make-local-variable 'compilation-directory-stack) |
c8a762e57cf6
(compilation-setup): Set value of
Richard M. Stallman <rms@gnu.org>
parents:
24264
diff
changeset
|
1244 (list default-directory)) |
30688
f0a91dd9685b
(compilation-setup): Make variable
Gerd Moellmann <gerd@gnu.org>
parents:
29121
diff
changeset
|
1245 (make-local-variable 'compilation-error-screen-columns) |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1246 (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
|
1247 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1248 (defvar compilation-shell-minor-mode nil |
26222 | 1249 "Non-nil when in `compilation-shell-minor-mode'. |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1250 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
|
1251 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
|
1252 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
|
1253 (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
|
1254 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
1255 (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
|
1256 (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
|
1257 (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
|
1258 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
|
1259 (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
|
1260 (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
|
1261 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
|
1262 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
|
1263 |
2603
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1264 (defvar compilation-minor-mode nil |
26222 | 1265 "Non-nil when in `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
|
1266 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
|
1267 Compilation major mode are available.") |
4445
a1e412873732
(compilation-minor-mode): Make variable buffer-local.
Roland McGrath <roland@gnu.org>
parents:
4350
diff
changeset
|
1268 (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
|
1269 |
f80a342fd945
Add compilation-minor-mode to minor-mode-alist and minor-mode-map-alist.
Roland McGrath <roland@gnu.org>
parents:
2478
diff
changeset
|
1270 (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
|
1271 (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
|
1272 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
|
1273 (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
|
1274 (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
|
1275 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
|
1276 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
|
1277 |
4445
a1e412873732
(compilation-minor-mode): Make variable buffer-local.
Roland McGrath <roland@gnu.org>
parents:
4350
diff
changeset
|
1278 ;;;###autoload |
24053
551467b8a092
(compilation-shell-minor-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23866
diff
changeset
|
1279 (defun compilation-shell-minor-mode (&optional arg) |
551467b8a092
(compilation-shell-minor-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23866
diff
changeset
|
1280 "Toggle compilation shell minor mode. |
551467b8a092
(compilation-shell-minor-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23866
diff
changeset
|
1281 With arg, turn compilation mode on if and only if arg is positive. |
551467b8a092
(compilation-shell-minor-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23866
diff
changeset
|
1282 See `compilation-mode'. |
551467b8a092
(compilation-shell-minor-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23866
diff
changeset
|
1283 Turning the mode on runs the normal hook `compilation-shell-minor-mode-hook'." |
551467b8a092
(compilation-shell-minor-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23866
diff
changeset
|
1284 (interactive "P") |
551467b8a092
(compilation-shell-minor-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23866
diff
changeset
|
1285 (if (setq compilation-shell-minor-mode (if (null arg) |
551467b8a092
(compilation-shell-minor-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23866
diff
changeset
|
1286 (null compilation-shell-minor-mode) |
551467b8a092
(compilation-shell-minor-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23866
diff
changeset
|
1287 (> (prefix-numeric-value arg) 0))) |
551467b8a092
(compilation-shell-minor-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23866
diff
changeset
|
1288 (let ((mode-line-process)) |
551467b8a092
(compilation-shell-minor-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23866
diff
changeset
|
1289 (compilation-setup) |
551467b8a092
(compilation-shell-minor-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23866
diff
changeset
|
1290 (run-hooks 'compilation-shell-minor-mode-hook)))) |
551467b8a092
(compilation-shell-minor-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23866
diff
changeset
|
1291 |
551467b8a092
(compilation-shell-minor-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23866
diff
changeset
|
1292 ;;;###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
|
1293 (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
|
1294 "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
|
1295 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
|
1296 See `compilation-mode'. |
3c86ac6a871a
(compilation-minor-mode): Run compilation-minor-mode-hook.
Roland McGrath <roland@gnu.org>
parents:
14562
diff
changeset
|
1297 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
|
1298 (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
|
1299 (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
|
1300 (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
|
1301 (> (prefix-numeric-value arg) 0))) |
21930
b84bfe98263d
* progmodes/compile.el (compilation-directory-stack): Doc fix.
Andreas Schwab <schwab@suse.de>
parents:
21224
diff
changeset
|
1302 (let ((mode-line-process)) |
14607
3c86ac6a871a
(compilation-minor-mode): Run compilation-minor-mode-hook.
Roland McGrath <roland@gnu.org>
parents:
14562
diff
changeset
|
1303 (compilation-setup) |
14643
9a31b6a37efd
(compilation-minor-mode): Add missing `)'.
Erik Naggum <erik@naggum.no>
parents:
14607
diff
changeset
|
1304 (run-hooks 'compilation-minor-mode-hook)))) |
71 | 1305 |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1306 (defun compilation-handle-exit (process-status exit-status msg) |
26222 | 1307 "Write msg in the current buffer and hack its mode-line-process." |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1308 (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
|
1309 (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
|
1310 (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
|
1311 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
|
1312 (cons msg exit-status))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1313 (omax (point-max)) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1314 (opoint (point))) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1315 ;; 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
|
1316 ;; later on. |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1317 (goto-char omax) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1318 (insert ?\n mode-name " " (car status)) |
44209
9501986a69c8
(compilation-handle-exit):
Richard M. Stallman <rms@gnu.org>
parents:
44139
diff
changeset
|
1319 (if (and (numberp compilation-window-height) |
9501986a69c8
(compilation-handle-exit):
Richard M. Stallman <rms@gnu.org>
parents:
44139
diff
changeset
|
1320 (zerop compilation-window-height)) |
9501986a69c8
(compilation-handle-exit):
Richard M. Stallman <rms@gnu.org>
parents:
44139
diff
changeset
|
1321 (message "%s" (cdr status))) |
24558
ea8a9509b52f
(compilation-handle-exit): Do right thing
Richard M. Stallman <rms@gnu.org>
parents:
24326
diff
changeset
|
1322 (if (bolp) |
ea8a9509b52f
(compilation-handle-exit): Do right thing
Richard M. Stallman <rms@gnu.org>
parents:
24326
diff
changeset
|
1323 (forward-char -1)) |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1324 (insert " at " (substring (current-time-string) 0 19)) |
24558
ea8a9509b52f
(compilation-handle-exit): Do right thing
Richard M. Stallman <rms@gnu.org>
parents:
24326
diff
changeset
|
1325 (goto-char (point-max)) |
42939
0786ea38f9fd
(compilation-handle-exit):
Richard M. Stallman <rms@gnu.org>
parents:
42408
diff
changeset
|
1326 ;; Prevent that message from being recognized as a compilation error. |
0786ea38f9fd
(compilation-handle-exit):
Richard M. Stallman <rms@gnu.org>
parents:
42408
diff
changeset
|
1327 (add-text-properties omax (point) |
0786ea38f9fd
(compilation-handle-exit):
Richard M. Stallman <rms@gnu.org>
parents:
42408
diff
changeset
|
1328 (append '(compilation-handle-exit t) nil)) |
14260
4577848d3ef2
(compilation-handle-exit): Undo previous change.
Karl Heuer <kwzh@gnu.org>
parents:
14250
diff
changeset
|
1329 (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
|
1330 ;; 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
|
1331 (force-mode-line-update) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1332 (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
|
1333 (goto-char opoint)) |
16519
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
1334 ;; Automatically parse (and mouse-highlight) error messages: |
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
1335 (cond ((eq compile-auto-highlight t) |
16518
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1336 (compile-reinitialize-errors nil (point-max))) |
16519
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
1337 ((numberp compile-auto-highlight) |
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
1338 (compile-reinitialize-errors nil |
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
1339 (save-excursion |
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
1340 (goto-line compile-auto-highlight) |
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
1341 (point))))) |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1342 (if compilation-finish-function |
16042
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
1343 (funcall compilation-finish-function (current-buffer) msg)) |
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
1344 (let ((functions compilation-finish-functions)) |
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
1345 (while functions |
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
1346 (funcall (car functions) (current-buffer) msg) |
18414e324084
(compilation-finish-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15084
diff
changeset
|
1347 (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
|
1348 |
71 | 1349 ;; Called when compilation process changes state. |
1350 (defun compilation-sentinel (proc msg) | |
418 | 1351 "Sentinel for compilation buffers." |
1352 (let ((buffer (process-buffer proc))) | |
740 | 1353 (if (memq (process-status proc) '(signal exit)) |
1354 (progn | |
1355 (if (null (buffer-name buffer)) | |
1356 ;; buffer killed | |
1357 (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
|
1358 (let ((obuf (current-buffer))) |
740 | 1359 ;; save-excursion isn't the right thing if |
1360 ;; process-buffer is current-buffer | |
1361 (unwind-protect | |
1362 (progn | |
1363 ;; Write something in the compilation buffer | |
1364 ;; and hack its mode line. | |
1365 (set-buffer buffer) | |
14045
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1366 (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
|
1367 (process-exit-status proc) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1368 msg) |
1300c7703f67
(compilation-handle-exit): New function, broken out of compilation-sentinel.
Roland McGrath <roland@gnu.org>
parents:
13972
diff
changeset
|
1369 ;; 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
|
1370 ;; 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
|
1371 ;; 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
|
1372 (delete-process proc)) |
1133 | 1373 (set-buffer obuf)))) |
740 | 1374 (setq compilation-in-progress (delq proc compilation-in-progress)) |
1375 )))) | |
71 | 1376 |
2472
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
1377 (defun compilation-filter (proc string) |
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
1378 "Process filter for compilation buffers. |
2760
1c7595e3089b
(Setting minor-mode-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
2603
diff
changeset
|
1379 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
|
1380 (if (buffer-name (process-buffer proc)) |
2472
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
1381 (save-excursion |
9511
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
1382 (set-buffer (process-buffer proc)) |
25426
a08bfd064439
(compilation-parsing-end,compilation-setup)
Richard M. Stallman <rms@gnu.org>
parents:
24894
diff
changeset
|
1383 (let ((buffer-read-only nil) |
a08bfd064439
(compilation-parsing-end,compilation-setup)
Richard M. Stallman <rms@gnu.org>
parents:
24894
diff
changeset
|
1384 (end (marker-position compilation-parsing-end))) |
9511
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
1385 (save-excursion |
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
1386 (goto-char (process-mark proc)) |
3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
Richard M. Stallman <rms@gnu.org>
parents:
9473
diff
changeset
|
1387 (insert-before-markers string) |
25426
a08bfd064439
(compilation-parsing-end,compilation-setup)
Richard M. Stallman <rms@gnu.org>
parents:
24894
diff
changeset
|
1388 (set-marker compilation-parsing-end end) ;don't move it |
14455
1ce19c0594b1
(compilation-filter): Run compilation-filter-hook.
Richard M. Stallman <rms@gnu.org>
parents:
14260
diff
changeset
|
1389 (run-hooks 'compilation-filter-hook) |
25426
a08bfd064439
(compilation-parsing-end,compilation-setup)
Richard M. Stallman <rms@gnu.org>
parents:
24894
diff
changeset
|
1390 ;; this seems redundant since we insert-before-marks -stefan |
a08bfd064439
(compilation-parsing-end,compilation-setup)
Richard M. Stallman <rms@gnu.org>
parents:
24894
diff
changeset
|
1391 ;;(set-marker (process-mark proc) (point)) |
a08bfd064439
(compilation-parsing-end,compilation-setup)
Richard M. Stallman <rms@gnu.org>
parents:
24894
diff
changeset
|
1392 ))))) |
2472
f911936cec3f
(compilation-filter): New function.
Roland McGrath <roland@gnu.org>
parents:
2471
diff
changeset
|
1393 |
920 | 1394 (defun compile-error-at-point () |
26222 | 1395 "Return the cdr of `compilation-old-error-list' for error containing point." |
920 | 1396 (compile-reinitialize-errors nil (point)) |
1397 (let ((errors compilation-old-error-list)) | |
1398 (while (and errors | |
1399 (> (point) (car (car errors)))) | |
1400 (setq errors (cdr errors))) | |
1401 errors)) | |
1402 | |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1403 (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
|
1404 (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
|
1405 (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
|
1406 (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
|
1407 (eq major-mode 'compilation-mode)))) |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1408 |
894 | 1409 (defun compilation-next-error (n) |
1410 "Move point to the next error in the compilation buffer. | |
26222 | 1411 Prefix arg N says how many error messages to move forwards (or |
1412 backwards, if negative). | |
894 | 1413 Does NOT find the source line like \\[next-error]." |
1414 (interactive "p") | |
1415 (or (compilation-buffer-p (current-buffer)) | |
26222 | 1416 (error "Not in a compilation buffer")) |
894 | 1417 (setq compilation-last-buffer (current-buffer)) |
1418 | |
920 | 1419 (let ((errors (compile-error-at-point))) |
894 | 1420 |
920 | 1421 ;; Move to the error after the one containing point. |
1422 (goto-char (car (if (< n 0) | |
1423 (let ((i 0) | |
1424 (e compilation-old-error-list)) | |
1425 ;; See how many cdrs away ERRORS is from the start. | |
1426 (while (not (eq e errors)) | |
1427 (setq i (1+ i) | |
1428 e (cdr e))) | |
1429 (if (> (- n) i) | |
1430 (error "Moved back past first error") | |
1431 (nth (+ i n) compilation-old-error-list))) | |
1432 (let ((compilation-error-list (cdr errors))) | |
1433 (compile-reinitialize-errors nil nil n) | |
1434 (if compilation-error-list | |
1435 (nth (1- n) compilation-error-list) | |
1436 (error "Moved past last error")))))))) | |
894 | 1437 |
1438 (defun compilation-previous-error (n) | |
1439 "Move point to the previous error in the compilation buffer. | |
26222 | 1440 Prefix arg N says how many error messages to move backwards (or |
1441 forwards, if negative). | |
894 | 1442 Does NOT find the source line like \\[next-error]." |
1443 (interactive "p") | |
1444 (compilation-next-error (- n))) | |
1445 | |
1446 | |
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
|
1447 ;; 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
|
1448 ;; 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
|
1449 ;; 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
|
1450 (defsubst compilation-error-filedata (data) |
920 | 1451 (setq data (cdr data)) |
1452 (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
|
1453 (marker-buffer data) |
3875
c5b6f641698a
* compile.el (compile-file-of-error): Remember that
Jim Blandy <jimb@redhat.com>
parents:
3825
diff
changeset
|
1454 (car data))) |
920 | 1455 |
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
|
1456 ;; 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
|
1457 ;; 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
|
1458 ;; 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
|
1459 (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
|
1460 (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
|
1461 (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
|
1462 (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
|
1463 |
920 | 1464 (defun compilation-next-file (n) |
1465 "Move point to the next error for a different file than the current one." | |
1466 (interactive "p") | |
1467 (or (compilation-buffer-p (current-buffer)) | |
26222 | 1468 (error "Not in a compilation buffer")) |
920 | 1469 (setq compilation-last-buffer (current-buffer)) |
1470 | |
1471 (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
|
1472 errors filedata) |
920 | 1473 |
1474 (if (not reversed) | |
1475 (setq errors (or (compile-error-at-point) | |
1476 (error "Moved past last error"))) | |
1477 | |
1478 ;; Get a reversed list of the errors up through the one containing point. | |
1479 (compile-reinitialize-errors nil (point)) | |
1480 (setq errors (reverse compilation-old-error-list) | |
1481 n (- n)) | |
1482 | |
1483 ;; Ignore errors after point. (car ERRORS) will be the error | |
1484 ;; containing point, (cadr ERRORS) the one before it. | |
1485 (while (and errors | |
1486 (< (point) (car (car errors)))) | |
1487 (setq errors (cdr errors)))) | |
1488 | |
1489 (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
|
1490 (setq filedata (compilation-error-filedata (car errors))) |
920 | 1491 |
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
|
1492 ;; 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
|
1493 (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
|
1494 (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
|
1495 (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
|
1496 (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
|
1497 (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
|
1498 (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
|
1499 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
|
1500 (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
|
1501 ;; 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
|
1502 (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
|
1503 (setq errors compilation-error-list))) |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
1504 (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
|
1505 (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
|
1506 filedata)))))) |
920 | 1507 (setq errors (cdr errors))) |
1508 | |
1509 (setq n (1- n))) | |
1510 | |
1511 ;; Move to the following error. | |
1512 (goto-char (car (car (or errors | |
1513 (if reversed | |
1514 (error "This is the first erring file") | |
1515 (let ((compilation-error-list nil)) | |
1516 ;; Parse the last one. | |
1517 (compile-reinitialize-errors nil nil 1) | |
1518 compilation-error-list)))))))) | |
1519 | |
1520 (defun compilation-previous-file (n) | |
1521 "Move point to the previous error for a different file than the current one." | |
1522 (interactive "p") | |
1523 (compilation-next-file (- n))) | |
1524 | |
71 | 1525 (defun kill-compilation () |
45582
08fe4d419957
Modified doc string to say that the kill-compilation function also
Robert J. Chassell <bob@rattlesnake.com>
parents:
45215
diff
changeset
|
1526 "Kill the process made by the \\[compile] or \\[grep] commands." |
71 | 1527 (interactive) |
418 | 1528 (let ((buffer (compilation-find-buffer))) |
71 | 1529 (if (get-buffer-process buffer) |
418 | 1530 (interrupt-process (get-buffer-process buffer)) |
26222 | 1531 (error "The compilation process is not running")))) |
71 | 1532 |
45582
08fe4d419957
Modified doc string to say that the kill-compilation function also
Robert J. Chassell <bob@rattlesnake.com>
parents:
45215
diff
changeset
|
1533 (defalias 'kill-grep 'kill-compilation) |
418 | 1534 |
1535 ;; Parse any new errors in the compilation buffer, | |
1536 ;; 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
|
1537 (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
|
1538 &optional limit-search find-at-least) |
418 | 1539 (save-excursion |
1540 (set-buffer compilation-last-buffer) | |
1541 ;; If we are out of errors, or if user says "reparse", | |
1542 ;; discard the info we have, to force reparsing. | |
1543 (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
|
1544 reparse) |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1545 (compilation-forget-errors)) |
907 | 1546 (if (and compilation-error-list |
920 | 1547 (or (not limit-search) |
1548 (> compilation-parsing-end limit-search)) | |
907 | 1549 (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
|
1550 (>= (length compilation-error-list) find-at-least))) |
418 | 1551 ;; Since compilation-error-list is non-nil, it points to a specific |
1552 ;; error the user wanted. So don't move it around. | |
1553 nil | |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1554 ;; 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
|
1555 ;;(switch-to-buffer compilation-last-buffer) |
71 | 1556 (set-buffer-modified-p nil) |
920 | 1557 (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
|
1558 ;; 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
|
1559 ;; 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
|
1560 ;; 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
|
1561 ;; preserve that after reparsing. |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1562 (let ((error-list-pos compilation-error-list)) |
920 | 1563 (funcall compilation-parse-errors-function |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1564 limit-search |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1565 (and find-at-least |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1566 ;; 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
|
1567 ;; 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
|
1568 ;; position. |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1569 (- 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
|
1570 ;; 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
|
1571 ;; 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
|
1572 ;; 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
|
1573 ;; compilation-old-error-list above. |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1574 (setq compilation-old-error-list |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1575 (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
|
1576 (if error-list-pos |
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
1577 ;; 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
|
1578 ;; 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
|
1579 (setq compilation-error-list error-list-pos)) |
16519
b96e56680038
(compile-auto-highlight): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
16518
diff
changeset
|
1580 ;; 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
|
1581 ;; mouse pointer moves over it: |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1582 (let ((inhibit-read-only t) |
24284
c8a762e57cf6
(compilation-setup): Set value of
Richard M. Stallman <rms@gnu.org>
parents:
24264
diff
changeset
|
1583 (buffer-undo-list t) |
c8a762e57cf6
(compilation-setup): Set value of
Richard M. Stallman <rms@gnu.org>
parents:
24264
diff
changeset
|
1584 deactivate-mark |
16518
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1585 (error-list compilation-error-list)) |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1586 (while error-list |
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1587 (save-excursion |
38077
7137508c16aa
(compile-reinitialize-errors): Add help-echo to mouse-highlighted messages.
Eli Zaretskii <eliz@gnu.org>
parents:
37250
diff
changeset
|
1588 (add-text-properties (goto-char (car (car error-list))) |
7137508c16aa
(compile-reinitialize-errors): Add help-echo to mouse-highlighted messages.
Eli Zaretskii <eliz@gnu.org>
parents:
37250
diff
changeset
|
1589 (progn (end-of-line) (point)) |
7137508c16aa
(compile-reinitialize-errors): Add help-echo to mouse-highlighted messages.
Eli Zaretskii <eliz@gnu.org>
parents:
37250
diff
changeset
|
1590 '(mouse-face highlight help-echo "\ |
7137508c16aa
(compile-reinitialize-errors): Add help-echo to mouse-highlighted messages.
Eli Zaretskii <eliz@gnu.org>
parents:
37250
diff
changeset
|
1591 mouse-2: visit this file and line"))) |
16518
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
1592 (setq error-list (cdr error-list)))) |
920 | 1593 ))))) |
71 | 1594 |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
1595 (defun compile-mouse-goto-error (event) |
24108
5f499867bc7e
(compilation-goto-locus): If already in the
Richard M. Stallman <rms@gnu.org>
parents:
24053
diff
changeset
|
1596 "Visit the source for the error message the mouse is pointing at. |
5f499867bc7e
(compilation-goto-locus): If already in the
Richard M. Stallman <rms@gnu.org>
parents:
24053
diff
changeset
|
1597 This is like `compile-goto-error' called without prefix arg |
5f499867bc7e
(compilation-goto-locus): If already in the
Richard M. Stallman <rms@gnu.org>
parents:
24053
diff
changeset
|
1598 at the end of the line." |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
1599 (interactive "e") |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1600 (save-excursion |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1601 (set-buffer (window-buffer (posn-window (event-end event)))) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1602 (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
|
1603 |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1604 (or (compilation-buffer-p (current-buffer)) |
26222 | 1605 (error "Not in a compilation buffer")) |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1606 (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
|
1607 ;; `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
|
1608 ;; 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
|
1609 ;; 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
|
1610 ;; visible to `compile-reinitialize-errors'. |
c9f46b04dad0
(compile-mouse-goto-error): Move to end of line
Eli Zaretskii <eliz@gnu.org>
parents:
16985
diff
changeset
|
1611 (end-of-line) |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1612 (compile-reinitialize-errors nil (point)) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1613 |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1614 ;; 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
|
1615 (beginning-of-line) |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
1616 |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1617 ;; 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
|
1618 ;; we want. |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1619 (setq compilation-error-list compilation-old-error-list) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1620 (while (and compilation-error-list |
24264
ffc2b7069315
(compile-mouse-goto-error): Don't lose with
Dave Love <fx@gnu.org>
parents:
24239
diff
changeset
|
1621 ;; The marker can point nowhere if we previously |
ffc2b7069315
(compile-mouse-goto-error): Don't lose with
Dave Love <fx@gnu.org>
parents:
24239
diff
changeset
|
1622 ;; failed to find the relevant file. See |
ffc2b7069315
(compile-mouse-goto-error): Don't lose with
Dave Love <fx@gnu.org>
parents:
24239
diff
changeset
|
1623 ;; compilation-next-error-locus. |
ffc2b7069315
(compile-mouse-goto-error): Don't lose with
Dave Love <fx@gnu.org>
parents:
24239
diff
changeset
|
1624 (or (null (marker-buffer (caar compilation-error-list))) |
39835
81c88c75006b
(compile-mouse-goto-error, compile-goto-error):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39602
diff
changeset
|
1625 (and (> (point) (caar compilation-error-list)) |
40902
95bf86aa6120
(compile-goto-error): Fix previous change in the case where subsequent
Richard M. Stallman <rms@gnu.org>
parents:
40294
diff
changeset
|
1626 (>= (point) |
95bf86aa6120
(compile-goto-error): Fix previous change in the case where subsequent
Richard M. Stallman <rms@gnu.org>
parents:
40294
diff
changeset
|
1627 ;; Don't skip too far: the text between |
95bf86aa6120
(compile-goto-error): Fix previous change in the case where subsequent
Richard M. Stallman <rms@gnu.org>
parents:
40294
diff
changeset
|
1628 ;; two errors belongs to the first. This |
95bf86aa6120
(compile-goto-error): Fix previous change in the case where subsequent
Richard M. Stallman <rms@gnu.org>
parents:
40294
diff
changeset
|
1629 ;; in-between text might be other errors |
95bf86aa6120
(compile-goto-error): Fix previous change in the case where subsequent
Richard M. Stallman <rms@gnu.org>
parents:
40294
diff
changeset
|
1630 ;; on the same line (see |
95bf86aa6120
(compile-goto-error): Fix previous change in the case where subsequent
Richard M. Stallman <rms@gnu.org>
parents:
40294
diff
changeset
|
1631 ;; compilation-skip-to-next-location). |
95bf86aa6120
(compile-goto-error): Fix previous change in the case where subsequent
Richard M. Stallman <rms@gnu.org>
parents:
40294
diff
changeset
|
1632 (if (null (cdr compilation-error-list)) |
95bf86aa6120
(compile-goto-error): Fix previous change in the case where subsequent
Richard M. Stallman <rms@gnu.org>
parents:
40294
diff
changeset
|
1633 compilation-parsing-end |
95bf86aa6120
(compile-goto-error): Fix previous change in the case where subsequent
Richard M. Stallman <rms@gnu.org>
parents:
40294
diff
changeset
|
1634 (caar (cdr compilation-error-list))))))) |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1635 (setq compilation-error-list (cdr compilation-error-list))) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1636 (or compilation-error-list |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1637 (error "No error to go to"))) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1638 (select-window (posn-window (event-end event))) |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
1639 |
6639
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1640 (push-mark) |
b7196b4a3679
(compile-mouse-goto-error): Simplify.
Karl Heuer <kwzh@gnu.org>
parents:
6595
diff
changeset
|
1641 (next-error 1)) |
6595
7fbc171fd1b5
(compile-mouse-goto-error): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6412
diff
changeset
|
1642 |
71 | 1643 (defun compile-goto-error (&optional argp) |
1644 "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
|
1645 Use this command in a compilation log buffer. Sets the mark at point there. |
885 | 1646 \\[universal-argument] as a prefix arg means to reparse the buffer's error messages first; |
71 | 1647 other kinds of prefix arguments are ignored." |
1648 (interactive "P") | |
418 | 1649 (or (compilation-buffer-p (current-buffer)) |
26222 | 1650 (error "Not in a compilation buffer")) |
418 | 1651 (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
|
1652 (compile-reinitialize-errors (consp argp) (point)) |
894 | 1653 |
1072 | 1654 ;; Move to bol; the marker for the error on this line will point there. |
1655 (beginning-of-line) | |
1656 | |
894 | 1657 ;; Move compilation-error-list to the elt of compilation-old-error-list |
901 | 1658 ;; we want. |
894 | 1659 (setq compilation-error-list compilation-old-error-list) |
901 | 1660 (while (and compilation-error-list |
24264
ffc2b7069315
(compile-mouse-goto-error): Don't lose with
Dave Love <fx@gnu.org>
parents:
24239
diff
changeset
|
1661 ;; The marker can point nowhere if we previously |
ffc2b7069315
(compile-mouse-goto-error): Don't lose with
Dave Love <fx@gnu.org>
parents:
24239
diff
changeset
|
1662 ;; failed to find the relevant file. See |
ffc2b7069315
(compile-mouse-goto-error): Don't lose with
Dave Love <fx@gnu.org>
parents:
24239
diff
changeset
|
1663 ;; compilation-next-error-locus. |
ffc2b7069315
(compile-mouse-goto-error): Don't lose with
Dave Love <fx@gnu.org>
parents:
24239
diff
changeset
|
1664 (or (null (marker-buffer (caar compilation-error-list))) |
39835
81c88c75006b
(compile-mouse-goto-error, compile-goto-error):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39602
diff
changeset
|
1665 (and (> (point) (caar compilation-error-list)) |
40902
95bf86aa6120
(compile-goto-error): Fix previous change in the case where subsequent
Richard M. Stallman <rms@gnu.org>
parents:
40294
diff
changeset
|
1666 (>= (point) |
95bf86aa6120
(compile-goto-error): Fix previous change in the case where subsequent
Richard M. Stallman <rms@gnu.org>
parents:
40294
diff
changeset
|
1667 ;; Don't skip too far: the text between |
95bf86aa6120
(compile-goto-error): Fix previous change in the case where subsequent
Richard M. Stallman <rms@gnu.org>
parents:
40294
diff
changeset
|
1668 ;; two errors belongs to the first. This |
95bf86aa6120
(compile-goto-error): Fix previous change in the case where subsequent
Richard M. Stallman <rms@gnu.org>
parents:
40294
diff
changeset
|
1669 ;; in-between text might be other errors |
95bf86aa6120
(compile-goto-error): Fix previous change in the case where subsequent
Richard M. Stallman <rms@gnu.org>
parents:
40294
diff
changeset
|
1670 ;; on the same line (see |
95bf86aa6120
(compile-goto-error): Fix previous change in the case where subsequent
Richard M. Stallman <rms@gnu.org>
parents:
40294
diff
changeset
|
1671 ;; compilation-skip-to-next-location). |
95bf86aa6120
(compile-goto-error): Fix previous change in the case where subsequent
Richard M. Stallman <rms@gnu.org>
parents:
40294
diff
changeset
|
1672 (if (null (cdr compilation-error-list)) |
95bf86aa6120
(compile-goto-error): Fix previous change in the case where subsequent
Richard M. Stallman <rms@gnu.org>
parents:
40294
diff
changeset
|
1673 compilation-parsing-end |
95bf86aa6120
(compile-goto-error): Fix previous change in the case where subsequent
Richard M. Stallman <rms@gnu.org>
parents:
40294
diff
changeset
|
1674 (caar (cdr compilation-error-list))))))) |
894 | 1675 (setq compilation-error-list (cdr compilation-error-list))) |
1676 | |
6197
8ddddba0de43
(compile-goto-error): Push the mark before calling next-error.
Roland McGrath <roland@gnu.org>
parents:
5961
diff
changeset
|
1677 (push-mark) |
901 | 1678 (next-error 1)) |
71 | 1679 |
418 | 1680 ;; Return a compilation buffer. |
1681 ;; If the current buffer is a compilation buffer, return it. | |
1682 ;; If compilation-last-buffer is set to a live buffer, use that. | |
1683 ;; Otherwise, look for a compilation buffer and signal an error | |
1684 ;; if there are none. | |
621 | 1685 (defun compilation-find-buffer (&optional other-buffer) |
1686 (if (and (not other-buffer) | |
1687 (compilation-buffer-p (current-buffer))) | |
418 | 1688 ;; The current buffer is a compilation buffer. |
1689 (current-buffer) | |
621 | 1690 (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
|
1691 (compilation-buffer-p compilation-last-buffer) |
621 | 1692 (or (not other-buffer) (not (eq compilation-last-buffer |
1693 (current-buffer))))) | |
418 | 1694 compilation-last-buffer |
1695 (let ((buffers (buffer-list))) | |
621 | 1696 (while (and buffers (or (not (compilation-buffer-p (car buffers))) |
1697 (and other-buffer | |
1698 (eq (car buffers) (current-buffer))))) | |
418 | 1699 (setq buffers (cdr buffers))) |
1700 (if buffers | |
1701 (car buffers) | |
621 | 1702 (or (and other-buffer |
1703 (compilation-buffer-p (current-buffer)) | |
1704 ;; The current buffer is a compilation buffer. | |
1705 (progn | |
1706 (if other-buffer | |
1707 (message "This is the only compilation buffer.")) | |
1708 (current-buffer))) | |
1709 (error "No compilation started!"))))))) | |
418 | 1710 |
1711 ;;;###autoload | |
71 | 1712 (defun next-error (&optional argp) |
1713 "Visit next compilation error message and corresponding source code. | |
22966 | 1714 |
1715 If all the error messages parsed so far have been processed already, | |
1716 the message buffer is checked for new ones. | |
71 | 1717 |
30878
13a1a0ec31e5
(grep): Provide a default set of files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30688
diff
changeset
|
1718 A prefix ARGP specifies how many error messages to move; |
71 | 1719 negative means move back to previous error messages. |
30878
13a1a0ec31e5
(grep): Provide a default set of files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30688
diff
changeset
|
1720 Just \\[universal-argument] as a prefix means reparse the error message buffer |
71 | 1721 and start at the first error. |
1722 | |
22966 | 1723 \\[next-error] normally uses the most recently started compilation or |
1724 grep buffer. However, it can operate on any buffer with output from | |
1725 the \\[compile] and \\[grep] commands, or, more generally, on any | |
1726 buffer in Compilation mode or with Compilation Minor mode enabled. To | |
1727 specify use of a particular buffer for error messages, type | |
1728 \\[next-error] in that buffer. | |
71 | 1729 |
22966 | 1730 Once \\[next-error] has chosen the buffer for error messages, |
1731 it stays with that buffer until you use it in some other buffer which | |
1732 uses Compilation mode or Compilation Minor mode. | |
71 | 1733 |
418 | 1734 See variables `compilation-parse-errors-function' and |
1735 \`compilation-error-regexp-alist' for customization ideas." | |
71 | 1736 (interactive "P") |
418 | 1737 (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
|
1738 (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
|
1739 ;; 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
|
1740 ;; 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
|
1741 (and (not (consp argp)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1742 (prefix-numeric-value argp)) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1743 (consp argp)))) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1744 ;;;###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
|
1745 |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1746 (defun previous-error () |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1747 "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
|
1748 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
|
1749 (interactive) |
11804
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1750 (next-error -1)) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1751 |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1752 (defun first-error () |
16866
3244576af168
compile.el (first-error): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
16519
diff
changeset
|
1753 "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
|
1754 Visit corresponding source code. |
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1755 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
|
1756 (interactive) |
11804
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1757 (next-error '(4))) |
8425
8b8835f1630a
Set up a "Compile" menubar item.
Richard M. Stallman <rms@gnu.org>
parents:
8406
diff
changeset
|
1758 |
16448
39556b6d7c6e
(compilation-skip-to-next-location): Defined.
Karl Heuer <kwzh@gnu.org>
parents:
16042
diff
changeset
|
1759 (defvar compilation-skip-to-next-location nil |
39556b6d7c6e
(compilation-skip-to-next-location): Defined.
Karl Heuer <kwzh@gnu.org>
parents:
16042
diff
changeset
|
1760 "*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
|
1761 |
8342
95c011057e51
(compilation-next-error-locus): New arg SILENT.
Richard M. Stallman <rms@gnu.org>
parents:
8288
diff
changeset
|
1762 (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
|
1763 "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
|
1764 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
|
1765 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
|
1766 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
|
1767 |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1768 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
|
1769 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
|
1770 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
|
1771 |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1772 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
|
1773 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
|
1774 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
|
1775 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
|
1776 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
|
1777 |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1778 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
|
1779 (or move (setq move 1)) |
24239
e6c0e87123a7
(compilation-next-error-locus): Don't decrease argument FIND-AT-LEAST
Richard M. Stallman <rms@gnu.org>
parents:
24108
diff
changeset
|
1780 (compile-reinitialize-errors reparse nil (and (not reparse) (max 0 move))) |
418 | 1781 (let (next-errors next-error) |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1782 (catch 'no-next-error |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1783 (save-excursion |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1784 (set-buffer compilation-last-buffer) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1785 ;; compilation-error-list points to the "current" error. |
13755
5f7ea59f14b6
(compilation-mode): Add autoload cookie.
Roland McGrath <roland@gnu.org>
parents:
13540
diff
changeset
|
1786 (setq next-errors |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1787 (if (> move 0) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1788 (nthcdr (1- move) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1789 compilation-error-list) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1790 ;; 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
|
1791 (let ((n (1- move)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1792 (i 0) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1793 (e compilation-old-error-list)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1794 ;; 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
|
1795 (while (not (eq e compilation-error-list)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1796 (setq i (1+ i) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1797 e (cdr e))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1798 (if (> (- n) i) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1799 (error "Moved back past first error") |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1800 (nthcdr (+ i n) compilation-old-error-list)))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1801 next-error (car next-errors)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1802 (while |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1803 (if (null next-error) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1804 (progn |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1805 (and move (/= move 1) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1806 (error (if (> move 0) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1807 "Moved past last error") |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1808 "Moved back past first error")) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1809 ;; Forget existing error messages if compilation has finished. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1810 (if (not (and (get-buffer-process (current-buffer)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1811 (eq (process-status |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1812 (get-buffer-process |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1813 (current-buffer))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1814 'run))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1815 (compilation-forget-errors)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1816 (if silent |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1817 (throw 'no-next-error nil) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1818 (error (concat compilation-error-message |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1819 (and (get-buffer-process (current-buffer)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1820 (eq (process-status |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1821 (get-buffer-process |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1822 (current-buffer))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1823 'run) |
8342
95c011057e51
(compilation-next-error-locus): New arg SILENT.
Richard M. Stallman <rms@gnu.org>
parents:
8288
diff
changeset
|
1824 " yet"))))) |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1825 (setq compilation-error-list (cdr next-errors)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1826 (if (null (cdr next-error)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1827 ;; This error is boring. Go to the next. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1828 t |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1829 (or (markerp (cdr next-error)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1830 ;; This error has a filename/lineno pair. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1831 ;; Find the file and turn it into a marker. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1832 (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
|
1833 (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
|
1834 (car next-error) fileinfo))) |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1835 (if (null buffer) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1836 ;; We can't find this error's file. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1837 ;; Remove all errors in the same file. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1838 (progn |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1839 (setq next-errors compilation-old-error-list) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1840 (while next-errors |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1841 (and (consp (cdr (car next-errors))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1842 (equal (car (cdr (car next-errors))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1843 fileinfo) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1844 (progn |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1845 (set-marker (car (car next-errors)) nil) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1846 (setcdr (car next-errors) nil))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1847 (setq next-errors (cdr next-errors))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1848 ;; Look for the next error. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1849 t) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1850 ;; We found the file. Get a marker for this error. |
24894
dcb1db1b1105
Deal with compilation-error-screen-columns being buffer-local.
Karl Heuer <kwzh@gnu.org>
parents:
24824
diff
changeset
|
1851 ;; compilation-old-error-list and |
dcb1db1b1105
Deal with compilation-error-screen-columns being buffer-local.
Karl Heuer <kwzh@gnu.org>
parents:
24824
diff
changeset
|
1852 ;; compilation-error-screen-columns are buffer-local |
dcb1db1b1105
Deal with compilation-error-screen-columns being buffer-local.
Karl Heuer <kwzh@gnu.org>
parents:
24824
diff
changeset
|
1853 ;; so we must be careful to extract their value |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1854 ;; before switching to the source file buffer. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1855 (let ((errors compilation-old-error-list) |
24894
dcb1db1b1105
Deal with compilation-error-screen-columns being buffer-local.
Karl Heuer <kwzh@gnu.org>
parents:
24824
diff
changeset
|
1856 (columns compilation-error-screen-columns) |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1857 (last-line (nth 1 (cdr next-error))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1858 (column (nth 2 (cdr next-error)))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1859 (set-buffer buffer) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1860 (save-excursion |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1861 (save-restriction |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1862 (widen) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1863 (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
|
1864 (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
|
1865 ;; Columns in error msgs are 1-origin. |
24894
dcb1db1b1105
Deal with compilation-error-screen-columns being buffer-local.
Karl Heuer <kwzh@gnu.org>
parents:
24824
diff
changeset
|
1866 (if columns |
23263
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
1867 (move-to-column (1- column)) |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
1868 (forward-char (1- column))) |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1869 (beginning-of-line)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1870 (setcdr next-error (point-marker)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1871 ;; Make all the other error messages referring |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1872 ;; to the same file have markers into the buffer. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1873 (while errors |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1874 (and (consp (cdr (car errors))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1875 (equal (car (cdr (car errors))) fileinfo) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1876 (let* ((this (nth 1 (cdr (car errors)))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1877 (column (nth 2 (cdr (car errors)))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1878 (lines (- this last-line))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1879 (if (eq selective-display t) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1880 ;; When selective-display is t, |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1881 ;; each C-m is a line boundary, |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1882 ;; as well as each newline. |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1883 (if (< lines 0) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1884 (re-search-backward "[\n\C-m]" |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1885 nil 'end |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1886 (- lines)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1887 (re-search-forward "[\n\C-m]" |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1888 nil 'end |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1889 lines)) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1890 (forward-line lines)) |
11804
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1891 (if (and column (> column 1)) |
24894
dcb1db1b1105
Deal with compilation-error-screen-columns being buffer-local.
Karl Heuer <kwzh@gnu.org>
parents:
24824
diff
changeset
|
1892 (if columns |
23263
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
1893 (move-to-column (1- column)) |
03626baa368a
(compilation-error-screen-columns): New
Andreas Schwab <schwab@suse.de>
parents:
23228
diff
changeset
|
1894 (forward-char (1- column))) |
11804
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1895 (beginning-of-line)) |
8351
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1896 (setq last-line this) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1897 (setcdr (car errors) (point-marker)))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1898 (setq errors (cdr errors))))))))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1899 ;; 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
|
1900 ;; 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
|
1901 (or (not (markerp (cdr next-error))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1902 (not (marker-buffer (cdr next-error)))))) |
bbd2d410ab94
Finish installing previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8342
diff
changeset
|
1903 (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
|
1904 next-error (car next-errors))))) |
418 | 1905 |
16448
39556b6d7c6e
(compilation-skip-to-next-location): Defined.
Karl Heuer <kwzh@gnu.org>
parents:
16042
diff
changeset
|
1906 (if compilation-skip-to-next-location |
39556b6d7c6e
(compilation-skip-to-next-location): Defined.
Karl Heuer <kwzh@gnu.org>
parents:
16042
diff
changeset
|
1907 ;; 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
|
1908 ;; 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
|
1909 (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
|
1910 (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
|
1911 (cdr next-error))) |
16448
39556b6d7c6e
(compilation-skip-to-next-location): Defined.
Karl Heuer <kwzh@gnu.org>
parents:
16042
diff
changeset
|
1912 (setq compilation-error-list (cdr compilation-error-list)))) |
418 | 1913 |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1914 ;; 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
|
1915 ;; 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
|
1916 next-error)) |
418 | 1917 |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1918 (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
|
1919 "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
|
1920 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
|
1921 Selects a window with point at SOURCE, with another window displaying ERROR." |
24108
5f499867bc7e
(compilation-goto-locus): If already in the
Richard M. Stallman <rms@gnu.org>
parents:
24053
diff
changeset
|
1922 (if (eq (window-buffer (selected-window)) |
5f499867bc7e
(compilation-goto-locus): If already in the
Richard M. Stallman <rms@gnu.org>
parents:
24053
diff
changeset
|
1923 (marker-buffer (car next-error))) |
5f499867bc7e
(compilation-goto-locus): If already in the
Richard M. Stallman <rms@gnu.org>
parents:
24053
diff
changeset
|
1924 ;; If the compilation buffer window is selected, |
5f499867bc7e
(compilation-goto-locus): If already in the
Richard M. Stallman <rms@gnu.org>
parents:
24053
diff
changeset
|
1925 ;; keep the compilation buffer in this window; |
5f499867bc7e
(compilation-goto-locus): If already in the
Richard M. Stallman <rms@gnu.org>
parents:
24053
diff
changeset
|
1926 ;; display the source in another window. |
5f499867bc7e
(compilation-goto-locus): If already in the
Richard M. Stallman <rms@gnu.org>
parents:
24053
diff
changeset
|
1927 (let ((pop-up-windows t)) |
5f499867bc7e
(compilation-goto-locus): If already in the
Richard M. Stallman <rms@gnu.org>
parents:
24053
diff
changeset
|
1928 (pop-to-buffer (marker-buffer (cdr next-error)))) |
39835
81c88c75006b
(compile-mouse-goto-error, compile-goto-error):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39602
diff
changeset
|
1929 (if (window-dedicated-p (selected-window)) |
81c88c75006b
(compile-mouse-goto-error, compile-goto-error):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39602
diff
changeset
|
1930 (pop-to-buffer (marker-buffer (cdr next-error))) |
24108
5f499867bc7e
(compilation-goto-locus): If already in the
Richard M. Stallman <rms@gnu.org>
parents:
24053
diff
changeset
|
1931 (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
|
1932 (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
|
1933 ;; 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
|
1934 ;; 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
|
1935 (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
|
1936 (progn |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1937 (widen) |
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1938 (goto-char (cdr next-error)))) |
26990
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1939 ;; If hideshow got in the way of |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1940 ;; seeing the right place, open permanently. |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1941 (mapcar (function (lambda (ov) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1942 (when (eq 'hs (overlay-get ov 'invisible)) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1943 (delete-overlay ov) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1944 (goto-char (cdr next-error))))) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1945 (overlays-at (point))) |
418 | 1946 |
6240
5ce2192f76e1
(compile-reinitialize-errors): Rename first arg from ARGP to REPARSE.
Roland McGrath <roland@gnu.org>
parents:
6197
diff
changeset
|
1947 ;; 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
|
1948 (let* ((pop-up-windows t) |
11804
7a7da7fca594
(compilation-next-error-locus): Ignore zero column number.
Roland McGrath <roland@gnu.org>
parents:
11791
diff
changeset
|
1949 ;; 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
|
1950 (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
|
1951 ;; Pop up a window. |
8483
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
1952 (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
|
1953 (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
|
1954 (set-window-start w (car next-error)) |
19dbc8373bec
(compilation-set-window-height): New function,
Richard M. Stallman <rms@gnu.org>
parents:
8425
diff
changeset
|
1955 (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
|
1956 |
10928
a008a9d8966a
(compilation-buffer-p): Fix braino in last change: switch to the buffer first.
Roland McGrath <roland@gnu.org>
parents:
10842
diff
changeset
|
1957 (defun compilation-find-file (marker filename dir &rest formats) |
26222 | 1958 "Find a buffer for file FILENAME. |
30878
13a1a0ec31e5
(grep): Provide a default set of files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30688
diff
changeset
|
1959 Search the directories in `compilation-search-path'. |
13a1a0ec31e5
(grep): Provide a default set of files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30688
diff
changeset
|
1960 A nil in `compilation-search-path' means to try the |
26222 | 1961 current directory, which is passed in DIR. |
1962 If FILENAME is not found at all, ask the user where to find it. | |
1963 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
|
1964 (or formats (setq formats '("%s"))) |
26990
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1965 (save-excursion |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1966 (let ((dirs compilation-search-path) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1967 buffer thisdir fmts name) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1968 (if (file-name-absolute-p filename) |
38493
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
1969 ;; The file name is absolute. Use its explicit directory as |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
1970 ;; the first in the search path, and strip it from FILENAME. |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
1971 (setq filename (abbreviate-file-name (expand-file-name filename)) |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
1972 dirs (cons (file-name-directory filename) dirs) |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
1973 filename (file-name-nondirectory filename))) |
26990
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1974 ;; Now search the path. |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1975 (while (and dirs (null buffer)) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1976 (setq thisdir (or (car dirs) dir) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1977 fmts formats) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1978 ;; For each directory, try each format string. |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1979 (while (and fmts (null buffer)) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1980 (setq name (expand-file-name (format (car fmts) filename) thisdir) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1981 buffer (and (file-exists-p name) |
30878
13a1a0ec31e5
(grep): Provide a default set of files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30688
diff
changeset
|
1982 (find-file-noselect name)) |
26990
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1983 fmts (cdr fmts))) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1984 (setq dirs (cdr dirs))) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1985 (or buffer |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1986 ;; The file doesn't exist. |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1987 ;; Ask the user where to find it. |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1988 ;; If he hits C-g, then the next time he does |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1989 ;; next-error, he'll skip past it. |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1990 (let* ((pop-up-windows t) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1991 (w (display-buffer (marker-buffer marker)))) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1992 (set-window-point w marker) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1993 (set-window-start w marker) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1994 (let ((name (expand-file-name |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1995 (read-file-name |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1996 (format "Find this error in: (default %s) " |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1997 filename) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1998 dir filename t)))) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
1999 (if (file-directory-p name) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
2000 (setq name (expand-file-name filename name))) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
2001 (setq buffer (and (file-exists-p name) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
2002 (find-file name)))))) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
2003 ;; Make intangible overlays tangible. |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
2004 (mapcar (function (lambda (ov) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
2005 (when (overlay-get ov 'intangible) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
2006 (overlay-put ov 'intangible nil)))) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
2007 (overlays-in (point-min) (point-max))) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
2008 buffer))) |
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
2009 |
46324
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2010 (defun compilation-normalize-filename (filename) |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2011 "Convert a filename string found in an error message to make it usable." |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2012 |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2013 ;; Check for a comint-file-name-prefix and prepend it if |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2014 ;; appropriate. (This is very useful for |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2015 ;; compilation-minor-mode in an rlogin-mode buffer.) |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2016 (and (boundp 'comint-file-name-prefix) |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2017 ;; If file name is relative, default-directory will |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2018 ;; already contain the comint-file-name-prefix (done |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2019 ;; by compile-abbreviate-directory). |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2020 (file-name-absolute-p filename) |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2021 (setq filename |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2022 (concat comint-file-name-prefix filename))) |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2023 |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2024 ;; If compilation-parse-errors-filename-function is |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2025 ;; defined, use it to process the filename. |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2026 (when compilation-parse-errors-filename-function |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2027 (setq filename |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2028 (funcall compilation-parse-errors-filename-function |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2029 filename))) |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2030 |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2031 ;; Some compilers (e.g. Sun's java compiler, reportedly) |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2032 ;; produce bogus file names like "./bar//foo.c" for file |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2033 ;; "bar/foo.c"; expand-file-name will collapse these into |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2034 ;; "/foo.c" and fail to find the appropriate file. So we |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2035 ;; look for doubled slashes in the file name and fix them |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2036 ;; up in the buffer. |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2037 (setq filename (command-line-normalize-file-name filename))) |
418 | 2038 |
2039 ;; Set compilation-error-list to nil, and unchain the markers that point to the | |
2040 ;; error messages and their text, so that they no longer slow down gap motion. | |
2041 ;; This would happen anyway at the next garbage collection, but it is better to | |
894 | 2042 ;; do it right away. |
34845
98dd828601f2
(compilation-forget-errors): Fix indentation.
Gerd Moellmann <gerd@gnu.org>
parents:
33493
diff
changeset
|
2043 (defun compilation-forget-errors () |
71 | 2044 (while compilation-old-error-list |
2045 (let ((next-error (car compilation-old-error-list))) | |
2046 (set-marker (car next-error) nil) | |
418 | 2047 (if (markerp (cdr next-error)) |
2048 (set-marker (cdr next-error) nil))) | |
71 | 2049 (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
|
2050 (setq compilation-error-list nil |
25426
a08bfd064439
(compilation-parsing-end,compilation-setup)
Richard M. Stallman <rms@gnu.org>
parents:
24894
diff
changeset
|
2051 compilation-directory-stack (list default-directory)) |
44139
d7e7a906dbe4
(compilation-forget-errors): Don't adjust compilation-parsing-end if it's nil.
Richard M. Stallman <rms@gnu.org>
parents:
43135
diff
changeset
|
2052 (if compilation-parsing-end |
d7e7a906dbe4
(compilation-forget-errors): Don't adjust compilation-parsing-end if it's nil.
Richard M. Stallman <rms@gnu.org>
parents:
43135
diff
changeset
|
2053 (set-marker compilation-parsing-end 1)) |
16518
851101d4ba84
(compile-highlight-display-limit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16448
diff
changeset
|
2054 ;; Remove the highlighting added by compile-reinitialize-errors: |
24284
c8a762e57cf6
(compilation-setup): Set value of
Richard M. Stallman <rms@gnu.org>
parents:
24264
diff
changeset
|
2055 (let ((inhibit-read-only t) |
c8a762e57cf6
(compilation-setup): Set value of
Richard M. Stallman <rms@gnu.org>
parents:
24264
diff
changeset
|
2056 (buffer-undo-list t) |
c8a762e57cf6
(compilation-setup): Set value of
Richard M. Stallman <rms@gnu.org>
parents:
24264
diff
changeset
|
2057 deactivate-mark) |
38077
7137508c16aa
(compile-reinitialize-errors): Add help-echo to mouse-highlighted messages.
Eli Zaretskii <eliz@gnu.org>
parents:
37250
diff
changeset
|
2058 (remove-text-properties (point-min) (point-max) |
7137508c16aa
(compile-reinitialize-errors): Add help-echo to mouse-highlighted messages.
Eli Zaretskii <eliz@gnu.org>
parents:
37250
diff
changeset
|
2059 '(mouse-face highlight help-echo nil)))) |
418 | 2060 |
2061 | |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2062 ;; 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
|
2063 ;; Does anyone else need it or can it be deleted? |
418 | 2064 (defun count-regexp-groupings (regexp) |
2065 "Return the number of \\( ... \\) groupings in REGEXP (a string)." | |
2066 (let ((groupings 0) | |
2067 (len (length regexp)) | |
2068 (i 0) | |
2069 c) | |
2070 (while (< i len) | |
2071 (setq c (aref regexp i) | |
2072 i (1+ i)) | |
2073 (cond ((= c ?\[) | |
2074 ;; Find the end of this [...]. | |
2075 (while (and (< i len) | |
2076 (not (= (aref regexp i) ?\]))) | |
2077 (setq i (1+ i)))) | |
2078 ((= c ?\\) | |
2079 (if (< i len) | |
2080 (progn | |
2081 (setq c (aref regexp i) | |
2082 i (1+ i)) | |
2083 (if (= c ?\)) | |
2084 ;; We found the end of a grouping, | |
2085 ;; so bump our counter. | |
2086 (setq groupings (1+ groupings)))))))) | |
2087 groupings)) | |
71 | 2088 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2089 (defvar compilation-current-file nil |
26222 | 2090 "Used by `compilation-parse-errors' to store filename for file being compiled.") |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2091 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2092 ;; 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
|
2093 ;; 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
|
2094 ;; 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
|
2095 (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
|
2096 |
907 | 2097 (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
|
2098 "Parse the current buffer as grep, cc, lint or other error messages. |
418 | 2099 See variable `compilation-parse-errors-function' for the interface it uses." |
71 | 2100 (setq compilation-error-list nil) |
2101 (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
|
2102 (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
|
2103 (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
|
2104 (let* ((compilation-regexps nil) ; Variable set by compile-collect-regexps. |
21930
b84bfe98263d
* progmodes/compile.el (compilation-directory-stack): Doc fix.
Andreas Schwab <schwab@suse.de>
parents:
21224
diff
changeset
|
2105 (default-directory (car compilation-directory-stack)) |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2106 (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
|
2107 (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
|
2108 ;; 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
|
2109 ;; 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
|
2110 ;; 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
|
2111 (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
|
2112 (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
|
2113 (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
|
2114 (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
|
2115 (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
|
2116 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2117 ;; 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
|
2118 ;; (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
|
2119 ;; 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
|
2120 (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
|
2121 (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
|
2122 (compile-collect-regexps 'file compilation-file-regexp-alist) |
28936
3d4074eb27ed
(compilation-parse-errors): Collect
Gerd Moellmann <gerd@gnu.org>
parents:
28495
diff
changeset
|
2123 (compile-collect-regexps 'error compilation-error-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
|
2124 (compile-collect-regexps 'nomessage compilation-nomessage-regexp-alist) |
418 | 2125 |
71 | 2126 ;; Don't reparse messages already seen at last parse. |
2127 (goto-char compilation-parsing-end) | |
18565
1df558397136
(compilation-parse-errors): Skip 2 lines only for Compilation major mode.
Richard M. Stallman <rms@gnu.org>
parents:
18477
diff
changeset
|
2128 (when (and (bobp) |
26488
bfcbc828fdbc
(compilation-parse-errors): Use
Gerd Moellmann <gerd@gnu.org>
parents:
26243
diff
changeset
|
2129 (compilation-buffer-p (current-buffer))) |
18565
1df558397136
(compilation-parse-errors): Skip 2 lines only for Compilation major mode.
Richard M. Stallman <rms@gnu.org>
parents:
18477
diff
changeset
|
2130 (setq compilation-current-file nil) ; No current file at start. |
1df558397136
(compilation-parse-errors): Skip 2 lines only for Compilation major mode.
Richard M. Stallman <rms@gnu.org>
parents:
18477
diff
changeset
|
2131 ;; Don't parse the first two lines as error messages. |
1df558397136
(compilation-parse-errors): Skip 2 lines only for Compilation major mode.
Richard M. Stallman <rms@gnu.org>
parents:
18477
diff
changeset
|
2132 ;; This matters for grep. |
1df558397136
(compilation-parse-errors): Skip 2 lines only for Compilation major mode.
Richard M. Stallman <rms@gnu.org>
parents:
18477
diff
changeset
|
2133 (forward-line 2)) |
418 | 2134 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2135 ;; Parse messages. |
42939
0786ea38f9fd
(compilation-handle-exit):
Richard M. Stallman <rms@gnu.org>
parents:
42408
diff
changeset
|
2136 (while (not (or found-desired (eobp) |
0786ea38f9fd
(compilation-handle-exit):
Richard M. Stallman <rms@gnu.org>
parents:
42408
diff
changeset
|
2137 ;; Don't parse the "compilation finished" message |
0786ea38f9fd
(compilation-handle-exit):
Richard M. Stallman <rms@gnu.org>
parents:
42408
diff
changeset
|
2138 ;; as a compilation error. |
0786ea38f9fd
(compilation-handle-exit):
Richard M. Stallman <rms@gnu.org>
parents:
42408
diff
changeset
|
2139 (get-text-property (point) 'compilation-handle-exit))) |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2140 (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
|
2141 ;; 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
|
2142 ;; 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
|
2143 ;; 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
|
2144 ;; 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
|
2145 (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
|
2146 (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
|
2147 (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
|
2148 (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
|
2149 (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
|
2150 ;;; (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
|
2151 ;;; (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
|
2152 ;;; (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
|
2153 ;;; (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
|
2154 ;;; (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
|
2155 )) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2156 (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
|
2157 (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
|
2158 (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
|
2159 (filename |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2160 (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
|
2161 stack) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2162 (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
|
2163 (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
|
2164 (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
|
2165 (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
|
2166 ;; (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
|
2167 ;; 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
|
2168 ;; 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
|
2169 (car alist))) |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2170 ;; 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
|
2171 (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
|
2172 (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
|
2173 this-error) |
935 | 2174 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2175 ;; 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
|
2176 (or filename |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2177 ;; 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
|
2178 (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
|
2179 (error "\ |
26222 | 2180 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
|
2181 |
46324
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2182 ;; Clean up the file name string in several ways. |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2183 (setq filename (compilation-normalize-filename filename)) |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2184 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2185 (setq filename |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2186 (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
|
2187 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2188 ;; 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
|
2189 ;; 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
|
2190 ;; 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
|
2191 ;; 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
|
2192 ;; 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
|
2193 ;; line containing the match. |
19887
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2194 (setq this-error |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2195 (if (numberp linenum) |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2196 (list (point-marker) filename linenum |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2197 (and column (string-to-int column))) |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2198 ;; If linenum is not a number then it must be |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2199 ;; a function returning an error position |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2200 ;; descriptor or nil (meaning no position). |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2201 (save-excursion |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2202 (funcall linenum filename column)))) |
26990
5d153e0fe112
(compilation-goto-locus): Delete hideshow overlays if they interfere.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
26488
diff
changeset
|
2203 |
19887
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2204 ;; We have an error position descriptor. |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2205 ;; If we have found as many new errors as the user |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2206 ;; wants, or if we are past the buffer position he |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2207 ;; indicated, then we continue to parse until we have |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2208 ;; seen all consecutive errors in the same file. This |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2209 ;; means that all the errors of a source file will be |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2210 ;; seen in one parsing run, so that the error positions |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2211 ;; will be recorded as markers in the source file |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2212 ;; buffer that will move when the buffer is changed. |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2213 (if (and this-error |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2214 compilation-error-list ; At least one previous. |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2215 (or (and find-at-least |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2216 (>= compilation-num-errors-found |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2217 find-at-least)) |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2218 (and limit-search |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2219 (>= end-of-match limit-search))) |
38493
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
2220 ;; `this-error' could contain a pair of |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
2221 ;; markers already. |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
2222 (let ((thispos (cdr this-error)) |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
2223 (lastpos (cdar compilation-error-list))) |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
2224 (not (equal |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
2225 (if (markerp thispos) |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
2226 (marker-buffer thispos) |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
2227 (car thispos)) |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
2228 (if (markerp lastpos) |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
2229 (marker-buffer lastpos) |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
2230 (car lastpos)))))) |
19887
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2231 ;; We are past the limits and the last error |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2232 ;; parsed, didn't belong to the same source file |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2233 ;; as the earlier ones i.e. we have seen all the |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2234 ;; errors belonging to the earlier file. We don't |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2235 ;; add the error just parsed so that the next |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2236 ;; parsing run can get it and the following errors |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2237 ;; in the same file all at once. |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2238 (setq found-desired t) |
5605
fcf3556282dc
(compilation-error-regexp-alist): Add regexp for Lucid lcc.
Roland McGrath <roland@gnu.org>
parents:
5475
diff
changeset
|
2239 |
19887
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2240 (goto-char end-of-match) ; Prepare for next message. |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2241 ;; Don't add the same source line more than once. |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2242 (and this-error |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2243 (not (and |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2244 compilation-error-list |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2245 (equal (cdr (car compilation-error-list)) |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2246 (cdr this-error)))) |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2247 (setq compilation-error-list |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2248 (cons this-error compilation-error-list) |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2249 compilation-num-errors-found |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2250 (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
|
2251 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2252 ;; 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
|
2253 (if (eq type `file) ; Change current file. |
46324
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2254 (when filename |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2255 (setq compilation-current-file |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2256 ;; Clean up the file name string in several ways. |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2257 (compilation-normalize-filename filename))) |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2258 ;; 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
|
2259 (setq stack compilation-directory-stack) |
46324
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2260 ;; Don't check if it is really a directory. |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2261 ;; Let the code to search and clean up file names |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2262 ;; try to use it in any case. |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2263 (when filename |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2264 ;; Clean up the directory name string in several ways. |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2265 (setq filename (compilation-normalize-filename filename)) |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2266 (setq filename |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2267 ;; The directory name in the message |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2268 ;; is a truename. Try to convert it to a form |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2269 ;; like what the user typed in. |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2270 (compile-abbreviate-directory |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2271 (file-name-as-directory |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2272 (expand-file-name filename)) |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2273 orig orig-expanded parent-expanded)) |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2274 (if (eq type 'leave) |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2275 ;; If we are leaving a specific directory, |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2276 ;; as preparation, pop out of all other directories |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2277 ;; that we entered nested within it. |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2278 (while (and stack |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2279 (not (string-equal (car stack) |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2280 filename))) |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2281 (setq stack (cdr stack))) |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2282 (setq compilation-directory-stack |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2283 (cons filename compilation-directory-stack) |
d992f5698971
(compilation-normalize-filename):
Richard M. Stallman <rms@gnu.org>
parents:
45829
diff
changeset
|
2284 default-directory filename))) |
17866
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
2285 (and (eq type 'leave) |
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
2286 stack |
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
2287 (setq compilation-directory-stack (cdr stack)) |
7d458582345c
(compilation-parse-errors): Fix paren error.
Richard M. Stallman <rms@gnu.org>
parents:
17653
diff
changeset
|
2288 (setq stack (car compilation-directory-stack)) |
19887
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2289 (setq default-directory stack))) |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2290 (goto-char end-of-match) ; Prepare to look at next message. |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2291 (and limit-search (>= end-of-match limit-search) |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2292 ;; The user wanted a specific error, and we're past it. |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2293 ;; We do this check here rather than at the end of the |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2294 ;; loop because if the last thing seen is an error |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2295 ;; message, we must carefully discard the last error |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2296 ;; when it is the first in a new file (see above in |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2297 ;; the error-message case) |
ff933683a5c5
(compilation-parse-errors): Fixed two bugs that
Richard M. Stallman <rms@gnu.org>
parents:
19766
diff
changeset
|
2298 (setq found-desired t))) |
935 | 2299 |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2300 ;; 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
|
2301 ;; 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
|
2302 ;; 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
|
2303 ;; 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
|
2304 ;; 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
|
2305 (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
|
2306 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2307 ;; 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
|
2308 ;; 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
|
2309 (message |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2310 "Parsing error messages...%d found. %.0f%% of buffer seen." |
1133 | 2311 compilation-num-errors-found |
5472
ed690a728e13
(compilation-buffer-p): Move defsubst before all callers.
Roland McGrath <roland@gnu.org>
parents:
5456
diff
changeset
|
2312 ;; 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
|
2313 ;; 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
|
2314 (/ (* 100.0 (point)) (point-max))) |
42939
0786ea38f9fd
(compilation-handle-exit):
Richard M. Stallman <rms@gnu.org>
parents:
42408
diff
changeset
|
2315 ))) |
935 | 2316 |
42939
0786ea38f9fd
(compilation-handle-exit):
Richard M. Stallman <rms@gnu.org>
parents:
42408
diff
changeset
|
2317 (forward-line 1)) ; End of while loop. Look at next line. |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2318 |
25426
a08bfd064439
(compilation-parsing-end,compilation-setup)
Richard M. Stallman <rms@gnu.org>
parents:
24894
diff
changeset
|
2319 (set-marker compilation-parsing-end (point)) |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2320 (setq compilation-error-list (nreverse compilation-error-list)) |
38493
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
2321 ;; (message "Parsing error messages...done. %d found. %.0f%% of buffer seen." |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
2322 ;; compilation-num-errors-found |
864c2b4076f8
(compilation-parse-errors): `linenum' might return a this-error using
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
2323 ;; (/ (* 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
|
2324 (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
|
2325 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2326 (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
|
2327 ;; 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
|
2328 ;; 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
|
2329 (and (not (eq this t)) |
32195
e0870d1a8c33
(compile-collect-regexps): Use dolist and push.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30878
diff
changeset
|
2330 (dolist (el this) |
e0870d1a8c33
(compile-collect-regexps): Use dolist and push.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30878
diff
changeset
|
2331 (push (cons (car el) (cons type (cdr el))) compilation-regexps)))) |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2332 |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2333 (defun compile-buffer-substring (index) |
26222 | 2334 "Get substring matched by INDEXth subexpression." |
17623
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2335 (if index |
a09fd9348b0d
Support compilers that give a message each time the file being
Richard M. Stallman <rms@gnu.org>
parents:
17582
diff
changeset
|
2336 (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
|
2337 (if beg (buffer-substring beg (match-end index)))))) |
71 | 2338 |
3940
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
2339 ;; 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
|
2340 ;; 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
|
2341 ;; ORIG-EXPANDED is an expanded version of ORIG. |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
2342 ;; 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
|
2343 ;; 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
|
2344 ;; having the caller compute them just once. |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
2345 (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
|
2346 ;; 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
|
2347 ;; 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
|
2348 (setq dir (abbreviate-file-name dir)) |
7c0b93d3df6b
(compilation-find-file): If FILENAME is absolute, apply
Roland McGrath <roland@gnu.org>
parents:
12029
diff
changeset
|
2349 |
5475
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
2350 ;; 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
|
2351 ;; (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
|
2352 ;; buffer.) |
e723f6be6239
(compilation-parse-errors): Prepend comint-file-name-prefix (if boundp) to
Roland McGrath <roland@gnu.org>
parents:
5472
diff
changeset
|
2353 (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
|
2354 (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
|
2355 |
3940
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
2356 (if (and (> (length dir) (length orig-expanded)) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
2357 (string= orig-expanded |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
2358 (substring dir 0 (length orig-expanded)))) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
2359 (setq dir |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
2360 (concat orig |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
2361 (substring dir (length orig-expanded))))) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
2362 (if (and (> (length dir) (length parent-expanded)) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
2363 (string= parent-expanded |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
2364 (substring dir 0 (length parent-expanded)))) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
2365 (setq dir |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
2366 (concat (file-name-directory |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
2367 (directory-file-name orig)) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
2368 (substring dir (length parent-expanded))))) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
2369 dir) |
aa9f37730d77
(compile-abbreviate-directory): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3875
diff
changeset
|
2370 |
29078 | 2371 (add-to-list 'debug-ignored-errors "^No more errors\\( yet\\|\\)$") |
2372 | |
621 | 2373 (provide 'compile) |
712
16823e891d56
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
621
diff
changeset
|
2374 |
16823e891d56
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
621
diff
changeset
|
2375 ;;; compile.el ends here |