# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1017016781 0
# Node ID d7e7a906dbe433b0d2dfe9704fbfa4d22c2b7ac7
# Parent  f1d7c706f7f75f52ad3e84e3c1a345501ac7ca75
(compilation-forget-errors): Don't adjust compilation-parsing-end if it's nil.

diff -r f1d7c706f7f7 -r d7e7a906dbe4 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Mon Mar 25 00:38:46 2002 +0000
+++ b/lisp/progmodes/compile.el	Mon Mar 25 00:39:41 2002 +0000
@@ -1850,7 +1850,8 @@
     (setq compilation-old-error-list (cdr compilation-old-error-list)))
   (setq compilation-error-list nil
 	compilation-directory-stack (list default-directory))
-  (set-marker compilation-parsing-end 1)
+  (if compilation-parsing-end
+      (set-marker compilation-parsing-end 1))
   ;; Remove the highlighting added by compile-reinitialize-errors:
   (let ((inhibit-read-only t)
 	(buffer-undo-list t)