/[emacs]/emacs/lisp/emacs-lisp/autoload.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/autoload.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.109 by lh, Tue Nov 8 20:23:56 2005 UTC revision 1.110 by monnier, Wed Nov 30 16:04:39 2005 UTC
# Line 135  or macro definition or a defcustom)." Line 135  or macro definition or a defcustom)."
135                (if (equal setter ''custom-set-minor-mode)                (if (equal setter ''custom-set-minor-mode)
136                    `(put ',varname 'custom-set 'custom-set-minor-mode))))))                    `(put ',varname 'custom-set 'custom-set-minor-mode))))))
137    
138         ((eq car 'defgroup)
139          ;; In Emacs this is normally handled separately by cus-dep.el, but for
140          ;; third party packages, it can be convenient to explicitly autoload
141          ;; a group.
142          (let ((groupname (nth 1 form)))
143            `(let ((loads (get ',groupname 'custom-loads)))
144               (if (member ',file loads) nil
145                 (put ',groupname 'custom-loads (cons ',file loads))))))
146    
147       ;; nil here indicates that this is not a special autoload form.       ;; nil here indicates that this is not a special autoload form.
148       (t nil))))       (t nil))))
149    

Legend:
Removed from v.1.109  
changed lines
  Added in v.1.110

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26