Re: C-x v l does not move to current log entry

[Bob Rogers <rogers-emacs@rgrjr.dyndns.org>]

[-- Attachment #1: message body text --]
[-- Type: text/plain, Size: 1696 bytes --]

   From: Richard Stallman <rms@gnu.org>
   Date: Thu, 02 Aug 2007 11:45:17 -0400

   Would someone please DTRT and ack?

   Date: Wed, 01 Aug 2007 09:51:17 +0200
   From: Jan Djärv <jan.h.d@swipnet.se>

   % emacs -Q src/gmalloc.c
   C-x v l

   The cursor stays at the top of the log view buffer.
   Contrast this to emacs 22.1 where the cursor is positioned to the current
   log entry for the revision of src/gmalloc.c that you are editing.

Hmm.  vc-default-show-log-entry does appear to be going to the right
place, but something is messing it up afterwards.  I think I'll go to
bed now and let somebody who knows what they're doing have a crack at
it.  ;-}

   This from *Messages* may be relevant:

   Running cvs log gmalloc.c in the background... done
   Loading log-view...
   Loading easy-mmode...done
   Loading log-view...done
   Error during redisplay: (void-function ,log-view-file-re) [2 times]

This turns out to be coming from log-view-font-lock-keywords, which has
a value that looks something like this:

	((eval \` (\,log-view-file-re (1 ...) (0 log-view-file-face append)))
         (eval \` (\,log-view-message-re . log-view-message-face)))

The source (log-view.el:170) specifies backquoted forms inside a quoted
form; it appears that the reader is not handling this correctly.  The
attached patch replaces the backquotes with explicit "cons" calls; this
is not a real fix, and I include it only to show that it does make the
error messages go away.  Fixing the reader is undoubtedly hairier.

   However, fixing the "Error during redisplay" problem does not affect
the original symptom.

   Hope this is of some use,

					-- Bob Rogers
					   http://rgrjr.dyndns.org/


[-- Attachment #2: Type: text/plain, Size: 1286 bytes --]

Index: lisp/log-view.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/log-view.el,v
retrieving revision 1.37
diff -c -r1.37 log-view.el
*** lisp/log-view.el	23 Jun 2007 03:06:21 -0000	1.37
--- lisp/log-view.el	4 Aug 2007 02:41:52 -0000
***************
*** 170,179 ****
  (defvar log-view-font-lock-keywords
    ;; We use `eval' so as to use the buffer-local value of log-view-file-re
    ;; and log-view-message-re, if applicable.
!   '((eval . `(,log-view-file-re
!               (1 (if (boundp 'cvs-filename-face) cvs-filename-face))
!               (0 log-view-file-face append)))
!     (eval . `(,log-view-message-re . log-view-message-face))))
  (defconst log-view-font-lock-defaults
    '(log-view-font-lock-keywords t nil nil nil))
  
--- 170,180 ----
  (defvar log-view-font-lock-keywords
    ;; We use `eval' so as to use the buffer-local value of log-view-file-re
    ;; and log-view-message-re, if applicable.
!   '((eval . (cons log-view-file-re
! 		  '((1 (if (boundp 'cvs-filename-face) cvs-filename-face))
! 		    (0 log-view-file-face append))))
!     (eval . (cons log-view-message-re
! 		  'log-view-message-face))))
  (defconst log-view-font-lock-defaults
    '(log-view-font-lock-keywords t nil nil nil))
  

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel