# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 1210930217 0
# Node ID 4a0b47d5274d1898ac8dfe77bae1d27533f09f06
# Parent  0f15001fd14272bafc9603527436fb84377756d9
Clean up after granbbing CVS/Root info.

diff -r 0f15001fd142 -r 4a0b47d5274d lisp/vc-cvs.el
--- a/lisp/vc-cvs.el	Fri May 16 09:23:22 2008 +0000
+++ b/lisp/vc-cvs.el	Fri May 16 09:30:17 2008 +0000
@@ -927,7 +927,7 @@
 	     (save-excursion 
 	       (set-buffer (find-file-noselect "CVS/Root" t))
 	       (and (looking-at ":ext:") (delete-char 5))
-	       (buffer-string))
+	       (prog1 (buffer-string) (not-modified) (kill-buffer nil)))
 	   nil)))
     (concat
      ;; FIXME: see how PCL-CVS gets the data to print all these