Commit 1bddeeed authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(make-autoload): Handle defgroup specially.

parent 33d434cd
2005-11-30 Stefan Monnier <monnier@iro.umontreal.ca>
 
* emacs-lisp/autoload.el (make-autoload): Handle defgroup specially.
* help-fns.el (help-argument-name): Don't autoload.
It's useless and triggers a bug in cus-dep.el causing ldefs-boot
to be re-loaded when customizing the `help' group.
......
......@@ -135,6 +135,15 @@ or macro definition or a defcustom)."
(if (equal setter ''custom-set-minor-mode)
`(put ',varname 'custom-set 'custom-set-minor-mode))))))
((eq car 'defgroup)
;; In Emacs this is normally handled separately by cus-dep.el, but for
;; third party packages, it can be convenient to explicitly autoload
;; a group.
(let ((groupname (nth 1 form)))
`(let ((loads (get ',groupname 'custom-loads)))
(if (member ',file loads) nil
(put ',groupname 'custom-loads (cons ',file loads))))))
;; nil here indicates that this is not a special autoload form.
(t nil))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment