# HG changeset patch
# User youngs
# Date 1008416794 0
# Node ID 74f176715ed23220833c15d1c4b5787a8a2b9981
# Parent  561ad704dc7068bdf5fcdedb6032e1fb0901afbb
[xemacs-hg @ 2001-12-15 11:46:33 by youngs]
2001-12-15  John Paul Wallington  <jpw@shootybangbang.com>

	* modeline.el:
	(abbrev-mode-line-string): new customizable variable
	(overwrite-mode-line-string): ditto
	(auto-fill-mode-line-string): ditto
	(defining-kbd-macro-mode-line-string): ditto
	* view-less.el:
	(view-mode-line-string): ditto

diff -r 561ad704dc70 -r 74f176715ed2 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Dec 15 09:16:21 2001 +0000
+++ b/lisp/ChangeLog	Sat Dec 15 11:46:34 2001 +0000
@@ -1,3 +1,13 @@
+2001-12-15  John Paul Wallington  <jpw@shootybangbang.com>
+
+	* modeline.el:
+	(abbrev-mode-line-string): new customizable variable
+	(overwrite-mode-line-string): ditto
+	(auto-fill-mode-line-string): ditto
+	(defining-kbd-macro-mode-line-string): ditto
+	* view-less.el:
+	(view-mode-line-string): ditto
+
 2001-12-12  John Paul Wallington  <jpw@shootybangbang.com>
 
 	* font-lock.el (font-lock-mode-line-string): new customizable
diff -r 561ad704dc70 -r 74f176715ed2 lisp/modeline.el
--- a/lisp/modeline.el	Sat Dec 15 09:16:21 2001 +0000
+++ b/lisp/modeline.el	Sat Dec 15 11:46:34 2001 +0000
@@ -456,18 +456,44 @@
 		 (cons toggle keymap)
 		 'minor-mode-map-alist)))))
 
+(defcustom abbrev-mode-line-string " Abbrev"
+  "*String to display in the modeline when `abbrev-mode' is active.
+Set this to nil if you don't want a modeline indicator."
+  :type '(choice string
+		 (const :tag "none" nil)))
+
+(defcustom overwrite-mode-line-string " Ovwrt"
+  "*String to display in the modeline when `overwrite-mode' is active.
+Set this to nil if you don't want a modeline indicator."
+  :type '(choice string
+		 (const :tag "none" nil)))
+
+(defcustom auto-fill-mode-line-string " Fill"
+  "*String to display in the modeline when `auto-fill-mode' is active.
+Set this to nil if you don't want a modeline indicator."
+  :type '(choice string
+		 (const :tag "none" nil)))
+
+(defcustom defining-kbd-macro-mode-line-string " Def"
+  "*String to display in the modeline when `defining-kbd-macro' is active.
+Set this to nil if you don't want a modeline indicator."
+  :type '(choice string
+		 (const :tag "none" nil)))
+
 ;; #### TODO: Add `:menu-tag' keyword to add-minor-mode.  Or create a
 ;; separate function to manage the minor mode menu.
 
 ;(put 'abbrev-mode :menu-tag "Abbreviation Expansion")
-(add-minor-mode 'abbrev-mode " Abbrev")
+(add-minor-mode 'abbrev-mode 'abbrev-mode-line-string)
 ;; only when visiting a file...
-(add-minor-mode 'overwrite-mode 'overwrite-mode)
+(add-minor-mode 'overwrite-mode 'overwrite-mode-line-string)
 ;(put 'auto-fill-function :menu-tag "Auto Fill")
-(add-minor-mode 'auto-fill-function " Fill" nil nil 'auto-fill-mode)
+(add-minor-mode 'auto-fill-function 'auto-fill-mode-line-string
+		nil nil 'auto-fill-mode)
 
 ;(put 'defining-kbd-macro :menu-tag "Keyboard Macro")
-(add-minor-mode 'defining-kbd-macro " Def" nil nil
+(add-minor-mode 'defining-kbd-macro 'defining-kbd-macro-mode-line-string
+		nil nil
 		(lambda ()
 		  (interactive)
 		  (if defining-kbd-macro
diff -r 561ad704dc70 -r 74f176715ed2 lisp/view-less.el
--- a/lisp/view-less.el	Sat Dec 15 09:16:21 2001 +0000
+++ b/lisp/view-less.el	Sat Dec 15 11:46:34 2001 +0000
@@ -99,7 +99,16 @@
     map
     ))
 
-(add-minor-mode 'view-minor-mode " View" view-minor-mode-map)
+;;;###autoload
+(defcustom view-mode-line-string " View"
+  "*String to display in the modeline when View mode is active.
+Set this to nil if you don't want a modeline indicator."
+  :type '(choice string
+		 (const :tag "none" nil)))
+
+(add-minor-mode 'view-minor-mode 
+		'view-mode-line-string 
+		view-minor-mode-map)
 
 ;;;###autoload
 (defvar view-mode-map