From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 4 Aug 1997 06:44:24 +0000 (+0000)
Subject: (make-autoload): For a defcustom,
X-Git-Tag: emacs-20.1~815
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=666da7836b0dc32ebf3b78359c51439f217a320b;p=emacs.git

(make-autoload): For a defcustom,
generate custom-add-to-group and custom-add-load if needed.
---

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 2eb06766442..ed90ead9b4f 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -52,11 +52,21 @@ Returns nil if FORM is not a defun, define-skeleton, defmacro or defcustom."
 		(or (eq car 'define-skeleton)
 		    (eq (car-safe (car form)) '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.
       (if (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))))))
-	    (list 'defvar varname init doc))
+		(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)))))
 	nil))))
 
 (put 'define-skeleton 'doc-string-elt 3)