Mercurial > hg > xemacs-beta

changeset 695:74f176715ed2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
author youngs
date Sat, 15 Dec 2001 11:46:34 +0000
parents 561ad704dc70
children 5596b330879a
files lisp/ChangeLog lisp/modeline.el lisp/view-less.el
diffstat 3 files changed, 50 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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
--- 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