Mercurial > hg > xemacs-beta

changeset 2122:3c70cbcc7ae8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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.
author adrian
date Thu, 10 Jun 2004 12:20:01 +0000
parents 9365c64e9c24
children f5773f0d38f4
files lisp/ChangeLog lisp/cus-edit.el
diffstat 2 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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")