Mercurial > hg > xemacs-beta

comparison lisp/cus-edit.el @ 373:6240c7796c7a r21-2b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b2
author cvs
date Mon, 13 Aug 2007 11:04:06 +0200
parents cc15677e0335
children 8626e4521993
comparison
equal deleted inserted replaced
372:49e1ed2d7ed8 373:6240c7796c7a
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 'saved-face) 2291 (spec (or (get symbol 'customized-face)
2292 (get symbol 'saved-face)
2292 (get symbol 'face-defface-spec) 2293 (get symbol 'face-defface-spec)
2293 ;; Attempt to construct it. 2294 ;; Attempt to construct it.
2294 (list (list t (face-custom-attributes-get 2295 (list (list t (face-custom-attributes-get
2295 symbol (selected-frame)))))) 2296 symbol (selected-frame))))))
2296 (form (widget-get widget :custom-form)) 2297 (form (widget-get widget :custom-form))