(custom-set-variables): Set options with :require

clauses last.

2 files changed, 13 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 88cb2175940..854d1722cef 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-08-02  Gerd Moellmann  <gerd@gnu.org>
 
+        * custom.el (custom-set-variables): Set options with :require
+        clauses last.
+        
         * custom.el (defcustom): Doc fix.
 
         * Makefile.in (TAGS, TAGS-LISP): Exclude loaddefs.el.
diff --git a/lisp/custom.el b/lisp/custom.el
index ef083ebb238..8231fd9ab0f 100644
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -442,7 +442,16 @@ COMMENT is a comment string about SYMBOL."
                          (error "Circular custom dependency between `%s' and `%s'"
                                 sym1 sym2))
                         (1-then-2 t)
-                        (t nil))))))
+                        (2-then-1 nil)
+                        ;; Put symbols with :require last.  The macro
+                        ;; define-minor-mode generates a defcustom
+                        ;; with a :require and a :set, where the
+                        ;; setter function calls the mode function.
+                        ;; Putting symbols with :require last ensures
+                        ;; that the mode function will see other
+                        ;; customized values rather than default
+                        ;; values.
+                        (t (get sym2 'custom-requests)))))))
   (while args
     (let ((entry (car args)))
       (if (listp entry)