# HG changeset patch
# User Andr��� Spiegel <spiegel@gnu.org>
# Date 842183525 0
# Node ID 852c9735c076751f3c98c27566bc1ec3d1b84d85
# Parent  dc1387f877d473607f0276331dc88a9a8ae0fad4
(vc-print-log): Move point to the log entry of the current version.

diff -r dc1387f877d4 -r 852c9735c076 lisp/vc.el
--- a/lisp/vc.el	Sat Sep 07 01:06:09 1996 +0000
+++ b/lisp/vc.el	Sun Sep 08 11:52:05 1996 +0000
@@ -1572,6 +1572,15 @@
 	(if (looking-at "[\b\t\n\v\f\r ]+")
 	    (delete-char (- (match-end 0) (match-beginning 0))))
 	(shrink-window-if-larger-than-buffer)
+	;; move point to the log entry for the current version
+	(if (not (eq (vc-backend file) 'SCCS))
+	    (let ((pos (re-search-forward
+			;; also match some context, for safety
+			(concat "----\nrevision " (vc-workfile-version file)
+				"\\(\tlocked by:.*\n\\|\n\\)date: ") nil t)))
+	      (if pos (progn (goto-char pos)
+			     (beginning-of-line)
+			     (forward-line -1)))))
 	)
     (vc-registration-error buffer-file-name)
     )