Mercurial > emacs

changeset 47374:78178028d987

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-lock-defontify): New function.
author Richard M. Stallman <rms@gnu.org>
date Tue, 10 Sep 2002 16:43:48 +0000
parents c863060047d6
children fe8ca2be9fde
files lisp/font-core.el
diffstat 1 files changed, 12 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/font-core.el	Tue Sep 10 16:40:10 2002 +0000
+++ b/lisp/font-core.el	Tue Sep 10 16:43:48 2002 +0000
@@ -220,6 +220,18 @@
 (defun font-lock-change-mode ()
   (font-lock-mode -1))
 
+(defun font-lock-defontify ()
+  "Clear out all `font-lock-face' properties in current buffer.
+A major mode that uses `font-lock-face' properties should put
+this function onto `change-major-mode-hook'."
+  (let ((modp (buffer-modified-p))
+	(inhibit-read-only t))
+    (save-restriction
+      (widen)
+      (remove-list-of-text-properties (point-min) (point-max)
+				      '(font-lock-face)))
+    (set-buffer-modified-p modp)))
+
 (defun font-lock-default-function (mode)
   ;; Turn on Font Lock mode.
   (when mode