[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Need help with search based font-locking
From: |
Lennart Borgman |
Subject: |
Re: Need help with search based font-locking |
Date: |
Thu, 24 Dec 2009 14:48:49 +0100 |
On Thu, Dec 24, 2009 at 5:46 AM, Stefan Monnier
<address@hidden> 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.
- Need help with search based font-locking, Tassilo Horn, 2009/12/22
- Re: Need help with search based font-locking, Lennart Borgman, 2009/12/22
- Re: Need help with search based font-locking, Tassilo Horn, 2009/12/23
- Re: Need help with search based font-locking, Tassilo Horn, 2009/12/23
- Re: Need help with search based font-locking, Stefan Monnier, 2009/12/23
- Re: Need help with search based font-locking, Lennart Borgman, 2009/12/23
- Re: Need help with search based font-locking, Stefan Monnier, 2009/12/23
- Re: Need help with search based font-locking,
Lennart Borgman <=
- Re: Need help with search based font-locking, Tassilo Horn, 2009/12/28
- Re: Need help with search based font-locking, Lennart Borgman, 2009/12/28
- Re: Need help with search based font-locking, Tassilo Horn, 2009/12/28
- Re: Need help with search based font-locking, Tassilo Horn, 2009/12/30
- Re: Need help with search based font-locking, Stefan Monnier, 2009/12/30