(vc-fetch-master-properties): Be more careful

about killing the *vc-info* buffer.

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index d4146b354b60026d94974bbf216709ebe5c6dfa0..e14d4c2cea0742a2a8c57f1d491894072f0b0e38 100644 (file)
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -308,7 +308,8 @@ value of this flag.")
              ((string-match "Needs Merge" status)
               (vc-file-setprop file 'vc-cvs-status 'needs-merge))
              (t (vc-file-setprop file 'vc-cvs-status nil))))))
-    (kill-buffer (current-buffer))))
+    (if (get-buffer "*vc-info*")
+       (kill-buffer (get-buffer "*vc-info*")))))
 
 ;;; Functions that determine property values, by examining the 
 ;;; working file, the master file, or log program output