mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 16:20:17 -08:00
Code Issues Projects Releases Wiki Activity

(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

2
lisp/ChangeLog
View file

@ -1,5 +1,7 @@
2005-11-30 Stefan Monnier <monnier@iro.umontreal.ca> 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. * help-fns.el (help-argument-name): Don't autoload.
It's useless and triggers a bug in cus-dep.el causing ldefs-boot It's useless and triggers a bug in cus-dep.el causing ldefs-boot
to be re-loaded when customizing the `help' group. to be re-loaded when customizing the `help' group.

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) (if (equal setter ''custom-set-minor-mode)
`(put ',varname 'custom-set '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. ;; nil here indicates that this is not a special autoload form.
(t nil)))) (t nil))))