Mercurial > emacs
changeset 73475:554d035075e4
(mode-line-mode-menu): List global minor modes
before local ones.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Mon, 23 Oct 2006 06:33:25 +0000 |
| parents | 98358b4c7964 |
| children | f2ea221d11a2 |
| files | lisp/bindings.el |
| diffstat | 1 files changed, 8 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/bindings.el Mon Oct 23 06:33:00 2006 +0000 +++ b/lisp/bindings.el Mon Oct 23 06:33:25 2006 +0000 @@ -432,9 +432,6 @@ (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 @@ (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 @@ (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")