; * lisp/vc/vc-cvs.el (vc-cvs-file-to-string): Simplify slightly.

(cherry picked from commit 0a0ff0383906e519ed9b8f8c471b8ef5c44a3092)

diff --git a/lisp/vc/vc-cvs.el b/lisp/vc/vc-cvs.el
index 06597ed7853b6f691cd17e876f8af93750c1d2fb..0f3b862552081d02055564dbc46d739fcad91283 100644 (file)
--- a/lisp/vc/vc-cvs.el
+++ b/lisp/vc/vc-cvs.el
@@ -1093,9 +1093,8 @@ Query all files in DIR if files is nil."
   "Read the content of FILE and return it as a string."
   (condition-case nil
       (with-temp-buffer
-       (insert-file-contents file)
-       (goto-char (point-min))
-       (buffer-substring (point) (point-max)))
+        (insert-file-contents file)
+        (buffer-string))
     (file-error nil)))
 
 (defun vc-cvs-dir-extra-headers (_dir)