/[emacs]/emacs/lisp/progmodes/compile.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/compile.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.248 by rms, Sat Dec 29 20:31:14 2001 UTC revision 1.249 by rms, Fri Jan 25 02:36:36 2002 UTC
# Line 1150  Turning the mode on runs the normal hook Line 1150  Turning the mode on runs the normal hook
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)
# Line 1928  See variable `compilation-parse-errors-f Line 1931  See variable `compilation-parse-errors-f
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
# Line 2117  An error message with no file name and n Line 2123  An error message with no file name and n
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))

Legend:
Removed from v.1.248  
changed lines
  Added in v.1.249

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26