# HG changeset patch
# User youngs
# Date 1008296453 0
# Node ID cd697e94b3d498ea877ba69d3572441dafec76cb
# Parent  1df69dc58840f9c9bc8308ffe2ab10b2645ef4bb
[xemacs-hg @ 2001-12-14 02:20:52 by youngs]
2001-12-12  John Paul Wallington  <jpw@shootybangbang.com>

	* font-lock.el (font-lock-mode-line-string): new customizable
	variable

diff -r 1df69dc58840 -r cd697e94b3d4 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Dec 13 20:53:21 2001 +0000
+++ b/lisp/ChangeLog	Fri Dec 14 02:20:53 2001 +0000
@@ -1,3 +1,8 @@
+2001-12-12  John Paul Wallington  <jpw@shootybangbang.com>
+
+	* font-lock.el (font-lock-mode-line-string): new customizable
+	variable
+
 2001-10-16  Michael Diers  <mdiers@elego.de>
 
 	* about.el: Update e-mail address.
diff -r 1df69dc58840 -r cd697e94b3d4 lisp/font-lock.el
--- a/lisp/font-lock.el	Thu Dec 13 20:53:21 2001 +0000
+++ b/lisp/font-lock.el	Fri Dec 14 02:20:53 2001 +0000
@@ -319,6 +319,14 @@
 string text when fontifying."
   :type 'boolean
   :group 'font-lock)
+
+;;;###autoload
+(defcustom font-lock-mode-line-string " Font"
+  "*String to display in the modeline when Font Lock mode is active.
+Set this to nil if you don't want a modeline indicator."
+  :type '(choice string
+		 (const :tag "none" nil))
+  :group 'font-lock)
 
 ;; Fontification variables:
 
@@ -2755,7 +2763,7 @@
 (add-hook 'find-file-hooks 'font-lock-set-defaults t)
 
 ;;;###autoload
-(add-minor-mode 'font-lock-mode " Font")
+(add-minor-mode 'font-lock-mode 'font-lock-mode-line-string)
 
 ;; Provide ourselves: