summaryrefslogtreecommitdiff
path: root/lisp/custom.el
diff options
context:
space:
mode:
authorGerd Moellmann <gerd@gnu.org>2001-03-20 16:36:59 +0000
committerGerd Moellmann <gerd@gnu.org>2001-03-20 16:36:59 +0000
commit748be1ad5ed81a860b335716e9c931153f4c299b (patch)
treeca1cce906345fdcb56e761e489a715d2a1997723 /lisp/custom.el
parent29c1b68e5c0bd4a57ef7dbe7b476b20c1d40d05c (diff)
downloademacs-748be1ad5ed81a860b335716e9c931153f4c299b.tar.gz
(custom-set-variables): Avoid reversing the list
needlessly.
Diffstat (limited to 'lisp/custom.el')
-rw-r--r--lisp/custom.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/custom.el b/lisp/custom.el
index 392305af153..f8ffaeac1a1 100644
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -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 @@ COMMENT is a comment string about SYMBOL."
(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)