Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 05:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
André Spiegel 1996-09-08 11:52:05 +00:00
parent 4893a43797
commit 6dfe5fe02d
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/vc.el
View file

@ -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)
)