# HG changeset patch
# User adrian
# Date 1086870001 0
# Node ID 3c70cbcc7ae882da999d0fc2cf3dc9b20ca33f00
# Parent  9365c64e9c242002a12f0eb6c8ec6125ed3102ad
[xemacs-hg @ 2004-06-10 12:20:00 by adrian]
xemacs-21.5: Fix bug introduced by nconc/make-list removal in cus-edit.el

-------------------- ChangeLog entries follow: --------------------

lisp/ChangeLog addition:

2004-06-10  Adrian Aichner  <adrian@xemacs.org>

	* cus-edit.el (custom-save-variables): Fix bug introduced by
	nconc/make-list removal.
	* cus-edit.el (custom-save-faces): Ditto.

diff -r 9365c64e9c24 -r 3c70cbcc7ae8 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jun 09 21:50:34 2004 +0000
+++ b/lisp/ChangeLog	Thu Jun 10 12:20:01 2004 +0000
@@ -1,3 +1,9 @@
+2004-06-10  Adrian Aichner  <adrian@xemacs.org>
+
+	* cus-edit.el (custom-save-variables): Fix bug introduced by
+	nconc/make-list removal.
+	* cus-edit.el (custom-save-faces): Ditto.
+
 2004-06-07  Adrian Aichner  <adrian@xemacs.org>
 
 	* cus-edit.el (custom-browse-visibility): Typo fix.
diff -r 9365c64e9c24 -r 3c70cbcc7ae8 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Wed Jun 09 21:50:34 2004 +0000
+++ b/lisp/cus-edit.el	Thu Jun 10 12:20:01 2004 +0000
@@ -3477,8 +3477,7 @@
         (lambda (symbol)
           (when (custom-save-variable-p symbol)
             (push symbol sorted-list))))
-       (setq sorted-list (sort (cdr sorted-list) 'string<))
-
+       (setq sorted-list (sort sorted-list 'string<))
        (unless (bolp)
          (princ "\n"))
        (princ "(custom-set-variables")
@@ -3549,8 +3548,7 @@
        (lambda (symbol)
          (when (custom-save-face-p symbol)
            (push symbol sorted-list))))
-      (setq sorted-list (sort (cdr sorted-list) 'string<))
-      
+      (setq sorted-list (sort sorted-list 'string<))
       (unless (bolp)
 	(princ "\n"))
       (princ "(custom-set-faces")