[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/log-view.el
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/log-view.el |
Date: |
Tue, 17 Jan 2006 00:51:30 +0000 |
Index: emacs/lisp/log-view.el
diff -u emacs/lisp/log-view.el:1.28 emacs/lisp/log-view.el:1.29
--- emacs/lisp/log-view.el:1.28 Mon Jan 9 18:20:21 2006
+++ emacs/lisp/log-view.el Tue Jan 17 00:51:30 2006
@@ -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