(vc-ensure-vc-buffer): Check liveness of vc-parent-buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4896c2c1f142f54e2dba48fc8916175836e380c7..095ef8e67831f25fd70833323fd9d2dea5c1624e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-01-06  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * vc.el (vc-ensure-vc-buffer): Check liveness of vc-parent-buffer.
+
 2008-01-06  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * vc.el (vc-status-fileinfo): New defstruct.

diff --git a/lisp/vc.el b/lisp/vc.el
index 9e5df6865463c21bc62805e70ec36393ec7ee739..61a2c67d9d42c5d857a11eae8ac7af3719e25094 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1310,6 +1310,7 @@ Otherwise, throw an error."
   (if vc-dired-mode
       (set-buffer (find-file-noselect (dired-get-filename)))
     (while (and vc-parent-buffer
+                (buffer-live-p vc-parent-buffer)
                ;; Avoid infinite looping when vc-parent-buffer and
                ;; current buffer are the same buffer.
                (not (eq vc-parent-buffer (current-buffer))))