[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/autoload.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/autoload.el |
Date: |
Wed, 30 Nov 2005 11:04:41 -0500 |
Index: emacs/lisp/emacs-lisp/autoload.el
diff -c emacs/lisp/emacs-lisp/autoload.el:1.109
emacs/lisp/emacs-lisp/autoload.el:1.110
*** emacs/lisp/emacs-lisp/autoload.el:1.109 Tue Nov 8 20:23:56 2005
--- emacs/lisp/emacs-lisp/autoload.el Wed Nov 30 16:04:39 2005
***************
*** 135,140 ****
--- 135,149 ----
(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))))