Mercurial > hg > xemacs-beta
diff lisp/modeline.el @ 729:217aff1c578d
[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.
| author | youngs |
|---|---|
| date | Fri, 11 Jan 2002 02:55:06 +0000 |
| parents | 74f176715ed2 |
| children | 943eaba38521 |
line wrap: on
line diff
--- 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.