From 09eabf0fa5a289a2edc68b3455d8579ae79bb40b Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Fri, 16 May 2008 09:30:17 +0000 Subject: [PATCH] Clean up after granbbing CVS/Root info. --- lisp/vc-cvs.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index 1e9788487bc..40f601a7738 100644 --- a/lisp/vc-cvs.el +++ b/lisp/vc-cvs.el @@ -927,7 +927,7 @@ state." (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 -- 2.39.2