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))