# HG changeset patch
# User Tassilo Horn <tassilo@member.fsf.org>
# Date 1262028850 -3600
# Node ID 17b93d093db8982233d34612ed6873a37467dc28
# Parent  71b23891f0e7701bc6d988a42cb9593dfe0f9a60
	* font-lock.el (font-lock-refresh-defaults): New function, which
	can be used to let font-lock react to external changes in
	variables like font-lock-defaults and keywords.
	See http://thread.gmane.org/gmane.emacs.devel/118777/focus=118802

diff -r 71b23891f0e7 -r 17b93d093db8 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Dec 28 20:25:38 2009 +0100
+++ b/lisp/ChangeLog	Mon Dec 28 20:34:10 2009 +0100
@@ -1,3 +1,10 @@
+2009-12-28  Tassilo Horn  <tassilo@member.fsf.org>
+
+	* font-lock.el (font-lock-refresh-defaults): New function, which
+	can be used to let font-lock react to external changes in
+	variables like font-lock-defaults and keywords.
+	See http://thread.gmane.org/gmane.emacs.devel/118777/focus=118802
+
 2009-12-28  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* vc-rcs.el (vc-rcs-register): Fix registering a specific version.
diff -r 71b23891f0e7 -r 17b93d093db8 lisp/font-lock.el
--- a/lisp/font-lock.el	Mon Dec 28 20:25:38 2009 +0100
+++ b/lisp/font-lock.el	Mon Dec 28 20:34:10 2009 +0100
@@ -1767,6 +1767,23 @@
 
 (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."
+  (let ((hi-lock--inhibit-font-lock-hook t))
+    (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.