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