From: Lute Kamstra <lute@gnu.org>
Date: Thu, 21 Apr 2005 10:31:01 +0000 (+0000)
Subject: (menu-bar-options-save, menu-bar-showhide-menu): Add size-indication-mode.
X-Git-Tag: ttn-vms-21-2-B4~851
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e157359534fc85143de54bc8d48a9313515ee3b0;p=emacs.git

(menu-bar-options-save, menu-bar-showhide-menu): Add size-indication-mode.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a6d08dd944e..d4a67928ab7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-04-21  Lute Kamstra  <lute@gnu.org>
+
+	* menu-bar.el (menu-bar-options-save, menu-bar-showhide-menu): Add
+	size-indication-mode.
+
 2005-04-21  Kenichi Handa  <handa@m17n.org>
 
 	* international/mule-cmds.el: Add autoload for widget-value in
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index d0d42b9666d..ee51e8c349a 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -639,9 +639,9 @@ by \"Save Options\" in Custom buffers.")
   (let ((need-save nil))
     ;; These are set with menu-bar-make-mm-toggle, which does not
     ;; put on a customized-value property.
-    (dolist (elt '(line-number-mode column-number-mode cua-mode show-paren-mode
-		   transient-mark-mode global-font-lock-mode
-		   blink-cursor-mode))
+    (dolist (elt '(line-number-mode column-number-mode size-indication-mode
+		   cua-mode show-paren-mode transient-mark-mode
+		   global-font-lock-mode blink-cursor-mode))
       (and (customize-mark-to-save elt)
 	   (setq need-save t)))
     ;; These are set with `customize-set-variable'.
@@ -692,6 +692,11 @@ by \"Save Options\" in Custom buffers.")
 			   "Line Numbers"
 			   "Show the current line number in the mode line"))
 
+(define-key menu-bar-showhide-menu [size-indication-mode]
+  (menu-bar-make-mm-toggle size-indication-mode
+			   "Size Indication"
+			   "Show the size of the buffer in the mode line"))
+
 (define-key menu-bar-showhide-menu [linecolumn-separator]
   '("--"))