135 |
(if (equal setter ''custom-set-minor-mode) |
(if (equal setter ''custom-set-minor-mode) |
136 |
`(put ',varname 'custom-set 'custom-set-minor-mode)))))) |
`(put ',varname 'custom-set 'custom-set-minor-mode)))))) |
137 |
|
|
138 |
|
((eq car 'defgroup) |
139 |
|
;; In Emacs this is normally handled separately by cus-dep.el, but for |
140 |
|
;; third party packages, it can be convenient to explicitly autoload |
141 |
|
;; a group. |
142 |
|
(let ((groupname (nth 1 form))) |
143 |
|
`(let ((loads (get ',groupname 'custom-loads))) |
144 |
|
(if (member ',file loads) nil |
145 |
|
(put ',groupname 'custom-loads (cons ',file loads)))))) |
146 |
|
|
147 |
;; nil here indicates that this is not a special autoload form. |
;; nil here indicates that this is not a special autoload form. |
148 |
(t nil)))) |
(t nil)))) |
149 |
|
|