# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 966454841 0
# Node ID 904dafa7e039cc51931dbaf406613f1ba9a16ab0
# Parent  38cda0d67a7c52bc14ddcb2bbecb7a4c85c4911d
(msb-mode): Define it in terms of define-minor-mode.

diff -r 38cda0d67a7c -r 904dafa7e039 lisp/msb.el
--- a/lisp/msb.el	Wed Aug 16 19:37:26 2000 +0000
+++ b/lisp/msb.el	Wed Aug 16 19:40:41 2000 +0000
@@ -201,19 +201,6 @@
   :prefix "msb-"
   :group 'mouse)
 
-;;;###autoload
-(defcustom msb-mode nil
-  "Toggle msb-mode.
-Setting this variable directly does not take effect;
-use either \\[customize] or the function `msb-mode'."
-  :set (lambda (symbol value)
-	 (msb-mode (or value 0)))
-  :initialize 'custom-initialize-default
-  :version "20.4"
-  :type    'boolean
-  :group   'msb
-  :require 'msb)
-
 (defun msb-custom-set (symbol value)
   "Set the value of custom variables for msb."
   (set symbol value)
@@ -1151,15 +1138,12 @@
     map))
 
 ;;;###autoload
-(defun msb-mode (&optional arg)
+(define-minor-mode msb-mode
   "Toggle Msb mode.
 With arg, turn Msb mode on if and only if arg is positive.
 This mode overrides the binding(s) of `mouse-buffer-menu' to provide a
 different buffer menu using the function `msb'."
-  (interactive "P")
-  (setq msb-mode (if arg
-		     (> (prefix-numeric-value arg) 0)
-		   (not msb-mode)))
+  nil nil nil :global t
   (if msb-mode
       (progn
 	(add-hook 'menu-bar-update-hook 'msb-menu-bar-update-buffers)
@@ -1171,8 +1155,6 @@
 (defun msb-unload-hook ()
   (msb-mode 0))
 
-(add-to-list 'minor-mode-map-alist (cons 'msb-mode msb-mode-map))
-
 (provide 'msb)
 (eval-after-load 'msb (run-hooks 'msb-after-load-hooks))