diff options
| -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 @@ | |||
| 225 | 225 | ||
| 226 | (defun log-view-minor-wrap (buf f) | 226 | (defun log-view-minor-wrap (buf f) |
| 227 | (let ((data (with-current-buffer buf | 227 | (let ((data (with-current-buffer buf |
| 228 | (cons | 228 | (let* ((beg (if mark-active (region-beginning) (point))) |
| 229 | (cons (log-view-current-file) | 229 | (end (if mark-active (region-end) (point))) |
| 230 | (log-view-current-tag)) | 230 | (fr (log-view-current-tag beg)) |
| 231 | (when mark-active | 231 | (to (log-view-current-tag end))) |
| 232 | (save-excursion | 232 | (when (string-equal fr to) |
| 233 | (goto-char (mark)) | 233 | (save-excursion |
| 234 | (cons (log-view-current-file) | 234 | (goto-char end) |
| 235 | (log-view-current-tag)))))))) | 235 | (log-view-msg-next) |
| 236 | (setq to (log-view-current-tag)))) | ||
| 237 | (cons | ||
| 238 | (cons (log-view-current-file) to) | ||
| 239 | (cons (log-view-current-file) fr)))))) | ||
| 236 | (let ((cvs-branch-prefix (cdar data)) | 240 | (let ((cvs-branch-prefix (cdar data)) |
| 237 | (cvs-secondary-branch-prefix (and (cdar data) (cddr data))) | 241 | (cvs-secondary-branch-prefix (and (cdar data) (cddr data))) |
| 238 | (cvs-minor-current-files | 242 | (cvs-minor-current-files |