[Emacs-diffs] Changes to emacs/lisp/subr.el

[Stefan Monnier]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.437 emacs/lisp/subr.el:1.438
*** emacs/lisp/subr.el:1.437    Mon Mar 14 14:06:13 2005
--- emacs/lisp/subr.el  Wed Mar 16 13:12:04 2005
***************
*** 2457,2462 ****
--- 2457,2464 ----
      (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)))