From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 20 Jun 1995 01:07:28 +0000 (+0000)
Subject: (vc-fetch-master-properties): Be more careful
X-Git-Tag: emacs-19.34~3532
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3be2a3627fbfcab83cf04bd2c30d82dab4bc5855;p=emacs.git

(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 d4146b354b6..e14d4c2cea0 100644
--- 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