84 |
"Working file: \\(.+\\)" |
"Working file: \\(.+\\)" |
85 |
"\\|SCCS/s\\.\\(.+\\):" |
"\\|SCCS/s\\.\\(.+\\):" |
86 |
"\\)\n")) |
"\\)\n")) |
87 |
(defconst log-view-message-re "^\\(revision \\([.0-9]+\\)\\|D \\([.0-9]+\\) .*\\)$") |
(defconst log-view-message-re "^\\(revision \\([.0-9]+\\)\\|rev \\([0-9]+\\): .*\\|D \\([.0-9]+\\) .*\\)$") |
88 |
|
|
89 |
(defconst log-view-font-lock-keywords |
(defconst log-view-font-lock-keywords |
90 |
`((,log-view-file-re |
`((,log-view-file-re |
150 |
(forward-line 1) |
(forward-line 1) |
151 |
(let ((pt (point))) |
(let ((pt (point))) |
152 |
(when (re-search-backward log-view-message-re nil t) |
(when (re-search-backward log-view-message-re nil t) |
153 |
(let ((rev (or (match-string 2) (match-string 3)))) |
(let ((rev (or (match-string 2) (match-string 3) (match-string 4)))) |
154 |
(unless (re-search-forward log-view-file-re pt t) |
(unless (re-search-forward log-view-file-re pt t) |
155 |
rev)))))) |
rev)))))) |
156 |
|
|
182 |
(switch-to-buffer (vc-find-version (log-view-current-file) |
(switch-to-buffer (vc-find-version (log-view-current-file) |
183 |
(log-view-current-tag))))) |
(log-view-current-tag))))) |
184 |
|
|
185 |
;;; |
;; |
186 |
;;; diff |
;; diff |
187 |
;;; |
;; |
188 |
|
|
189 |
(defun log-view-diff (beg end) |
(defun log-view-diff (beg end) |
190 |
"Get the diff for several revisions. |
"Get the diff for several revisions. |