comparison lisp/vc.el @ 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 244188795475
children 2c91cd1a660a
comparison
equal deleted inserted replaced
16137:dc1387f877d4 16138:852c9735c076
1570 (forward-line -1)) 1570 (forward-line -1))
1571 (goto-char (point-min)) 1571 (goto-char (point-min))
1572 (if (looking-at "[\b\t\n\v\f\r ]+") 1572 (if (looking-at "[\b\t\n\v\f\r ]+")
1573 (delete-char (- (match-end 0) (match-beginning 0)))) 1573 (delete-char (- (match-end 0) (match-beginning 0))))
1574 (shrink-window-if-larger-than-buffer) 1574 (shrink-window-if-larger-than-buffer)
1575 ;; move point to the log entry for the current version
1576 (if (not (eq (vc-backend file) 'SCCS))
1577 (let ((pos (re-search-forward
1578 ;; also match some context, for safety
1579 (concat "----\nrevision " (vc-workfile-version file)
1580 "\\(\tlocked by:.*\n\\|\n\\)date: ") nil t)))
1581 (if pos (progn (goto-char pos)
1582 (beginning-of-line)
1583 (forward-line -1)))))
1575 ) 1584 )
1576 (vc-registration-error buffer-file-name) 1585 (vc-registration-error buffer-file-name)
1577 ) 1586 )
1578 ) 1587 )
1579 1588