diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-05-13 12:05:52 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-05-13 12:05:52 +0000 |
| commit | 36bed8bc8c065de1d27b73cb03222db46da6b43f (patch) | |
| tree | 534cd150e29fd8c11050d6e9a1dc7a15acad7bd4 /lisp/vc.el | |
| parent | 41e7816ac50663250b6ff4bc16d8b95a214bbc73 (diff) | |
| download | emacs-36bed8bc8c065de1d27b73cb03222db46da6b43f.tar.gz | |
(vc-version-diff): Don't move point in current buffer.
Diffstat (limited to 'lisp/vc.el')
| -rw-r--r-- | lisp/vc.el | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 6073ebe86df..2b7df01e99a 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -775,15 +775,9 @@ files in or below it." (goto-char (point-min)) (set-buffer-modified-p nil) ) - (progn - (vc-backend-diff file rel1 rel2) - (goto-char (point-min)) - (if (equal (point-min) (point-max)) - (message "No changes to %s between %s and %s." file rel1 rel2) - (pop-to-buffer "*vc*") - (goto-char (point-min)) - ) - ) + (if (zerop (vc-backend-diff file rel1 rel2)) + (message "No changes to %s between %s and %s." file rel1 rel2) + (pop-to-buffer "*vc*") ) ) |