From: Nick Roberts <nickrob@snap.net.nz>
Date: Mon, 23 Oct 2006 06:33:25 +0000 (+0000)
Subject: (mode-line-mode-menu): List global minor modes
X-Git-Tag: emacs-pretest-22.0.90~31
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1943acf777cfcf047939e9e20bc07287b330cf0c;p=emacs.git

(mode-line-mode-menu): List global minor modes
before local ones.
---

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")