From 5400586c9b42cf9198f6491496c73d67ce287456 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Wed, 25 Oct 2006 20:05:53 +0000 Subject: [PATCH] (mode-line-mode-menu): Remove bindings for global minor modes (line/column number) as they are on the menubar. --- lisp/bindings.el | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/lisp/bindings.el b/lisp/bindings.el index b06531e12ec..04209bbe74e 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -426,6 +426,8 @@ Menu of mode operations in the mode line.") "Return the value of symbol VAR if it is bound, else nil." `(and (boundp (quote ,var)) ,var)) +;; Use mode-line-mode-menu for local minor-modes only. +;; Global ones can go on the menubar (Options --> Show/Hide). (define-key mode-line-mode-menu [overwrite-mode] `(menu-item ,(purecopy "Overwrite (Ovwrt)") overwrite-mode :button (:toggle . overwrite-mode))) @@ -460,14 +462,6 @@ Menu of mode operations in the mode line.") (define-key mode-line-mode-menu [abbrev-mode] `(menu-item ,(purecopy "Abbrev (Abbrev)") abbrev-mode :button (:toggle . abbrev-mode))) -(define-key mode-line-mode-menu [globals-locals-separator] - '(menu-item "--")) -(define-key mode-line-mode-menu [column-number-mode] - `(menu-item ,(purecopy "Column number") column-number-mode - :button (:toggle . column-number-mode))) -(define-key mode-line-mode-menu [line-number-mode] - `(menu-item ,(purecopy "Line number") line-number-mode - :button (:toggle . line-number-mode))) (defun mode-line-mode-menu (event) (interactive "@e") -- 2.39.2