Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 67223:23fa76e60a61
(make-autoload): Handle defgroup specially.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 30 Nov 2005 16:04:40 +0000 |
parents | 80aac6382ded |
children | cf5b42f7a962 |
comparison
equal
deleted
inserted
replaced
67222:9c628f17433c | 67223:23fa76e60a61 |
---|---|
132 ,(let ((setter (condition-case nil | 132 ,(let ((setter (condition-case nil |
133 (cadr (memq :set form)) | 133 (cadr (memq :set form)) |
134 (error nil)))) | 134 (error nil)))) |
135 (if (equal setter ''custom-set-minor-mode) | 135 (if (equal setter ''custom-set-minor-mode) |
136 `(put ',varname 'custom-set 'custom-set-minor-mode)))))) | 136 `(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)))))) | |
137 | 146 |
138 ;; nil here indicates that this is not a special autoload form. | 147 ;; nil here indicates that this is not a special autoload form. |
139 (t nil)))) | 148 (t nil)))) |
140 | 149 |
141 ;; Forms which have doc-strings which should be printed specially. | 150 ;; Forms which have doc-strings which should be printed specially. |