(vc-revert-buffer1): Ignore non-marker elts of compilation-error-list.

1 files changed, 5 insertions, 4 deletions

diff --git a/lisp/vc.el b/lisp/vc.el
index 0f7a3557544..cbbec3bbb5b 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -282,10 +282,11 @@ the master name of FILE; this is appended to an optional list of FLAGS."
                                           (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)))))))