Mercurial > emacs

comparison lisp/cus-edit.el @ 69004:f4a06252f47c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* cus-edit.el (custom-save-variables): Allow unthemed values.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 19 Feb 2006 15:50:09 +0000
parents 08407ff48591
children b9e2a1b4b54a
comparison
equal deleted inserted replaced
69003:778b71fe14ef 69004:f4a06252f47c
4164 sort-fold-case) 4164 sort-fold-case)
4165 ;; First create a sorted list of saved variables. 4165 ;; First create a sorted list of saved variables.
4166 (mapatoms 4166 (mapatoms
4167 (lambda (symbol) 4167 (lambda (symbol)
4168 (if (and (get symbol 'saved-value) 4168 (if (and (get symbol 'saved-value)
4169 (eq 'user (car (car-safe (get symbol 'theme-value))))) 4169 ;; ignore theme values
4170 (or (null (get symbol 'theme-value))
4171 (eq 'user (caar (get symbol 'theme-value)))))
4170 (nconc saved-list (list symbol))))) 4172 (nconc saved-list (list symbol)))))
4171 (setq saved-list (sort (cdr saved-list) 'string<)) 4173 (setq saved-list (sort (cdr saved-list) 'string<))
4172 (unless (bolp) 4174 (unless (bolp)
4173 (princ "\n")) 4175 (princ "\n"))
4174 (princ "(custom-set-variables 4176 (princ "(custom-set-variables