diff options
| author | Juri Linkov <juri@jurta.org> | 2006-01-17 00:51:30 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2006-01-17 00:51:30 +0000 |
| commit | cbc98273670da64451e7ef7bdbb10e80d6a65f97 (patch) | |
| tree | 964381a2b0b917fd6916f71482301ade7b690b74 | |
| parent | d545c9fd92c681dcf701531a53fcd8b41b4c83ab (diff) | |
| download | emacs-cbc98273670da64451e7ef7bdbb10e80d6a65f97.tar.gz | |
(log-view-minor-wrap): Use the same logic to get revisions as `log-view-diff'.
| -rw-r--r-- | lisp/log-view.el | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/lisp/log-view.el b/lisp/log-view.el index 7025a893287..91320f08dd9 100644 --- a/lisp/log-view.el +++ b/lisp/log-view.el @@ -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 |