Parent Directory | Revision Log | 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))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |