[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el |
Date: |
Thu, 24 Jan 2002 21:36:36 -0500 |
Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.248
emacs/lisp/progmodes/compile.el:1.249
*** emacs/lisp/progmodes/compile.el:1.248 Sat Dec 29 15:31:14 2001
--- emacs/lisp/progmodes/compile.el Thu Jan 24 21:36:36 2002
***************
*** 1150,1155 ****
--- 1150,1158 ----
(forward-char -1))
(insert " at " (substring (current-time-string) 0 19))
(goto-char (point-max))
+ ;; Prevent that message from being recognized as a compilation error.
+ (add-text-properties omax (point)
+ (append '(compilation-handle-exit t) nil))
(setq mode-line-process (format ":%s [%s]" process-status (cdr status)))
;; Force mode line redisplay soon.
(force-mode-line-update)
***************
*** 1928,1934 ****
(forward-line 2))
;; Parse messages.
! (while (not (or found-desired (eobp)))
(let ((this compilation-regexps) (prev nil) (alist nil) type)
;; Go through the regular expressions. If a match is found,
;; variable alist is set to the corresponding alist and the
--- 1931,1940 ----
(forward-line 2))
;; Parse messages.
! (while (not (or found-desired (eobp)
! ;; Don't parse the "compilation finished" message
! ;; as a compilation error.
! (get-text-property (point) 'compilation-handle-exit)))
(let ((this compilation-regexps) (prev nil) (alist nil) type)
;; Go through the regular expressions. If a match is found,
;; variable alist is set to the corresponding alist and the
***************
*** 2117,2125 ****
;; Use floating-point because (* 100 (point)) frequently
;; exceeds the range of Emacs Lisp integers.
(/ (* 100.0 (point)) (point-max)))
! ))
! (forward-line 1))) ; End of while loop. Look at next line.
(set-marker compilation-parsing-end (point))
(setq compilation-error-list (nreverse compilation-error-list))
--- 2123,2131 ----
;; Use floating-point because (* 100 (point)) frequently
;; exceeds the range of Emacs Lisp integers.
(/ (* 100.0 (point)) (point-max)))
! )))
! (forward-line 1)) ; End of while loop. Look at next line.
(set-marker compilation-parsing-end (point))
(setq compilation-error-list (nreverse compilation-error-list))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,
Richard M. Stallman <=