From: Juri Linkov <juri@jurta.org>
Date: Tue, 17 Jan 2006 00:51:30 +0000 (+0000)
Subject: (log-view-minor-wrap): Use the same logic to get revisions as `log-view-diff'.
X-Git-Tag: emacs-pretest-22.0.90~4724
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cbc98273670da64451e7ef7bdbb10e80d6a65f97;p=emacs.git

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

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