comparison lisp/vc.el @ 3895:0710180efd8b

(vc-diff): If `diff' gives empty output, return nil.

3894:a2dc34c691cc

	;; Unfortunately, this is just too painful to do.  The basic
	;; problem is that the `old' file doesn't exist to be
	;; 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))
	)
      (not unchanged)
      )
    )
  )

3895:0710180efd8b

	;; Unfortunately, this is just too painful to do.  The basic
	;; problem is that the `old' file doesn't exist to be
	;; visited.  This plays hell with numerous assumptions in
	;; the diff.el and compile.el machinery.
	(pop-to-buffer "*vc*")
	(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)
      )
    )
  )