Re: vc-annotate tries to load vc-nil

[Juri Linkov]

>> Thanks, now I see.  I'm so accustomed to the logic of `log-view-diff'
>> that uses the previous revision if there is no mark.  Perhaps `C-x c ='
>> should use exactly the same logic.
>
> I don't have an opinion, so feel free to change it (it's probably in
> log-view-minor-wrap).

Thanks for the hint.  The patch below changes log-view-minor-wrap to use
the same logic as log-view-diff.

Index: lisp/log-view.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/log-view.el,v
retrieving revision 1.27
diff -c -r1.27 log-view.el
*** lisp/log-view.el    23 Dec 2005 21:49:32 -0000      1.27
--- lisp/log-view.el    4 Jan 2006 06:28:48 -0000
***************
*** 200,213 ****
  
  (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 ((cvs-branch-prefix (cdar data))
          (cvs-secondary-branch-prefix (and (cdar data) (cddr data)))
          (cvs-minor-current-files
--- 200,217 ----
  
  (defun log-view-minor-wrap (buf f)
    (let ((data (with-current-buffer buf
!               (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

-- 
Juri Linkov
http://www.jurta.org/emacs/