changeset 2604:3a56b8caf6c9

(vc-revert-buffer1): Ignore non-marker elts of compilation-error-list.
author Roland McGrath <roland@gnu.org>
date Wed, 28 Apr 1993 22:48:52 +0000
parents f80a342fd945
children b3c605e9bb30
files lisp/vc.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)))))))