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 04:45:35 +0100 [thread overview]
Message-ID: <e01d8a50912231945p6cf99214nd5f3e62c6d47a0d6@mail.gmail.com> (raw)
In-Reply-To: <jwvbphp2iam.fsf-monnier+emacs@gnu.org>
On Thu, Dec 24, 2009 at 4:07 AM, Stefan Monnier
<monnier@iro.umontreal.ca> wrote:
>> (let (font-lock-set-defaults) (font-lock-set-defaults))
>> (jit-lock-refontify (point-min) (point-max))
>> (redisplay t)
>
> This assumes lots of things about font-lock's implementation (including
> the use of jit-lock).
> A slightly less invasive implementation would be:
>
> (font-lock-mode -1)
> (kill-local-variable 'font-lock-set-defaults)
> (font-lock-mode 1)
>
> tho the `font-lock-set-defaults' bit is still ugly.
>
> So, I'd recommend you submit a patch which adds a new function that does
> the above 3 steps (call it `font-lock-refresh-all' or something), and
> then use that one.
I think you meant Tassilo should do that but I might as well right the
patch so here it is:
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 03:44:49 -0000
***************
*** 1767,1772 ****
--- 1767,1780 ----
(defvar font-lock-set-defaults nil) ; Whether we have set up defaults.
+ (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))
+
(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 3:45 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 [this message]
2009-12-24 4:46 ` Stefan Monnier
2009-12-24 13:48 ` Lennart Borgman
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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=e01d8a50912231945p6cf99214nd5f3e62c6d47a0d6@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 external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.