Mercurial > emacs
changeset 16138:852c9735c076
(vc-print-log): Move point to the log entry of the current version.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Sun, 08 Sep 1996 11:52:05 +0000 |
| parents | dc1387f877d4 |
| children | f557fb19a26d |
| files | lisp/vc.el |
| diffstat | 1 files changed, 9 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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) )