Mercurial > hg > xemacs-beta

comparison lisp/modeline.el @ 729:217aff1c578d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
comparison
equal deleted inserted replaced
728:4d00488244c1 729:217aff1c578d
458 458
459 (defcustom abbrev-mode-line-string " Abbrev" 459 (defcustom abbrev-mode-line-string " Abbrev"
460 "*String to display in the modeline when `abbrev-mode' is active. 460 "*String to display in the modeline when `abbrev-mode' is active.
461 Set this to nil if you don't want a modeline indicator." 461 Set this to nil if you don't want a modeline indicator."
462 :type '(choice string 462 :type '(choice string
463 (const :tag "none" nil))) 463 (const :tag "none" nil))
464 :group 'abbrev-mode)
464 465
465 (defcustom overwrite-mode-line-string " Ovwrt" 466 (defcustom overwrite-mode-line-string " Ovwrt"
466 "*String to display in the modeline when `overwrite-mode' is active. 467 "*String to display in the modeline when `overwrite-mode' is active.
467 Set this to nil if you don't want a modeline indicator." 468 Set this to nil if you don't want a modeline indicator."
468 :type '(choice string 469 :type '(choice string
469 (const :tag "none" nil))) 470 (const :tag "none" nil))
471 :group 'editing-basics)
470 472
471 (defcustom auto-fill-mode-line-string " Fill" 473 (defcustom auto-fill-mode-line-string " Fill"
472 "*String to display in the modeline when `auto-fill-mode' is active. 474 "*String to display in the modeline when `auto-fill-mode' is active.
473 Set this to nil if you don't want a modeline indicator." 475 Set this to nil if you don't want a modeline indicator."
474 :type '(choice string 476 :type '(choice string
475 (const :tag "none" nil))) 477 (const :tag "none" nil))
478 :group 'fill)
476 479
477 (defcustom defining-kbd-macro-mode-line-string " Def" 480 (defcustom defining-kbd-macro-mode-line-string " Def"
478 "*String to display in the modeline when `defining-kbd-macro' is active. 481 "*String to display in the modeline when `defining-kbd-macro' is active.
479 Set this to nil if you don't want a modeline indicator." 482 Set this to nil if you don't want a modeline indicator."
480 :type '(choice string 483 :type '(choice string
481 (const :tag "none" nil))) 484 (const :tag "none" nil))
485 :group 'keyboard)
482 486
483 ;; #### TODO: Add `:menu-tag' keyword to add-minor-mode. Or create a 487 ;; #### TODO: Add `:menu-tag' keyword to add-minor-mode. Or create a
484 ;; separate function to manage the minor mode menu. 488 ;; separate function to manage the minor mode menu.
485 489
486 ;(put 'abbrev-mode :menu-tag "Abbreviation Expansion") 490 ;(put 'abbrev-mode :menu-tag "Abbreviation Expansion")