procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(make-autoload): Handle defgroup specially.

Browse source
This commit is contained in:
Stefan Monnier 2005-11-30 16:04:40 +00:00
parent 33d434cdce
commit 1bddeeed51
2 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/emacs-lisp/autoload.el
View file

@ -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))))