Mercurial > emacs
diff lisp/emacs-lisp/autoload.el @ 90533:8a8e69664178
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 343-356)
- Update from CVS
- Update for ERC 5.1.3.
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 113-115)
- Merge from emacs--devo--0
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-90
author | Miles Bader <miles@gnu.org> |
---|---|
date | Wed, 19 Jul 2006 00:42:56 +0000 |
parents | a8190f7e546e e768c05d6e71 |
children | 95d0cdf160ea |
line wrap: on
line diff
--- a/lisp/emacs-lisp/autoload.el Fri Jul 14 02:25:53 2006 +0000 +++ b/lisp/emacs-lisp/autoload.el Wed Jul 19 00:42:56 2006 +0000 @@ -124,17 +124,10 @@ ) `(progn (defvar ,varname ,init ,doc) - (custom-autoload ',varname ,file) - ;; The use of :require in a defcustom can be annoying, especially - ;; when defcustoms are moved from one file to another between - ;; releases because the :require arg gets placed in the user's - ;; .emacs. In order for autoloaded minor modes not to need the - ;; use of :require, we arrange to store their :setter. - ,(let ((setter (condition-case nil - (cadr (memq :set form)) - (error nil)))) - (if (equal setter ''custom-set-minor-mode) - `(put ',varname 'custom-set 'custom-set-minor-mode)))))) + (custom-autoload ',varname ,file + ,(condition-case nil + (null (cadr (memq :set form))) + (error nil)))))) ((eq car 'defgroup) ;; In Emacs this is normally handled separately by cus-dep.el, but for