Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
2121:9365c64e9c24 2122:3c70cbcc7ae8
3475 ;; First create a sorted list of saved variables. 3475 ;; First create a sorted list of saved variables.
3476 (mapatoms 3476 (mapatoms
3477 (lambda (symbol) 3477 (lambda (symbol)
3478 (when (custom-save-variable-p symbol) 3478 (when (custom-save-variable-p symbol)
3479 (push symbol sorted-list)))) 3479 (push symbol sorted-list))))
3480 (setq sorted-list (sort (cdr sorted-list) 'string<)) 3480 (setq sorted-list (sort sorted-list 'string<))
3481
3482 (unless (bolp) 3481 (unless (bolp)
3483 (princ "\n")) 3482 (princ "\n"))
3484 (princ "(custom-set-variables") 3483 (princ "(custom-set-variables")
3485 (mapc 'custom-save-variable-internal 3484 (mapc 'custom-save-variable-internal
3486 sorted-list) 3485 sorted-list)
3547 ;; Create a sorted list of faces 3546 ;; Create a sorted list of faces
3548 (mapatoms 3547 (mapatoms
3549 (lambda (symbol) 3548 (lambda (symbol)
3550 (when (custom-save-face-p symbol) 3549 (when (custom-save-face-p symbol)
3551 (push symbol sorted-list)))) 3550 (push symbol sorted-list))))
3552 (setq sorted-list (sort (cdr sorted-list) 'string<)) 3551 (setq sorted-list (sort sorted-list 'string<))
3553
3554 (unless (bolp) 3552 (unless (bolp)
3555 (princ "\n")) 3553 (princ "\n"))
3556 (princ "(custom-set-faces") 3554 (princ "(custom-set-faces")
3557 ;; The default face must be first, since it affects the others. 3555 ;; The default face must be first, since it affects the others.
3558 (when (custom-save-face-p 'default) 3556 (when (custom-save-face-p 'default)