# HG changeset patch # User Richard M. Stallman # Date 741043854 0 # Node ID 0710180efd8bac992e289cc4bbce6ef05f06ea3a # Parent a2dc34c691ccc100052b3d932a507b37f02cdb2f (vc-diff): If `diff' gives empty output, return nil. diff -r a2dc34c691cc -r 0710180efd8b lisp/vc.el --- a/lisp/vc.el Fri Jun 25 06:41:54 1993 +0000 +++ b/lisp/vc.el Fri Jun 25 21:30:54 1993 +0000 @@ -726,8 +726,14 @@ ;; visited. This plays hell with numerous assumptions in ;; the diff.el and compile.el machinery. (pop-to-buffer "*vc*") - (vc-shrink-to-fit) - (goto-char (point-min)) + (pop-to-buffer "*vc*") + (if (= 0 (buffer-size)) + (progn + (setq unchanged t) + (message "No changes to %s since latest version." file)) + (vc-shrink-to-fit) + (goto-char (point-min))) + ) (not unchanged) )