From: Dave Love <fx@gnu.org>
Date: Tue, 4 Jan 2000 18:45:48 +0000 (+0000)
Subject: (make-mode-line-mouse-sensitive): Fix the toggle menu items.
X-Git-Tag: emacs-pretest-21.0.90~5505
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f45dd0f41199ef2998ab611df82c709f71a06002;p=emacs.git

(make-mode-line-mouse-sensitive): Fix the toggle menu items.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc2fffaffc2..137d84b6833 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-01-04  Dave Love  <fx@gnu.org>
+
+	* bindings.el (make-mode-line-mouse-sensitive):
+	Fix the toggle menu items.
+
 2000-01-03  Dave Love  <fx@gnu.org>
 
 	* elide-head.el (elide-head) [defgroup: Add :version.
diff --git a/lisp/bindings.el b/lisp/bindings.el
index ccc4e905caa..ceb47a66ff5 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -201,42 +201,37 @@ Menu of mode operations in the mode line.")
     (let ((map (make-sparse-keymap "Minor Modes")))
       (define-key map [abbrev-mode]
 	'(menu-item "Abbrev" abbrev-mode
-		    :active t :style toggle :selected abbrev-mode))
+		    :button (:toggle . abbrev-mode)))
       (define-key map [auto-revert-mode]
 	'(menu-item "Auto revert" auto-revert-mode
-		    :active t :style toggle
-		    :selected (bound-and-true-p auto-revert-mode)))
+		    :button (:toggle . (bound-and-true-p auto-revert-mode))))
       (define-key map [auto-fill-mode]
 	'(menu-item "Auto-fill" auto-fill-mode
-		    :active t :style toggle :selected auto-fill-function))
+		    :button (:toggle . auto-fill-function)))
       (define-key map [column-number-mode]
 	'(menu-item "Column number" column-number-mode
-		    :active t :style toggle :selected column-number-mode))
+		    :button (:toggle . column-number-mode)))
       (define-key map [flyspell-mode]
 	'(menu-item "Flyspell" flyspell-mode
-		    :active t :style toggle
-		    :selected (bound-and-true-p flyspell-mode)))
+		    :button (:toggle . (bound-and-true-p flyspell-mode))))
       (define-key map [font-lock-mode]
 	'(menu-item "Font-lock" font-lock-mode
-		    :active t :style toggle :selected font-lock-mode))
+		    :button (:toggle . font-lock-mode)))
       (define-key map [hide-ifdef-mode]
 	'(menu-item "Hide ifdef" hide-ifdef-mode
-		    :active t :style toggle
-		    :selected (bound-and-true-p hide-ifdef-mode)))
+		    :button (:toggle . (bound-and-true-p hide-ifdef-mode))))
       (define-key map [highlight-changes-mode]
 	'(menu-item "Highlight changes" highlight-changes-mode
-		    :active t :style toggle
-		    :selected (bound-and-true-p highlight-changes-mode)))
+		    :button (:toggle . (bound-and-true-p highlight-changes-mode))))
       (define-key map [line-number-mode]
 	'(menu-item "Line number" line-number-mode
-		    :active t :style toggle :selected line-number-mode))
+		    :button (:toggle . line-number-mode)))
       (define-key map [outline-minor-mode]
 	'(menu-item "Outline" outline-minor-mode
-		    :active t :style toggle
-		    :selected (bound-and-true-p outline-minor-mode)))
+		    :button (:toggle . (bound-and-true-p outline-minor-mode))))
       (define-key map [overwrite-mode]
 	'(menu-item "Overwrite" overwrite-mode
-		    :active t :style toggle :selected overwrite-mode))
+		    :button (:toggle . overwrite-mode)))
       (setq mode-line-mode-menu (copy-keymap map))
       (defun mode-line-mode-menu (event)
 	(interactive "@e")