[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el

[Richard M. Stallman]

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