mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(log-view-minor-wrap): Use the same logic to get revisions as `log-view-diff'.

Browse Source
This commit is contained in:
Juri Linkov 2006-01-17 00:51:30 +00:00
parent d545c9fd92
commit cbc9827367
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/log-view.el
View File

@ -225,14 +225,18 @@
(defun log-view-minor-wrap (buf f)
(let ((data (with-current-buffer buf
(cons
(cons (log-view-current-file)
(log-view-current-tag))
(when mark-active
(save-excursion
(goto-char (mark))
(cons (log-view-current-file)
(log-view-current-tag))))))))
(let* ((beg (if mark-active (region-beginning) (point)))
(end (if mark-active (region-end) (point)))
(fr (log-view-current-tag beg))
(to (log-view-current-tag end)))
(when (string-equal fr to)
(save-excursion
(goto-char end)
(log-view-msg-next)
(setq to (log-view-current-tag))))
(cons
(cons (log-view-current-file) to)
(cons (log-view-current-file) fr))))))
(let ((cvs-branch-prefix (cdar data))
(cvs-secondary-branch-prefix (and (cdar data) (cddr data)))
(cvs-minor-current-files