Mercurial > emacs
comparison lisp/progmodes/compile.el @ 44139:d7e7a906dbe4
(compilation-forget-errors): Don't adjust compilation-parsing-end if it's nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 25 Mar 2002 00:39:41 +0000 |
| parents | 10b506b00785 |
| children | 9501986a69c8 |
comparison
equal
deleted
inserted
replaced
| 44138:f1d7c706f7f7 | 44139:d7e7a906dbe4 |
|---|---|
| 1848 (if (markerp (cdr next-error)) | 1848 (if (markerp (cdr next-error)) |
| 1849 (set-marker (cdr next-error) nil))) | 1849 (set-marker (cdr next-error) nil))) |
| 1850 (setq compilation-old-error-list (cdr compilation-old-error-list))) | 1850 (setq compilation-old-error-list (cdr compilation-old-error-list))) |
| 1851 (setq compilation-error-list nil | 1851 (setq compilation-error-list nil |
| 1852 compilation-directory-stack (list default-directory)) | 1852 compilation-directory-stack (list default-directory)) |
| 1853 (set-marker compilation-parsing-end 1) | 1853 (if compilation-parsing-end |
| 1854 (set-marker compilation-parsing-end 1)) | |
| 1854 ;; Remove the highlighting added by compile-reinitialize-errors: | 1855 ;; Remove the highlighting added by compile-reinitialize-errors: |
| 1855 (let ((inhibit-read-only t) | 1856 (let ((inhibit-read-only t) |
| 1856 (buffer-undo-list t) | 1857 (buffer-undo-list t) |
| 1857 deactivate-mark) | 1858 deactivate-mark) |
| 1858 (remove-text-properties (point-min) (point-max) | 1859 (remove-text-properties (point-min) (point-max) |