(vc-diff-sentinel): Do not write a footer if there were differences.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5045c30b3e4b29f4334770dfdfd768ec55f81dee..6fd1b706a9c74f4ccd183d170064c53807edd0b9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-22  Glenn Morris  <rgm@gnu.org>
+
+       * vc.el (vc-diff-sentinel): Do not write a footer if there were
+       differences.
+
 2008-01-21  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * pcvs-defs.el (cvs-menu): Improve cvs-mode-find-file,

diff --git a/lisp/vc.el b/lisp/vc.el
index ffe38a68521c8e4fb16742e836feb325b4b8d066..38338d7f3951510ae81e6b517c64f144c35ed7ec 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1,7 +1,8 @@
 ;;; vc.el --- drive a version-control system from within Emacs
 
 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000,
-;;   2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;;   2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
+;;   Free Software Foundation, Inc.
 
 ;; Author:     FSF (see below for full credits)
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
@@ -1951,11 +1952,10 @@ the buffer contents as a comment."
   ;; possibility of an empty output is for an async process, in which case
   ;; it's important to insert the "diffs end here" message in the buffer
   ;; since the user may miss a message in the echo area.
-  (when verbose
-    (let ((inhibit-read-only t))
-      (if (eq (buffer-size) 0)
-          (insert "No differences found.\n")
-        (insert (format "\n\nDiffs between %s and %s end here." rev1-name rev2-name)))))
+  (and verbose
+       (zerop (buffer-size))
+       (let ((inhibit-read-only t))
+         (insert "No differences found.\n")))
   (goto-char (point-min))
   (shrink-window-if-larger-than-buffer))