Mercurial > hg > xemacs-beta

comparison lisp/cus-edit.el @ 396:6719134a07c2 r21-2-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-13
author cvs
date Mon, 13 Aug 2007 11:12:05 +0200
parents 8626e4521993
children 74fd4e045ea6
comparison
equal deleted inserted replaced
395:de2c2a7459d2 396:6719134a07c2
3015 (now (not (or (get symbol 'standard-value) 3015 (now (not (or (get symbol 'standard-value)
3016 (and (not (boundp symbol)) 3016 (and (not (boundp symbol))
3017 (not (get symbol 'force-value))))))) 3017 (not (get symbol 'force-value)))))))
3018 (when value 3018 (when value
3019 (princ "\n '(") 3019 (princ "\n '(")
3020 (princ symbol) 3020 (prin1 symbol)
3021 (princ " ") 3021 (princ " ")
3022 (prin1 (car value)) 3022 (prin1 (car value))
3023 (cond (requests 3023 (cond (requests
3024 (if now 3024 (if now
3025 (princ " t ") 3025 (princ " t ")
3056 (let ((value (get symbol 'saved-face))) 3056 (let ((value (get symbol 'saved-face)))
3057 (when (and (not (eq symbol 'default)) 3057 (when (and (not (eq symbol 'default))
3058 ;; Don't print default face here. 3058 ;; Don't print default face here.
3059 value) 3059 value)
3060 (princ "\n '(") 3060 (princ "\n '(")
3061 (princ symbol) 3061 (prin1 symbol)
3062 (princ " ") 3062 (princ " ")
3063 (prin1 value) 3063 (prin1 value)
3064 (if (or (get symbol 'face-defface-spec) 3064 (if (or (get symbol 'face-defface-spec)
3065 (and (not (find-face symbol)) 3065 (and (not (find-face symbol))
3066 (not (get symbol 'force-face)))) 3066 (not (get symbol 'force-face))))