# HG changeset patch
# User youngs
# Date 1010717706 0
# Node ID 217aff1c578d792f4c6d8ba2f2dcabeb70de2d49
# Parent  4d00488244c13bd3538a95596f24ad8bbbda57a7
[xemacs-hg @ 2002-01-11 02:55:05 by youngs]
2002-01-10  John Paul Wallington  <jpw@shootybangbang.com>

	* modeline.el (abbrev-mode-line-string): add custom group keyword.
	(overwrite-mode-line-string): ditto.
	(auto-fill-mode-line-string): ditto.
	(defining-kbd-macro-mode-line-string): ditto.

diff -r 4d00488244c1 -r 217aff1c578d lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jan 10 09:50:50 2002 +0000
+++ b/lisp/ChangeLog	Fri Jan 11 02:55:06 2002 +0000
@@ -1,3 +1,10 @@
+2002-01-10  John Paul Wallington  <jpw@shootybangbang.com>
+
+	* modeline.el (abbrev-mode-line-string): add custom group keyword.
+	(overwrite-mode-line-string): ditto.
+	(auto-fill-mode-line-string): ditto.
+	(defining-kbd-macro-mode-line-string): ditto.
+
 2002-01-10  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* coding.el: Fix typo in comment.
diff -r 4d00488244c1 -r 217aff1c578d lisp/modeline.el
--- a/lisp/modeline.el	Thu Jan 10 09:50:50 2002 +0000
+++ b/lisp/modeline.el	Fri Jan 11 02:55:06 2002 +0000
@@ -460,25 +460,29 @@
   "*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)))
+		 (const :tag "none" nil))
+  :group 'abbrev-mode)
 
 (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)))
+		 (const :tag "none" nil))
+  :group 'editing-basics)
 
 (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)))
+		 (const :tag "none" nil))
+  :group 'fill)
 
 (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)))
+		 (const :tag "none" nil))
+  :group 'keyboard)
 
 ;; #### TODO: Add `:menu-tag' keyword to add-minor-mode.  Or create a
 ;; separate function to manage the minor mode menu.