(vc-version-diff): Don't move point in current buffer.

36bed8bc · Richard M. Stallman · 41e7816a · 36bed8bc
Commit 36bed8bc authored May 13, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 9 deletions

lisp/vc.el lisp/vc.el +3 -9

No files found.
--- 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*")
    )
  )