Re: Need help with search based font-locking

[Lennart Borgman <lennart.borgman@gmail.com>]

On Thu, Dec 24, 2009 at 5:46 AM, Stefan Monnier
<monnier@iro.umontreal.ca> wrote:
>> + (defun lock-font-refresh-defaults ()
>> +   "Refresh defaults and restart fontification.
>> + Set defaults again as if function `font-lock-defaults' had not
>> + been called and then restart fontification."
>> +   (before-lock-mode -1)
>> +   (kill-local-variable 'font-lock-set-defaults)
>> +   (font-lock-mode 1))
>
> I thought I was the only one who could muster so many typos in so few
> lines.  BTW, the docstring should be more radical without reference to
> internal functions like font-lock-set-defaults, as in "Restart,
> recomputing everything from scratch" and then explain that it's
> typically used to let font-lock react to external changes in variables
> like font-lock-defaults and keywords.


Ehum ;-)

This is slightly better:

Index: font-lock.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/font-lock.el,v
retrieving revision 1.354
diff -c -r1.354 font-lock.el
*** font-lock.el	2 Oct 2009 03:48:41 -0000	1.354
--- font-lock.el	24 Dec 2009 13:47:41 -0000
***************
*** 1767,1772 ****
--- 1767,1790 ----

  (defvar font-lock-set-defaults nil)	; Whether we have set up defaults.

+ (defun font-lock-refresh-defaults ()
+   "Restart fontification in current buffer after recomputing from defaults.
+ Recompute fontification variables using `font-lock-defaults' (or,
+ if nil, using `font-lock-defaults-alist') and
+ `font-lock-maximum-decoration'.  Then restart fontification.
+
+ Use this function when you have changed any of the above
+ variables directly.
+
+ Note: This function will erase modifications done by
+ `font-lock-add-keywords' or `font-lock-remove-keywords', but will
+ preserve `hi-lock-mode' highlighting patterns \(and any other
+ setting set up in `fontlock-mode-hook')."
+   (let (font-lock-mode-hook)
+     (font-lock-mode -1))
+   (kill-local-variable 'font-lock-set-defaults)
+   (font-lock-mode 1))
+
  (defvar font-lock-mode-major-mode)
  (defun font-lock-set-defaults ()
    "Set fontification defaults appropriately for this mode.