# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 985106219 0
# Node ID 06affc73c4eac121c4fac356d5e421a0978a2696
# Parent  0c5978b5eb3afa08dc7ca349a01f896b76970a43
(custom-set-variables): Avoid reversing the list
needlessly.

diff -r 0c5978b5eb3a -r 06affc73c4ea lisp/custom.el
--- a/lisp/custom.el	Tue Mar 20 15:47:08 2001 +0000
+++ b/lisp/custom.el	Tue Mar 20 16:36:59 2001 +0000
@@ -1,6 +1,6 @@
 ;;; custom.el -- Tools for declaring and initializing options.
 ;;
-;; Copyright (C) 1996, 1997, 1999 Free Software Foundation, Inc.
+;; Copyright (C) 1996, 1997, 1999, 2001 Free Software Foundation, Inc.
 ;;
 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
 ;; Maintainer: FSF
@@ -438,8 +438,8 @@
 		  (cond ((and 1-then-2 2-then-1)
 			 (error "Circular custom dependency between `%s' and `%s'"
 				sym1 sym2))
-			(2-then-1 nil)
-			(t t))))))
+			(1-then-2 t)
+			(t nil))))))
   (while args
     (let ((entry (car args)))
       (if (listp entry)