Re: font-lock error (lazy-lock support-mode/sgml mode)

[Stefan Monnier]

> To reproduce:

>   $ emacs -q --no-site-file -l test.el test.html

> where test.el and test.html are as shown below:

> test.el:

>   (setq font-lock-support-mode 'lazy-lock-mode)
>   (global-font-lock-mode 1 t)

> test.html:

>   <title>foobar</title>

I can't reproduce this error.

>   Debugger entered--Lisp error: (error "No match 3 in highlight (3 (cdr 
> (assoc (downcase (match-string 1)) sgml-tag-face-alist)) prepend)")

The message comes from the font-lock-keyword pattern:

     ((eval
      . (cons (concat "<"
                      (regexp-opt (mapcar 'car sgml-tag-face-alist) t)
                      "\\([ \t][^>]*\\)?>\\([^<]+\\)</\\1>")
              '(3 (cdr (assoc-string (match-string 1) sgml-tag-face-alist t))
                prepend))))

and I can't think of any way that the regexp could match without
the 3rd subgroup matching as well.  The only thing I can think of is that
you have an old `regexp-opt.el' in your path that shadows the builtin
one, so the regexp returned contains more than 1 subgroup.


        Stefan