Re: font-lock-keywords: matcher function not working

[Stefan Monnier]

> (defun rr-match-indented-paren (^end)
>   "Matcher for `font-lock-keywords' that matches a parenthesis made
>  redundant by indentation."
>   (if (and (eql (char-after) ?\()
>            (rr-first-non-blank?))
>       (re-search-forward "(" ^end)
>       nil))

> (font-lock-add-keywords 'lisp-interaction-mode
>                         '(
>                           (rr-match-indented-paren
> . 'font-lock-warning-face)
>                           ))

Your rr-match-indented-paren should *search* rather than only check the
current position.

While I'm here, I recommend you (setq font-lock-support-mode nil) then
disable&enable font-lock so that jit-lock won't be used: this makes it
much easier to debug the code, especially when it signals errors (or
course, you also want to set debug-on-error to t).


        Stefan