Mercurial > hg > xemacs-beta

comparison lisp/cus-edit.el @ 707:a307f9a2021d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-12-20 05:49:28 by andyp] sync with 21-4-6-windows
author andyp
date Thu, 20 Dec 2001 05:49:48 +0000
parents 023b83f4e54b
children 79940b592197
comparison
equal deleted inserted replaced
706:c9bf82d465b5 707:a307f9a2021d
3390 (let ((standard-output (current-buffer))) 3390 (let ((standard-output (current-buffer)))
3391 (unless (bolp) 3391 (unless (bolp)
3392 (princ "\n")) 3392 (princ "\n"))
3393 (princ "(custom-set-variables") 3393 (princ "(custom-set-variables")
3394 (mapatoms (lambda (symbol) 3394 (mapatoms (lambda (symbol)
3395 (let ((spec (car-safe (get symbol 'theme-value))) 3395 (let ((spec (car-safe (get symbol 'theme-value)))
3396 (requests (get symbol 'custom-requests)) 3396 (requests (get symbol 'custom-requests))
3397 (now (not (or (get symbol 'standard-value) 3397 (now (not (or (get symbol 'standard-value)
3398 (and (not (boundp symbol)) 3398 (and (not (boundp symbol))
3399 (not (eq (get symbol 'force-value) 3399 (not (eq (get symbol 'force-value)
3400 'rogue)))))) 3400 'rogue))))))
3401 (comment (get symbol 'saved-variable-comment))) 3401 (comment (get symbol 'saved-variable-comment)))
3402 (when (or (and spec (eq (car spec) 'user) 3402 (when (or (and spec (eq (car spec) 'user)
3403 (eq (second spec) 'set)) comment) 3403 (eq (second spec) 'set)) comment
3404 ;; support non-themed vars
3405 (and (null spec) (get symbol 'saved-value)))
3404 (princ "\n '(") 3406 (princ "\n '(")
3405 (prin1 symbol) 3407 (prin1 symbol)
3406 (princ " ") 3408 (princ " ")
3407 ;; This comment stuff is in the way #### 3409 ;; This comment stuff is in the way ####
3408 ;; Is (eq (third spec) (car saved-value)) ???? 3410 ;; Is (eq (third spec) (car saved-value)) ????
3429 (now (not (or (get symbol 'face-defface-spec) 3431 (now (not (or (get symbol 'face-defface-spec)
3430 (and (not (find-face symbol)) 3432 (and (not (find-face symbol))
3431 (not (eq (get symbol 'force-face) 'rogue))))))) 3433 (not (eq (get symbol 'force-face) 'rogue)))))))
3432 (when (or (and (not (memq symbol custom-save-face-ignoring)) 3434 (when (or (and (not (memq symbol custom-save-face-ignoring))
3433 ;; Don't print default face here. 3435 ;; Don't print default face here.
3434 theme-spec 3436 (or (and theme-spec
3435 (eq (car theme-spec) 'user) 3437 (eq (car theme-spec) 'user)
3436 (eq (second theme-spec) 'set)) comment) 3438 (eq (second theme-spec) 'set))
3439 ;; cope with non-themed faces
3440 (and (null theme-spec)
3441 (get symbol 'saved-face)))) comment)
3437 (princ "\n '(") 3442 (princ "\n '(")
3438 (prin1 symbol) 3443 (prin1 symbol)
3439 (princ " ") 3444 (princ " ")
3440 (prin1 (get symbol 'saved-face)) 3445 (prin1 (get symbol 'saved-face))
3441 (if (or comment now) 3446 (if (or comment now)