jit-font-lock endless loop

[Walter C. Pelissero]

Symptoms:

This simple lisp code locks Emacs somewhere in the font-lock code:

;
#+bar (defun foo ()
   "")

To reproduce the problem is enough to save the 29 bytes long source
in, say, foo.lisp and then run:

emacs -q foo.lisp

Once loaded M-x font-lock-mode should make Emacs enter an infinite
loop.



In GNU Emacs 21.3.50.1 (i386-unknown-freebsd4.7, X toolkit, Xaw3d scroll bars)
 of 2003-02-21 on hyde.home.loc
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: nil
  locale-coding-system: nil
  default-enable-multibyte-characters: nil

Recent input:
C-x k <return> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <menu-bar> <help-menu> <re
port-emacs-bug>

Recent messages:
Loading make-mode...done
Desktop loaded.
For information about the GNU Project and its goals, type C-h C-p.
Scanning buffer for index (  0%)
Scanning buffer for index ( 37%)
Scanning buffer for index ( 43%)
Scanning buffer for index ( 58%)
Scanning buffer for index ( 66%)
Scanning buffer for index (100%)
Loading emacsbug...done

-- 
walter pelissero
http://www.pelissero.org