Mercurial > hg > xemacs-beta

comparison lisp/packages/compile.el @ 213:78f53ef88e17 r20-4b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b5
author cvs
date Mon, 13 Aug 2007 10:06:47 +0200
parents f53b5ca2e663
children
comparison
equal deleted inserted replaced
212:d8688acf4c5b 213:78f53ef88e17
125 (defvar compilation-error-message "No more errors" 125 (defvar compilation-error-message "No more errors"
126 "Message to print when no more matches are found.") 126 "Message to print when no more matches are found.")
127 127
128 (defvar compilation-num-errors-found) 128 (defvar compilation-num-errors-found)
129 129
130 (defcustom compilation-error-regexp-systems-list 'all
131 "*This is either the symbol `all', or a list of systems for which
132 compilation error regexps should be included in
133 `compilation-error-regexp-alist'.
134
135 The list of known systems is:
136 gnu: but of course
137 lcc: Lucid compilers
138 ada: Ada compilers
139 of: Using tool that says line xx of foo.c
140 comma: Using tool that says \"foo.c\", line 12
141 4bsd: Using 4bsd
142 msft: Using microsoft
143 borland: Using Borland
144 mips: Using Mips
145 sgi: Using SGI
146 cray: Using Cray
147 ibm: IBM C compilers
148 aix: the operating system
149 ultrix: the operating system
150
151 See also the variable `compilation-error-regexp-alist-alist'."
152 :type '(choice (const all)
153 (set :menu-tag "Pick"
154 (const gnu) (const lcc) (const ada)
155 (const of) (const comma) (const 4bsd)
156 (const msft) (const borland) (const mips)
157 (const sgi) (const cray) (const ibm)
158 (const aix) (const ultrix)))
159 :group 'compilation)
160
161 (defun compilation-build-compilation-error-regexp-alist () 130 (defun compilation-build-compilation-error-regexp-alist ()
131 "Set the regular expressions used for parsing compiler
132 errors based on the compilers listed in the variable
133 `compilation-error-regexp-systems-list'. Updates the
134 variable `compilation-error-regexp-alist'."
162 (interactive) 135 (interactive)
163 (setq compilation-error-regexp-alist 136 (setq compilation-error-regexp-alist
164 (apply 'append 137 (apply 'append
165 (mapcar 138 (mapcar
166 '(lambda (elt) 139 '(lambda (elt)
355 328
356 Note that this now gets set by the function 329 Note that this now gets set by the function
357 `compilation-build-compilation-error-regexp-alist' using the 330 `compilation-build-compilation-error-regexp-alist' using the
358 value of the variable `compilation-error-regexp-alist-alist'") 331 value of the variable `compilation-error-regexp-alist-alist'")
359 332
333 (defcustom compilation-error-regexp-systems-list 'all
334 "*This is either the symbol `all', or a list of systems for which
335 compilation error regexps should be included in
336 `compilation-error-regexp-alist'. You must run the function
337 `compilation-build-compilation-error-regexp-alist' after changing
338 the value of this variable for the change to take effect.
339
340 The list of known systems is:
341 gnu: but of course
342 lcc: Lucid compilers
343 ada: Ada compilers
344 of: Using tool that says line xx of foo.c
345 comma: Using tool that says \"foo.c\", line 12
346 4bsd: Using 4bsd
347 msft: Using microsoft
348 borland: Using Borland
349 mips: Using Mips
350 sgi: Using SGI
351 cray: Using Cray
352 ibm: IBM C compilers
353 aix: the operating system
354 ultrix: the operating system
355
356 See also the variable `compilation-error-regexp-alist-alist'."
357 :type '(choice (const all)
358 (set :menu-tag "Pick"
359 (const gnu) (const lcc) (const ada)
360 (const of) (const comma) (const 4bsd)
361 (const msft) (const borland) (const mips)
362 (const sgi) (const cray) (const ibm)
363 (const aix) (const ultrix)))
364 :set (lambda (symbol value)
365 (set-default symbol value)
366 (compilation-build-compilation-error-regexp-alist))
367 :group 'compilation)
368
360 (compilation-build-compilation-error-regexp-alist) 369 (compilation-build-compilation-error-regexp-alist)
361 370
362 (defcustom compilation-read-command t 371 (defcustom compilation-read-command t
363 "*If not nil, M-x compile reads the compilation command to use. 372 "*If not nil, M-x compile reads the compilation command to use.
364 Otherwise, M-x compile just uses the value of `compile-command'." 373 Otherwise, M-x compile just uses the value of `compile-command'."
456 465
457 ;; XEmacs change 466 ;; XEmacs change
458 (put 'compilation-mode 'font-lock-defaults 467 (put 'compilation-mode 'font-lock-defaults
459 '(compilation-font-lock-keywords t)) 468 '(compilation-font-lock-keywords t))
460 469
461 (defcustom compilation-mouse-motion-initiate-parsing t 470 (defcustom compilation-mouse-motion-initiate-parsing nil
462 "*Should mouse motion over the compilation buffer initiate parsing? 471 "*Should mouse motion over the compilation buffer initiate parsing?
463 When set to a non-nil value, mouse motion over the compilation/grep 472 When set to a non-nil value, mouse motion over the compilation/grep
464 buffer may initiate parsing of the error messages or grep hits. 473 buffer may initiate parsing of the error messages or grep hits.
465 When this is nil, errors and grep matches will no longer be 474 When this is nil, errors and grep matches will no longer be
466 highlighted until they have been parsed, but may still be selected 475 highlighted until they have been parsed, but may still be selected