Mercurial > emacs
changeset 87893:160807cd63a7
(vc-diff-sentinel): Do not write a footer if there were differences.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 22 Jan 2008 06:39:27 +0000 |
| parents | 3e7b6b0c4599 |
| children | 7ee9516c981a |
| files | lisp/vc.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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 <spiegel@gnu.org> @@ -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))