Mercurial > emacs
changeset 49100:b418e4d949ac
(make-autoload): Generate custom-autoload for autoloaded defcustoms.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Tue, 07 Jan 2003 18:39:14 +0000 |
| parents | 04672e32e3b0 |
| children | 785e3ea04e42 |
| files | lisp/emacs-lisp/autoload.el |
| diffstat | 1 files changed, 6 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/autoload.el Tue Jan 07 18:33:18 2003 +0000 +++ b/lisp/emacs-lisp/autoload.el Tue Jan 07 18:39:14 2003 +0000 @@ -108,21 +108,16 @@ (eq (car-safe (car body)) 'interactive)) (if macrop (list 'quote 'macro) nil)))) - ;; Convert defcustom to a simpler (and less space-consuming) defvar, - ;; but add some extra stuff if it uses :require. + ;; Convert defcustom to less space-consuming data. ((eq car 'defcustom) (let ((varname (car-safe (cdr-safe form))) (init (car-safe (cdr-safe (cdr-safe form)))) (doc (car-safe (cdr-safe (cdr-safe (cdr-safe form))))) - (rest (cdr-safe (cdr-safe (cdr-safe (cdr-safe form)))))) - (if (not (plist-get rest :require)) - `(defvar ,varname ,init ,doc) - `(progn - (defvar ,varname ,init ,doc) - (custom-add-to-group ,(plist-get rest :group) - ',varname 'custom-variable) - (custom-add-load ',varname - ,(plist-get rest :require)))))) + ;; (rest (cdr-safe (cdr-safe (cdr-safe (cdr-safe form))))) + ) + `(progn + (defvar ,varname ,init ,doc) + (custom-autoload ',varname ,file)))) ;; nil here indicates that this is not a special autoload form. (t nil))))