Mercurial > hg > xemacs-beta
changeset 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 | 4d00488244c1 |
| children | 3e321319c5ba |
| files | lisp/ChangeLog lisp/modeline.el |
| diffstat | 2 files changed, 15 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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.