Mercurial > hg > xemacs-beta

diff lisp/font-lock.el @ 278:90d73dddcdc4 r21-0b37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b37
author cvs
date Mon, 13 Aug 2007 10:31:29 +0200
parents f220cc83d72e
children 4b85ae5eabfb
line wrap: on
line diff
--- a/lisp/font-lock.el	Mon Aug 13 10:30:38 2007 +0200
+++ b/lisp/font-lock.el	Mon Aug 13 10:31:29 2007 +0200
@@ -527,7 +527,16 @@
 This is normally set via `font-lock-defaults'.")
 
 ;;;###autoload
-(defvar font-lock-mode nil) ; for modeline
+(defcustom font-lock-mode nil ;; customized for the option menu. dverna
+  "Non nil means `font-lock-mode' is on"
+  :group 'font-lock
+  :type 'boolean
+  :initialize 'custom-initialize-default
+  :require 'font-lock
+  :set '(lambda (var val)
+	  (font-lock-mode (or val 0)))
+  )
+
 (defvar font-lock-fontified nil) ; whether we have hacked this buffer
 (put 'font-lock-fontified 'permanent-local t)