Mercurial > emacs
comparison lisp/progmodes/compile.el @ 51797:7ea30d8ab42d
(compile-auto-highlight): Default now t.
(compile): Doc fix.
(compilation-next-error): Fix previous change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 07 Jul 2003 20:53:19 +0000 |
parents | e21c970a414e |
children | d11e55dcc374 |
comparison
equal
deleted
inserted
replaced
51796:09e60f24d0c4 | 51797:7ea30d8ab42d |
---|---|
48 "*Number of lines in a compilation window. If nil, use Emacs default." | 48 "*Number of lines in a compilation window. If nil, use Emacs default." |
49 :type '(choice (const :tag "Default" nil) | 49 :type '(choice (const :tag "Default" nil) |
50 integer) | 50 integer) |
51 :group 'compilation) | 51 :group 'compilation) |
52 | 52 |
53 (defcustom compile-auto-highlight nil | 53 (defcustom compile-auto-highlight t |
54 "*Specify how many compiler errors to highlight (and parse) initially. | 54 "*Specify how many compiler errors to highlight (and parse) initially. |
55 \(Highlighting applies to an error message when the mouse is over it.) | 55 \(Highlighting applies to an error message when the mouse is over it.) |
56 If this is a number N, all compiler error messages in the first N lines | 56 If this is a number N, all compiler error messages in the first N lines |
57 are highlighted and parsed as soon as they arrive in Emacs. | 57 are highlighted and parsed as soon as they arrive in Emacs. |
58 If t, highlight and parse the whole compilation output as soon as it arrives. | 58 If t, highlight and parse the whole compilation output as soon as it arrives. |
642 and move to the source code that caused it. | 642 and move to the source code that caused it. |
643 | 643 |
644 Interactively, prompts for the command if `compilation-read-command' is | 644 Interactively, prompts for the command if `compilation-read-command' is |
645 non-nil; otherwise uses `compile-command'. With prefix arg, always prompts. | 645 non-nil; otherwise uses `compile-command'. With prefix arg, always prompts. |
646 | 646 |
647 To run more than one compilation at once, start one and rename the | 647 To run more than one compilation at once, start one and rename |
648 \`*compilation*' buffer to some other name with \\[rename-buffer]. | 648 the \`*compilation*' buffer to some other name with |
649 Then start the next one. | 649 \\[rename-buffer]. Then start the next one. On most systems, |
650 termination of the main compilation process kills its | |
651 subprocesses. | |
650 | 652 |
651 The name used for the buffer is actually whatever is returned by | 653 The name used for the buffer is actually whatever is returned by |
652 the function in `compilation-buffer-name-function', so you can set that | 654 the function in `compilation-buffer-name-function', so you can set that |
653 to a function that generates a unique name." | 655 to a function that generates a unique name." |
654 (interactive | 656 (interactive |
1406 e (cdr e))) | 1408 e (cdr e))) |
1407 (if (> (- n) i) | 1409 (if (> (- n) i) |
1408 (error "Moved back past first error") | 1410 (error "Moved back past first error") |
1409 (nth (+ i n) compilation-old-error-list))) | 1411 (nth (+ i n) compilation-old-error-list))) |
1410 (save-excursion | 1412 (save-excursion |
1411 (while (> n 0) | 1413 (while (and (> n 0) errors) |
1412 ;; Discard the current error and any previous. | 1414 ;; Discard the current error and any previous. |
1413 (while (>= (point) (car (car errors))) | 1415 (while (and errors (>= (point) (car (car errors)))) |
1414 (setq errors (cdr errors))) | 1416 (setq errors (cdr errors))) |
1415 ;; Now (car errors) is the next error. | 1417 ;; Now (car errors) is the next error. |
1416 ;; If we want to move down more errors, | 1418 ;; If we want to move down more errors, |
1417 ;; put point at this one and start again. | 1419 ;; put point at this one and start again. |
1418 (setq n (1- n)) | 1420 (setq n (1- n)) |