# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 1192121638 0
# Node ID 7d4d92ce0b885039773d1286fd3fc3ba21a36c01
# Parent  32540f0e375c728d14b69dbb1e6485691c784a67
Corrected version of Juanma's fix patch.
.

diff -r 32540f0e375c -r 7d4d92ce0b88 lisp/vc.el
--- a/lisp/vc.el	Thu Oct 11 16:39:44 2007 +0000
+++ b/lisp/vc.el	Thu Oct 11 16:53:58 2007 +0000
@@ -1882,13 +1882,11 @@
 	;; 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