[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/autoload.el

[Stefan Monnier]

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