diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2006-10-25 20:05:53 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2006-10-25 20:05:53 +0000 |
| commit | 5400586c9b42cf9198f6491496c73d67ce287456 (patch) | |
| tree | 1bed4ddf8a21a43afed2b7e5ab740244677535e3 | |
| parent | 7a1658dfb45787a84d86eea6c87886a1611640ec (diff) | |
| download | emacs-5400586c9b42cf9198f6491496c73d67ce287456.tar.gz | |
(mode-line-mode-menu): Remove bindings for global
minor modes (line/column number) as they are on the menubar.
| -rw-r--r-- | lisp/bindings.el | 10 |
1 files 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") |