# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1110978724 0
# Node ID b8d318a41aae5fea80cd67a94f73d0b2fe4c6f81
# Parent  b532848a180666510dcf1875116436b8bbca9688
(add-minor-mode): Use the new :minor-mode-function property.

diff -r b532848a1806 -r b8d318a41aae lisp/subr.el
--- a/lisp/subr.el	Wed Mar 16 13:11:34 2005 +0000
+++ b/lisp/subr.el	Wed Mar 16 13:12:04 2005 +0000
@@ -2457,6 +2457,8 @@
     (push toggle minor-mode-list))
 
   (unless toggle-fun (setq toggle-fun toggle))
+  (unless (eq toggle-fun toggle)
+    (put toggle :minor-mode-function toggle-fun))
   ;; Add the name to the minor-mode-alist.
   (when name
     (let ((existing (assq toggle minor-mode-alist)))