--- a/lisp/ChangeLog	Mon Jun 07 21:50:32 2004 +0000
+++ b/lisp/ChangeLog	Mon Jun 07 21:50:57 2004 +0000
@@ -1,3 +1,12 @@
+2004-06-07  Adrian Aichner  <adrian@xemacs.org>
+
+	* cus-edit.el (custom-browse-visibility): Typo fix.
+	* cus-edit.el (custom-variable-value-create): Ditto.
+	* cus-edit.el (custom-save-variables): Simply use push instead of
+	make-list and nconc, as suggested by Hrvoje and already used in
+	21.4.
+	* cus-edit.el (custom-save-faces): Ditto.
+
 2004-06-07  Adrian Aichner  <adrian@xemacs.org>
 
 	* mule/ethio-util.el (ethio-sera-to-fidel-region): Phrase

--- a/lisp/cus-edit.el	Mon Jun 07 21:50:32 2004 +0000
+++ b/lisp/cus-edit.el	Mon Jun 07 21:50:57 2004 +0000
@@ -1234,7 +1234,7 @@
   (goto-char (point-min)))
 
 (define-widget 'custom-browse-visibility 'item
-  "Control visibility of of items in the customize tree browser."
+  "Control visibility of items in the customize tree browser."
   :format "%[[%t]%]"
   :action 'custom-browse-visibility-action)
 
@@ -2041,7 +2041,7 @@
 	  ;; Don't push it !!! Custom assumes that the first child is the
 	  ;; value one.
 	  (setq children (append children (list comment-widget)))))
-      ;; Update the rest of the properties properties.
+      ;; Update the rest of the properties.
       (widget-put widget :custom-form form)
       (widget-put widget :children children)
       ;; Now update the state.
@@ -3471,13 +3471,12 @@
      (custom-save-loaded-themes)
      (custom-save-resets 'theme-value 'custom-reset-variables nil)
      (let ((standard-output (current-buffer))
-           ;; To make nconc work
-           (sorted-list (make-list 1 t)))
+           (sorted-list ()))
        ;; First create a sorted list of saved variables.
        (mapatoms
         (lambda (symbol)
           (when (custom-save-variable-p symbol)
-            (nconc sorted-list (list symbol)))))
+            (push symbol sorted-list))))
        (setq sorted-list (sort (cdr sorted-list) 'string<))
 
        (unless (bolp)
@@ -3544,13 +3543,12 @@
     ;;                        'custom-set-faces)
     (custom-save-resets 'theme-face 'custom-reset-faces '(default))
     (let ((standard-output (current-buffer))
-          ;; To make nconc work
-          (sorted-list (make-list 1 t)))
+          (sorted-list ()))
       ;; Create a sorted list of faces
       (mapatoms
        (lambda (symbol)
          (when (custom-save-face-p symbol)
-           (nconc sorted-list (list symbol)))))
+           (push symbol sorted-list))))
       (setq sorted-list (sort (cdr sorted-list) 'string<))
       
       (unless (bolp)