From: André Spiegel <spiegel@gnu.org>
Date: Sun, 8 Sep 1996 11:52:05 +0000 (+0000)
Subject: (vc-print-log): Move point to the log entry of the current version.
X-Git-Tag: emacs-20.1~3806
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/6dfe5fe02d27ef3bee4e66fab056cfb02bba1247

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

diff --git a/lisp/vc.el b/lisp/vc.el
index c1d946a3ac..4fb84ab135 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)
     )