From cbc98273670da64451e7ef7bdbb10e80d6a65f97 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 17 Jan 2006 00:51:30 +0000 Subject: [PATCH] (log-view-minor-wrap): Use the same logic to get revisions as `log-view-diff'. --- lisp/log-view.el | 20 ++++++++++++-------- 1 file 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 -- 2.39.2