# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1037802954 0
# Node ID 29e63846608da8ae2318cf0aabb345b7432b964c
# Parent  4bdcb09d9f254d481874c1c5a651f3c9ac9d65a5
(custom-declare-variable): Use push.
Use the (defvar . <sym>) format in load-history like `defvar' does.

diff -r 4bdcb09d9f25 -r 29e63846608d lisp/custom.el
--- a/lisp/custom.el	Wed Nov 20 14:31:52 2002 +0000
+++ b/lisp/custom.el	Wed Nov 20 14:35:54 2002 +0000
@@ -141,7 +141,7 @@
 		((eq keyword :get)
 		 (put symbol 'custom-get value))
 		((eq keyword :require)
-		 (setq requests (cons value requests)))
+		 (push value requests))
 		((eq keyword :type)
 		 (put symbol 'custom-type (purecopy value)))
 		((eq keyword :options)
@@ -149,7 +149,7 @@
 		     ;; Slow safe code to avoid duplicates.
 		     (mapc (lambda (option)
 			     (custom-add-option symbol option))
-			     value)
+			   value)
 		   ;; Fast code for the common case.
 		   (put symbol 'custom-options (copy-sequence value))))
 		(t
@@ -159,7 +159,7 @@
     ;; Do the actual initialization.
     (unless custom-dont-initialize
       (funcall initialize symbol default)))
-  (setq current-load-list (cons symbol current-load-list))
+  (push (cons 'defvar symbol) current-load-list)
   (run-hooks 'custom-define-hook)
   symbol)