font-lock bug in Emacs Lisp

[Frederik Fouvry]

Symptoms:

emacs -q --no-site-file &
M-x emacs-lisp-mode
M-x font-lock-mode

Insert into the (current) buffer (i.e. *scratch*)

(define-key 'cvs-mode-map "
" 'cvs-mode-find-file)

The second argument of define-key() is C-m, inserted with C-q C-m.
Now type 
C-a ;

The comment will be highlighted as such until after ^M.  Any text that
is inserted after it is coloured like a string, until the next double
quote, until after a number of lines (consisting of a mix of comments,
blank lines and Lisp code), or until the end of the buffer.

The expected behaviour is that only ^M is considered to be the string.

It seems that ^M is considered as a line break (incorrectly in this case).

In GNU Emacs 22.0.50.8 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2005-07-14 on cc.at.coli.uni-sb.de
X server distributor `The XFree86 Project, Inc', version 11.0.40201000
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: POSIX
  value of $LC_CTYPE: en_GB.ISO8859-15
  value of $LC_MESSAGES: en_GB.ISO8859-15
  value of $LC_MONETARY: address@hidden
  value of $LC_NUMERIC: en_GB.ISO8859-15
  value of $LC_TIME: en_GB.ISO8859-15
  value of $LANG: en_GB.ISO8859-15
  locale-coding-system: iso-8859-15
  default-enable-multibyte-characters: t

Major mode: Emacs-Lisp

Minor modes in effect:
  mouse-wheel-mode: t
  tooltip-mode: t
  auto-compression-mode: t
  menu-bar-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  line-number-mode: t
  next-error-follow-minor-mode:  Fol

Recent input:
<help-echo> <help-echo> <down-mouse-1> <mouse-1> <escape> 
x e m a <tab> l i <tab> m <tab> <return> ( d e f i 
n e <escape> x f n t <backspace> <backspace> o n t 
<tab> m <tab> <return> - k e y SPC ' c v s - m o d 
e SPC <backspace> - m a p SPC <down-mouse-1> <mouse-1> 
<down-mouse-2> <mouse-2> C-a <backspace> C-q RET C-e 
<return> <up> ; ; SPC <backspace> <backspace> SPC <help-echo> 
<help-echo> <help-echo> <help-echo> <menu-bar> <help-menu> 
<report-emacs-bug>

Recent messages:
Loading mwheel...done
(/export/black/fouvry/emacs/src/emacs -q --no-site-file)
Loading disp-table...done
Loading image...done
For information about the GNU Project and its goals, type C-h C-p.
Loading font-lock...done
Loading jit-lock...done
Mark set
Loading emacsbug...done