1150 |
(forward-char -1)) |
(forward-char -1)) |
1151 |
(insert " at " (substring (current-time-string) 0 19)) |
(insert " at " (substring (current-time-string) 0 19)) |
1152 |
(goto-char (point-max)) |
(goto-char (point-max)) |
1153 |
|
;; Prevent that message from being recognized as a compilation error. |
1154 |
|
(add-text-properties omax (point) |
1155 |
|
(append '(compilation-handle-exit t) nil)) |
1156 |
(setq mode-line-process (format ":%s [%s]" process-status (cdr status))) |
(setq mode-line-process (format ":%s [%s]" process-status (cdr status))) |
1157 |
;; Force mode line redisplay soon. |
;; Force mode line redisplay soon. |
1158 |
(force-mode-line-update) |
(force-mode-line-update) |
1931 |
(forward-line 2)) |
(forward-line 2)) |
1932 |
|
|
1933 |
;; Parse messages. |
;; Parse messages. |
1934 |
(while (not (or found-desired (eobp))) |
(while (not (or found-desired (eobp) |
1935 |
|
;; Don't parse the "compilation finished" message |
1936 |
|
;; as a compilation error. |
1937 |
|
(get-text-property (point) 'compilation-handle-exit))) |
1938 |
(let ((this compilation-regexps) (prev nil) (alist nil) type) |
(let ((this compilation-regexps) (prev nil) (alist nil) type) |
1939 |
;; Go through the regular expressions. If a match is found, |
;; Go through the regular expressions. If a match is found, |
1940 |
;; variable alist is set to the corresponding alist and the |
;; variable alist is set to the corresponding alist and the |
2123 |
;; Use floating-point because (* 100 (point)) frequently |
;; Use floating-point because (* 100 (point)) frequently |
2124 |
;; exceeds the range of Emacs Lisp integers. |
;; exceeds the range of Emacs Lisp integers. |
2125 |
(/ (* 100.0 (point)) (point-max))) |
(/ (* 100.0 (point)) (point-max))) |
2126 |
)) |
))) |
2127 |
|
|
2128 |
(forward-line 1))) ; End of while loop. Look at next line. |
(forward-line 1)) ; End of while loop. Look at next line. |
2129 |
|
|
2130 |
(set-marker compilation-parsing-end (point)) |
(set-marker compilation-parsing-end (point)) |
2131 |
(setq compilation-error-list (nreverse compilation-error-list)) |
(setq compilation-error-list (nreverse compilation-error-list)) |