(add-minor-mode): Use the new :minor-mode-function property.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3e35a60aa8f80500836802a31163f5d2823cc1a8..30bb4d5cd36fabc385104612b8f289bc506f7fa5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2005-03-16  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * help.el (describe-mode): Allow a :minor-mode-function property to
+       specify a different minor mode toggle function than the variable.
+       * simple.el (auto-fill-function):
+       * subr.el (add-minor-mode): Use it.
+
 2005-03-16  Kenichi Handa  <handa@m17n.org>
 
        * language/ethio-util.el (sera-being-called-by-w3): New variable.
@@ -32,7 +39,7 @@
 
        * isearch.el (isearch-error): New variable.
        (isearch-invalid-regexp, isearch-within-brackets): Remove.
-       (isearch-error-state): Renamed from `isearch-invalid-regexp-state'.
+       (isearch-error-state): Rename from `isearch-invalid-regexp-state'.
        (isearch-within-brackets-state): Remove.
        (isearch-case-fold-search-state, isearch-pop-fun-state):
        Decrease frame index.
@@ -73,7 +80,7 @@
        * international/mule-cmds.el (locale-language-names): Modify the
        format of elements and add more entries.
        (locale-preferred-coding-systems): Add more entries.
-       (set-locale-environment): Adjusted for the change of
+       (set-locale-environment): Adjust for the change of
        locale-language-names.
 
 2005-03-14  Stefan Monnier  <monnier@iro.umontreal.ca>

diff --git a/lisp/subr.el b/lisp/subr.el
index 8badf7cf777c28e2f9151a3dd87cf56d1f39a093..b9e7786cfe4fe479f71e8b709e73b1e805786410 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2457,6 +2457,8 @@ If TOGGLE has a `:menu-tag', that is used for the menu item's label."
     (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)))