/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.437 by lute, Mon Mar 14 14:06:13 2005 UTC revision 1.438 by monnier, Wed Mar 16 13:12:04 2005 UTC
# Line 2457  If TOGGLE has a `:menu-tag', that is use Line 2457  If TOGGLE has a `:menu-tag', that is use
2457      (push toggle minor-mode-list))      (push toggle minor-mode-list))
2458    
2459    (unless toggle-fun (setq toggle-fun toggle))    (unless toggle-fun (setq toggle-fun toggle))
2460      (unless (eq toggle-fun toggle)
2461        (put toggle :minor-mode-function toggle-fun))
2462    ;; Add the name to the minor-mode-alist.    ;; Add the name to the minor-mode-alist.
2463    (when name    (when name
2464      (let ((existing (assq toggle minor-mode-alist)))      (let ((existing (assq toggle minor-mode-alist)))

Legend:
Removed from v.1.437  
changed lines
  Added in v.1.438

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26