diff options
| author | Richard M. Stallman | 2002-03-25 00:39:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-03-25 00:39:41 +0000 |
| commit | 347c91407b0eba8a55d6bcf88fa80c2a7d4eab46 (patch) | |
| tree | ca57c25441c4205224621a06d29f4e84b3e26d31 | |
| parent | 86914dcca234e932bee38d01caa734aa74f4f7f6 (diff) | |
| download | emacs-347c91407b0eba8a55d6bcf88fa80c2a7d4eab46.tar.gz emacs-347c91407b0eba8a55d6bcf88fa80c2a7d4eab46.zip | |
(compilation-forget-errors): Don't adjust compilation-parsing-end if it's nil.
| -rw-r--r-- | lisp/progmodes/compile.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 1bf72c0b62e..6987293ea0f 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -1850,7 +1850,8 @@ Pop up the buffer containing MARKER and scroll to MARKER if we ask the user." | |||
| 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) |