/[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.104 by rms, Thu Mar 31 21:17:40 2005 UTC revision 1.105 by monnier, Sun Jun 26 18:18:04 2005 UTC
# Line 1  Line 1 
1  ;; autoload.el --- maintain autoloads in loaddefs.el  ;; autoload.el --- maintain autoloads in loaddefs.el
2    
3  ;; Copyright (C) 1991,92,93,94,95,96,97, 2001,02,03,04  ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001, 2002, 2003,
4  ;;   Free Software Foundation, Inc.  ;;   2004, 2005  Free Software Foundation, Inc.
5    
6  ;; Author: Roland McGrath <roland@gnu.org>  ;; Author: Roland McGrath <roland@gnu.org>
7  ;; Keywords: maint  ;; Keywords: maint
# Line 123  or macro definition or a defcustom)." Line 123  or macro definition or a defcustom)."
123              )              )
124          `(progn          `(progn
125             (defvar ,varname ,init ,doc)             (defvar ,varname ,init ,doc)
126             (custom-autoload ',varname ,file))))             (custom-autoload ',varname ,file)
127               ;; The use of :require in a defcustom can be annoying, especially
128               ;; when defcustoms are moved from one file to another between
129               ;; releases because the :require arg gets placed in the user's
130               ;; .emacs.  In order for autoloaded minor modes not to need the
131               ;; use of :require, we arrange to store their :setter.
132               ,(let ((setter (condition-case nil
133                                  (cadr (memq :set form))
134                                (error nil))))
135                  (if (equal setter ''custom-set-minor-mode)
136                      `(put ',varname 'custom-set 'custom-set-minor-mode))))))
137    
138       ;; nil here indicates that this is not a special autoload form.       ;; nil here indicates that this is not a special autoload form.
139       (t nil))))       (t nil))))
# Line 566  Calls `update-directory-autoloads' on th Line 576  Calls `update-directory-autoloads' on th
576    
577  (provide 'autoload)  (provide 'autoload)
578    
579  ;;; arch-tag: 00244766-98f4-4767-bf42-8a22103441c6  ;; arch-tag: 00244766-98f4-4767-bf42-8a22103441c6
580  ;;; autoload.el ends here  ;;; autoload.el ends here

Legend:
Removed from v.1.104  
changed lines
  Added in v.1.105

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