diff options
| author | Richard M. Stallman | 1993-05-13 12:05:52 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-13 12:05:52 +0000 |
| commit | 36bed8bc8c065de1d27b73cb03222db46da6b43f (patch) | |
| tree | 534cd150e29fd8c11050d6e9a1dc7a15acad7bd4 | |
| parent | 41e7816ac50663250b6ff4bc16d8b95a214bbc73 (diff) | |
| download | emacs-36bed8bc8c065de1d27b73cb03222db46da6b43f.tar.gz emacs-36bed8bc8c065de1d27b73cb03222db46da6b43f.zip | |
(vc-version-diff): Don't move point in current buffer.
| -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." | |||
| 775 | (goto-char (point-min)) | 775 | (goto-char (point-min)) |
| 776 | (set-buffer-modified-p nil) | 776 | (set-buffer-modified-p nil) |
| 777 | ) | 777 | ) |
| 778 | (progn | 778 | (if (zerop (vc-backend-diff file rel1 rel2)) |
| 779 | (vc-backend-diff file rel1 rel2) | 779 | (message "No changes to %s between %s and %s." file rel1 rel2) |
| 780 | (goto-char (point-min)) | 780 | (pop-to-buffer "*vc*") |
| 781 | (if (equal (point-min) (point-max)) | ||
| 782 | (message "No changes to %s between %s and %s." file rel1 rel2) | ||
| 783 | (pop-to-buffer "*vc*") | ||
| 784 | (goto-char (point-min)) | ||
| 785 | ) | ||
| 786 | ) | ||
| 787 | ) | 781 | ) |
| 788 | ) | 782 | ) |
| 789 | 783 | ||