Mercurial > emacs
comparison lisp/log-view.el @ 67775:0a80642ab161
Call autoload for vc-find-version.
(log-view-current-file): Adjust subgroup numbers.
(log-view-current-tag): Add `length'.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Fri, 23 Dec 2005 21:49:32 +0000 |
| parents | 6f549652480e |
| children | 150225f41e97 |
comparison
equal
deleted
inserted
replaced
| 67774:4f8168154a54 | 67775:0a80642ab161 |
|---|---|
| 58 | 58 |
| 59 ;;; Code: | 59 ;;; Code: |
| 60 | 60 |
| 61 (eval-when-compile (require 'cl)) | 61 (eval-when-compile (require 'cl)) |
| 62 (require 'pcvs-util) | 62 (require 'pcvs-util) |
| 63 (autoload 'vc-find-version "vc") | |
| 63 (autoload 'vc-version-diff "vc") | 64 (autoload 'vc-version-diff "vc") |
| 64 | 65 |
| 65 (defvar cvs-minor-wrap-function) | 66 (defvar cvs-minor-wrap-function) |
| 66 | 67 |
| 67 (defgroup log-view nil | 68 (defgroup log-view nil |
| 166 (defun log-view-current-file () | 167 (defun log-view-current-file () |
| 167 (save-excursion | 168 (save-excursion |
| 168 (forward-line 1) | 169 (forward-line 1) |
| 169 (or (re-search-backward log-view-file-re nil t) | 170 (or (re-search-backward log-view-file-re nil t) |
| 170 (re-search-forward log-view-file-re)) | 171 (re-search-forward log-view-file-re)) |
| 171 (let* ((file (or (match-string 2) (match-string 3))) | 172 (let* ((file (or (match-string 1) (match-string 2))) |
| 172 (cvsdir (and (re-search-backward log-view-dir-re nil t) | 173 (cvsdir (and (re-search-backward log-view-dir-re nil t) |
| 173 (match-string 1))) | 174 (match-string 1))) |
| 174 (pcldir (and (boundp 'cvs-pcl-cvs-dirchange-re) | 175 (pcldir (and (boundp 'cvs-pcl-cvs-dirchange-re) |
| 175 (re-search-backward cvs-pcl-cvs-dirchange-re nil t) | 176 (re-search-backward cvs-pcl-cvs-dirchange-re nil t) |
| 176 (match-string 1))) | 177 (match-string 1))) |
| 186 (forward-line 1) | 187 (forward-line 1) |
| 187 (let ((pt (point))) | 188 (let ((pt (point))) |
| 188 (when (re-search-backward log-view-message-re nil t) | 189 (when (re-search-backward log-view-message-re nil t) |
| 189 (let (rev) | 190 (let (rev) |
| 190 ;; Find the subgroup that matched. | 191 ;; Find the subgroup that matched. |
| 191 (dotimes (i (/ (match-data 'integers) 2)) | 192 (dotimes (i (/ (length (match-data 'integers)) 2)) |
| 192 (setq rev (or rev (match-string (1+ i))))) | 193 (setq rev (or rev (match-string (1+ i))))) |
| 193 (unless (re-search-forward log-view-file-re pt t) | 194 (unless (re-search-forward log-view-file-re pt t) |
| 194 rev)))))) | 195 rev)))))) |
| 195 | 196 |
| 196 (defvar cvs-minor-current-files) | 197 (defvar cvs-minor-current-files) |