# HG changeset patch # User Pavel Jank # Date 1013263002 0 # Node ID 68ff008e0fbdd41e32031fa0a80a223ccf226de7 # Parent 1091aee059b8d1d5ea5bb3dd4473fa52e2473e79 (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. diff -r 1091aee059b8 -r 68ff008e0fbd lisp/menu-bar.el --- 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)