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

about killing the *vc-info* buffer.

(vc-fetch-master-properties): Be more careful
about killing the *vc-info* buffer.
3be2a362 · Richard M. Stallman · f560db78 · 3be2a362
Commit 3be2a362 authored Jun 20, 1995 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/vc-hooks.el lisp/vc-hooks.el +2 -1

No files found.
--- 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