(vc-print-log): Move point to the log entry of the current version.

1 files changed, 9 insertions, 0 deletions

diff --git a/lisp/vc.el b/lisp/vc.el
index c1d946a3ac7..4fb84ab1356 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1572,6 +1572,15 @@ levels in the snapshot."
 	(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)
     )