diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2006-10-23 06:33:25 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2006-10-23 06:33:25 +0000 |
| commit | 1943acf777cfcf047939e9e20bc07287b330cf0c (patch) | |
| tree | 9c254b0cc4c2d5c6e64da9b8f1b97d3af8c39488 | |
| parent | 6440f303f31600211f315126ceb3b6d7478c5abc (diff) | |
| download | emacs-1943acf777cfcf047939e9e20bc07287b330cf0c.tar.gz | |
(mode-line-mode-menu): List global minor modes
before local ones.
| -rw-r--r-- | lisp/bindings.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index a223596c351..b06531e12ec 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -432,9 +432,6 @@ Menu of mode operations in the mode line.") (define-key mode-line-mode-menu [outline-minor-mode] `(menu-item ,(purecopy "Outline (Outl)") outline-minor-mode :button (:toggle . (bound-and-true-p outline-minor-mode)))) -(define-key mode-line-mode-menu [line-number-mode] - `(menu-item ,(purecopy "Line number") line-number-mode - :button (:toggle . line-number-mode))) (define-key mode-line-mode-menu [highlight-changes-mode] `(menu-item ,(purecopy "Highlight changes (Chg)") highlight-changes-mode :button (:toggle . (bound-and-true-p highlight-changes-mode)))) @@ -450,9 +447,6 @@ Menu of mode operations in the mode line.") (define-key mode-line-mode-menu [flyspell-mode] `(menu-item ,(purecopy "Flyspell (Fly)") flyspell-mode :button (:toggle . (bound-and-true-p flyspell-mode)))) -(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 [auto-revert-tail-mode] `(menu-item ,(purecopy "Auto revert tail (Tail)") auto-revert-tail-mode :enable (buffer-file-name) @@ -466,6 +460,14 @@ 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") |