# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1207039017 0
# Node ID b97d6aea2d959e2ed5b357771381f545404c555d
# Parent  425b4f72a3dc6e415006e17fe3e283deb1c3826a
(abbrev-mode): Use define-minor-mode.

diff -r 425b4f72a3dc -r b97d6aea2d95 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Apr 01 08:35:58 2008 +0000
+++ b/lisp/ChangeLog	Tue Apr 01 08:36:57 2008 +0000
@@ -1,5 +1,7 @@
 2008-04-01  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* abbrev.el (abbrev-mode): Use define-minor-mode.
+
 	* mouse.el (mouse-major-mode-menu-prefix): Remove.  Remove uses.
 	(mouse-menu-non-singleton): Rename from mouse-major-mode-menu-1.
 	Use map-keymap.
diff -r 425b4f72a3dc -r b97d6aea2d95 lisp/abbrev.el
--- a/lisp/abbrev.el	Tue Apr 01 08:35:58 2008 +0000
+++ b/lisp/abbrev.el	Tue Apr 01 08:36:57 2008 +0000
@@ -49,16 +49,11 @@
   :group 'abbrev-mode
   :group 'convenience)
 
-(defun abbrev-mode (&optional arg)
+(define-minor-mode abbrev-mode
   "Toggle Abbrev mode in the current buffer.
 With optional argument ARG, turn abbrev mode on if ARG is
 positive, otherwise turn it off.  In Abbrev mode, inserting an
-abbreviation causes it to expand and be replaced by its expansion."
-  (interactive "P")
-  (setq abbrev-mode
-	(if (null arg) (not abbrev-mode)
-	  (> (prefix-numeric-value arg) 0)))
-  (force-mode-line-update))
+abbreviation causes it to expand and be replaced by its expansion.")
 
 (defcustom abbrev-mode nil
   "Enable or disable Abbrev mode.