# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 736037332 0
# Node ID 3a56b8caf6c9c440f7738316063fdee21f473db2
# Parent  f80a342fd9451841c6a873ca899cae67af458092
(vc-revert-buffer1): Ignore non-marker elts of compilation-error-list.

diff -r f80a342fd945 -r 3a56b8caf6c9 lisp/vc.el
--- a/lisp/vc.el	Wed Apr 28 22:44:29 1993 +0000
+++ b/lisp/vc.el	Wed Apr 28 22:48:52 1993 +0000
@@ -282,10 +282,11 @@
 					  (buffer-error-marked-p nil))
 				      (while (and errors
 						  (not buffer-error-marked-p))
-					(if (eq buffer
-						(marker-buffer
-						 (car (cdr (car errors)))))
-					    (setq buffer-error-marked-p t))
+					(and (markerp (car (cdr (car errors))))
+					     (eq buffer
+						 (marker-buffer
+						  (car (cdr (car errors)))))
+					     (setq buffer-error-marked-p t))
 					(setq errors (cdr errors)))
 				      (if buffer-error-marked-p buffer)))
 				  (buffer-list)))))))