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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc2fffaffc2dfad3c4b7b4a87742e4940d39bd19..137d84b6833c9c1b9045865b7fd5c7712e195776 100644 (file)
--- 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 ccc4e905caa2dca7f79aa2399cafaa425bd3c2cc..ceb47a66ff5f11ed41232373dabdda33e9bb33da 100644 (file)
--- 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")