Corrected version of Juanma's fix patch.

.

diff --git a/lisp/vc.el b/lisp/vc.el
index a72921d0e3d9fbebb989410026e4f354aff81711..9c2a5097498d24962f3d4594e5dd2e40b0236a52 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1882,13 +1882,11 @@ The meaning of REV1 and REV2 is the same as for `vc-revision-diff'."
        ;; not available.  Work around that.
        (if (require 'diff-mode nil t) (diff-mode))
        (when verbose
-         (let (buffer-read-only t)
+         (let (buffer-read-only)
            (goto-char (point-max))
-           (if verbose
-               (insert (format "\n\nDiffs between %s and %s end here." rev1-name rev2-name)))
+           (insert (format "\n\nDiffs between %s and %s end here." rev1-name rev2-name))
            (goto-char (point-min))
-           (if verbose
-               (insert (format "Diffs between %s and %s:\n\n" rev1-name rev2-name)))))
+           (insert (format "Diffs between %s and %s:\n\n" rev1-name rev2-name))))
        (shrink-window-if-larger-than-buffer)
        t)
     (progn