diff options
author | Gerd Moellmann <gerd@gnu.org> | 2001-03-20 16:36:59 +0000 |
---|---|---|
committer | Gerd Moellmann <gerd@gnu.org> | 2001-03-20 16:36:59 +0000 |
commit | 748be1ad5ed81a860b335716e9c931153f4c299b (patch) | |
tree | ca1cce906345fdcb56e761e489a715d2a1997723 /lisp/custom.el | |
parent | 29c1b68e5c0bd4a57ef7dbe7b476b20c1d40d05c (diff) | |
download | emacs-748be1ad5ed81a860b335716e9c931153f4c299b.tar.gz |
(custom-set-variables): Avoid reversing the list
needlessly.
Diffstat (limited to 'lisp/custom.el')
-rw-r--r-- | lisp/custom.el | 6 |
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) |