# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 907182917 0
# Node ID 4a3a39dff0ed4c13e624eefa9f41e95a4c891eea
# Parent  2a5d306408cbdf1c33e80d780d91890ae203ef7e
(custom-set-variables): Load the requests first,
then check the symbol's `set' function.

diff -r 2a5d306408cb -r 4a3a39dff0ed lisp/custom.el
--- a/lisp/custom.el	Wed Sep 30 19:07:17 1998 +0000
+++ b/lisp/custom.el	Wed Sep 30 19:15:17 1998 +0000
@@ -408,7 +408,11 @@
 		 (value (nth 1 entry))
 		 (now (nth 2 entry))
 		 (requests (nth 3 entry))
-		 (set (or (get symbol 'custom-set) 'custom-set-default)))
+		 set)
+	    (when requests
+	      (put symbol 'custom-requests requests)
+	      (mapcar 'require requests))
+	    (setq set (or (get symbol 'custom-set) 'custom-set-default))
 	    (put symbol 'saved-value (list value))
 	    (cond (now 
 		   ;; Rogue variable, set it now.
@@ -417,9 +421,6 @@
 		  ((default-boundp symbol)
 		   ;; Something already set this, overwrite it.
 		   (funcall set symbol (eval value))))
-	    (when requests
-	      (put symbol 'custom-requests requests)
-	      (mapcar 'require requests))
 	    (setq args (cdr args)))
 	;; Old format, a plist of SYMBOL VALUE pairs.
 	(message "Warning: old format `custom-set-variables'")