# HG changeset patch
# User Lute Kamstra <lute@gnu.org>
# Date 1114079405 0
# Node ID de02ab04abd02b5008903303b01e9ce9bc0b1eeb
# Parent  1f917e46c345210768f22d4fc20a7dc4f8e65c1e
(menu-bar-options-save, menu-bar-showhide-menu): Add size-indication-mode.

diff -r 1f917e46c345 -r de02ab04abd0 lisp/menu-bar.el
--- a/lisp/menu-bar.el	Thu Apr 21 07:23:50 2005 +0000
+++ b/lisp/menu-bar.el	Thu Apr 21 10:30:05 2005 +0000
@@ -639,9 +639,9 @@
   (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 @@
 			   "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]
   '("--"))