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

2 files changed, 16 insertions, 16 deletions

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