Mercurial > emacs
diff lisp/vc.el @ 85175:7d4d92ce0b88
Corrected version of Juanma's fix patch.
.
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Thu, 11 Oct 2007 16:53:58 +0000 |
parents | 9a5e220ae278 |
children | 435ebb14becf |
line wrap: on
line diff
--- 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