# HG changeset patch # User Glenn Morris # Date 1200983967 0 # Node ID 160807cd63a7f94f32d94c451c898767882d3664 # Parent 3e7b6b0c4599c0b90d3976b070d0cac165622e4f (vc-diff-sentinel): Do not write a footer if there were differences. diff -r 3e7b6b0c4599 -r 160807cd63a7 lisp/vc.el --- a/lisp/vc.el Mon Jan 21 23:10:32 2008 +0000 +++ b/lisp/vc.el Tue Jan 22 06:39:27 2008 +0000 @@ -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 @@ -1951,11 +1952,10 @@ ;; 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))