From: Lennart Borgman <lennart.borgman@gmail.com>
To: Stefan Monnier <monnier@iro.umontreal.ca>
Cc: emacs-devel@gnu.org
Subject: Re: Need help with search based font-locking
Date: Thu, 24 Dec 2009 14:48:49 +0100 [thread overview]
Message-ID: <e01d8a50912240548j643f50e0vebdcae28c689ffc0@mail.gmail.com> (raw)
In-Reply-To: <jwv1vil0ypz.fsf-monnier+emacs@gnu.org>
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.
next prev parent reply other threads:[~2009-12-24 13:48 UTC|newest]
Thread overview: 13+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-12-22 21:45 Need help with search based font-locking Tassilo Horn
2009-12-22 22:43 ` Lennart Borgman
2009-12-23 11:13 ` Tassilo Horn
2009-12-23 11:38 ` Tassilo Horn
2009-12-24 3:07 ` Stefan Monnier
2009-12-24 3:45 ` Lennart Borgman
2009-12-24 4:46 ` Stefan Monnier
2009-12-24 13:48 ` Lennart Borgman [this message]
2009-12-28 13:20 ` Tassilo Horn
2009-12-28 13:54 ` Lennart Borgman
2009-12-28 18:18 ` Tassilo Horn
2009-12-30 13:56 ` Tassilo Horn
2009-12-30 15:29 ` Stefan Monnier
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=e01d8a50912240548j643f50e0vebdcae28c689ffc0@mail.gmail.com \
--to=lennart.borgman@gmail.com \
--cc=emacs-devel@gnu.org \
--cc=monnier@iro.umontreal.ca \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).