Mercurial > emacs
changeset 43216:68ff008e0fbd
(menu-bar-options-save): Take care of line-number-mode and
column-number-mode variables.
(menu-bar-showhide-menu): New menu-items "Show Line Number" and "Show
Column Number" in "Show/Hide" menu.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Sat, 09 Feb 2002 13:56:42 +0000 |
| parents | 1091aee059b8 |
| children | cafac76a491b |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 18 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/menu-bar.el Sat Feb 09 09:46:08 2002 +0000 +++ b/lisp/menu-bar.el Sat Feb 09 13:56:42 2002 +0000 @@ -550,7 +550,8 @@ case-fold-search truncate-lines show-paren-mode transient-mark-mode global-font-lock-mode current-language-environment default-input-method - default-frame-alist display-time-mode)) + default-frame-alist display-time-mode + line-number-mode column-number-mode)) (when (customize-mark-to-save elt) (setq need-save t))) ;; We only want to save text-mode-hook after adding or removing auto fill. @@ -563,9 +564,9 @@ (and (featurep 'saveplace) (customize-mark-to-save 'save-place) (setq need-save t)) - (and(featurep 'uniquify) - (customize-mark-to-save 'uniquify-buffer-name-style) - (setq need-save t)) + (and (featurep 'uniquify) + (customize-mark-to-save 'uniquify-buffer-name-style) + (setq need-save t)) ;; Save if we changed anything. (when need-save (custom-save-all)))) @@ -581,6 +582,19 @@ (defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide")) +(define-key menu-bar-showhide-menu [column-number-mode] + (menu-bar-make-toggle column-number-mode column-number-mode + "Show Column Number" "Column number mode %s" + "Show the current column number in the mode-line")) + +(define-key menu-bar-showhide-menu [line-number-mode] + (menu-bar-make-toggle line-number-mode line-number-mode + "Show Line Number" "Line number mode %s" + "Show the current line number in the mode-line")) + +(define-key menu-bar-showhide-menu [linecolumn-separator] + '("--")) + (defun showhide-date-time () "Toggle whether to show date and time in the mode-line." (interactive)