46 |
'(("q" . quit-window) |
'(("q" . quit-window) |
47 |
("z" . kill-this-buffer) |
("z" . kill-this-buffer) |
48 |
("m" . set-mark-command) |
("m" . set-mark-command) |
49 |
|
;; ("e" . cvs-mode-edit-log) |
50 |
("d" . log-view-diff) |
("d" . log-view-diff) |
51 |
("f" . log-view-find-version) |
("f" . log-view-find-version) |
52 |
("n" . log-view-msg-next) |
("n" . log-view-msg-next) |
85 |
"Working file: \\(.+\\)" |
"Working file: \\(.+\\)" |
86 |
"\\|SCCS/s\\.\\(.+\\):" |
"\\|SCCS/s\\.\\(.+\\):" |
87 |
"\\)\n")) |
"\\)\n")) |
88 |
(defconst log-view-message-re "^\\(revision \\([.0-9]+\\)\\|rev \\([0-9]+\\): .*\\|D \\([.0-9]+\\) .*\\)$") |
;; In RCS, a locked revision will look like "revision N.M\tlocked by: FOO". |
89 |
|
(defconst log-view-message-re "^\\(revision \\([.0-9]+\\)\\(?:\t.*\\)?\\|rev \\([0-9]+\\): .*\\|D \\([.0-9]+\\) .*\\)$") |
90 |
|
|
91 |
(defconst log-view-font-lock-keywords |
(defconst log-view-font-lock-keywords |
92 |
`((,log-view-file-re |
`((,log-view-file-re |
181 |
(interactive "d") |
(interactive "d") |
182 |
(save-excursion |
(save-excursion |
183 |
(goto-char pos) |
(goto-char pos) |
184 |
(switch-to-buffer (vc-find-version (log-view-current-file) |
(switch-to-buffer (vc-find-version (log-view-current-file) |
185 |
(log-view-current-tag))))) |
(log-view-current-tag))))) |
186 |
|
|
187 |
;; |
;; |