Mercurial > hg > xemacs-beta

comparison lisp/cus-edit.el @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents fbbf69b4e8a7
children 6240c7796c7a
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
2286 (message "Creating face editor...") 2286 (message "Creating face editor...")
2287 (custom-load-widget widget) 2287 (custom-load-widget widget)
2288 (unless (widget-get widget :custom-form) 2288 (unless (widget-get widget :custom-form)
2289 (widget-put widget :custom-form custom-face-default-form)) 2289 (widget-put widget :custom-form custom-face-default-form))
2290 (let* ((symbol (widget-value widget)) 2290 (let* ((symbol (widget-value widget))
2291 (spec (or (get symbol 'customized-face) 2291 (spec (or (get symbol 'saved-face)
2292 (get symbol 'saved-face)
2293 (get symbol 'face-defface-spec) 2292 (get symbol 'face-defface-spec)
2294 ;; Attempt to construct it. 2293 ;; Attempt to construct it.
2295 (list (list t (face-custom-attributes-get 2294 (list (list t (face-custom-attributes-get
2296 symbol (selected-frame)))))) 2295 symbol (selected-frame))))))
2297 (form (widget-get widget :custom-form)) 2296 (form (widget-get widget :custom-form))
3015 (now (not (or (get symbol 'standard-value) 3014 (now (not (or (get symbol 'standard-value)
3016 (and (not (boundp symbol)) 3015 (and (not (boundp symbol))
3017 (not (get symbol 'force-value))))))) 3016 (not (get symbol 'force-value)))))))
3018 (when value 3017 (when value
3019 (princ "\n '(") 3018 (princ "\n '(")
3020 (prin1 symbol) 3019 (princ symbol)
3021 (princ " ") 3020 (princ " ")
3022 (prin1 (car value)) 3021 (prin1 (car value))
3023 (cond (requests 3022 (cond (requests
3024 (if now 3023 (if now
3025 (princ " t ") 3024 (princ " t ")
3056 (let ((value (get symbol 'saved-face))) 3055 (let ((value (get symbol 'saved-face)))
3057 (when (and (not (eq symbol 'default)) 3056 (when (and (not (eq symbol 'default))
3058 ;; Don't print default face here. 3057 ;; Don't print default face here.
3059 value) 3058 value)
3060 (princ "\n '(") 3059 (princ "\n '(")
3061 (prin1 symbol) 3060 (princ symbol)
3062 (princ " ") 3061 (princ " ")
3063 (prin1 value) 3062 (prin1 value)
3064 (if (or (get symbol 'face-defface-spec) 3063 (if (or (get symbol 'face-defface-spec)
3065 (and (not (find-face symbol)) 3064 (and (not (find-face symbol))
3066 (not (get symbol 'force-face)))) 3065 (not (get symbol 'force-face))))