Mercurial > emacs
changeset 61714:de02ab04abd0
(menu-bar-options-save, menu-bar-showhide-menu): Add size-indication-mode.
| author | Lute Kamstra <lute@gnu.org> |
|---|---|
| date | Thu, 21 Apr 2005 10:30:05 +0000 |
| parents | 1f917e46c345 |
| children | d14be7e6378f |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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] '("--"))