Mercurial > hg > xemacs-beta

diff lisp/cus-edit.el @ 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 e28998a020ec
children b4a8cd0dd8df
line wrap: on
line diff
--- 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")