[Emacs-diffs] Changes to emacs/lisp/menu-bar.el

[Lute Kamstra]

Index: emacs/lisp/menu-bar.el
diff -c emacs/lisp/menu-bar.el:1.257 emacs/lisp/menu-bar.el:1.258
*** emacs/lisp/menu-bar.el:1.257        Thu Apr 21 00:07:38 2005
--- emacs/lisp/menu-bar.el      Thu Apr 21 10:30:05 2005
***************
*** 639,647 ****
    (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))
        (and (customize-mark-to-save elt)
           (setq need-save t)))
      ;; These are set with `customize-set-variable'.
--- 639,647 ----
    (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 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,697 ****
--- 692,702 ----
                           "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]
    '("--"))