From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Tue, 7 Jan 2003 18:39:14 +0000 (+0000)
Subject: (make-autoload): Generate custom-autoload for autoloaded defcustoms.
X-Git-Tag: ttn-vms-21-2-B4~11785
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d49298d9d7414b411928de2662eb0fce6196d003;p=emacs.git

(make-autoload): Generate custom-autoload for autoloaded defcustoms.
---

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 8f479416c9d..e37acb1b305 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -108,21 +108,16 @@ or macro definition or a defcustom)."
 		  (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))))