Mercurial > emacs
changeset 73493:334001e04b9b
(mode-line-mode-menu): Remove bindings for global
minor modes (line/column number) as they are on the menubar.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Wed, 25 Oct 2006 20:05:53 +0000 |
| parents | 7af87808e71c |
| children | c2808e06f0d0 |
| files | lisp/bindings.el |
| diffstat | 1 files changed, 2 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/bindings.el Wed Oct 25 20:04:23 2006 +0000 +++ b/lisp/bindings.el Wed Oct 25 20:05:53 2006 +0000 @@ -426,6 +426,8 @@ "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 @@ (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")