Mercurial > hg > xemacs-beta

comparison lisp/cus-edit.el @ 416:ebe98a74bd68 r21-2-16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-16
author cvs
date Mon, 13 Aug 2007 11:22:23 +0200
parents 697ef44129c6
children 95016f13131a
comparison
equal deleted inserted replaced
415:a27f76b40c83 416:ebe98a74bd68
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 (custom-face-get-spec symbol))
2292 (get symbol 'saved-face)
2293 (get symbol 'face-defface-spec)
2294 ;; Attempt to construct it.
2295 (list (list t (face-custom-attributes-get
2296 symbol (selected-frame))))))
2297 (form (widget-get widget :custom-form)) 2292 (form (widget-get widget :custom-form))
2298 (indent (widget-get widget :indent)) 2293 (indent (widget-get widget :indent))
2299 (edit (widget-create-child-and-convert 2294 (edit (widget-create-child-and-convert
2300 widget 2295 widget
2301 (cond ((and (eq form 'selected) 2296 (cond ((and (eq form 'selected)
2390 "Make the face attributes in WIDGET take effect." 2385 "Make the face attributes in WIDGET take effect."
2391 (let* ((symbol (widget-value widget)) 2386 (let* ((symbol (widget-value widget))
2392 (child (car (widget-get widget :children))) 2387 (child (car (widget-get widget :children)))
2393 (value (widget-value child))) 2388 (value (widget-value child)))
2394 (put symbol 'customized-face value) 2389 (put symbol 'customized-face value)
2395 (face-spec-set symbol value) 2390 (face-spec-set symbol value nil '(custom))
2396 (custom-face-state-set widget) 2391 (custom-face-state-set widget)
2397 (custom-redraw-magic widget))) 2392 (custom-redraw-magic widget)))
2398 2393
2399 (defun custom-face-save (widget) 2394 (defun custom-face-save (widget)
2400 "Make the face attributes in WIDGET default." 2395 "Make the face attributes in WIDGET default."
2401 (let* ((symbol (widget-value widget)) 2396 (let* ((symbol (widget-value widget))
2402 (child (car (widget-get widget :children))) 2397 (child (car (widget-get widget :children)))
2403 (value (widget-value child))) 2398 (value (widget-value child)))
2404 (face-spec-set symbol value) 2399 (face-spec-set symbol value nil '(custom))
2405 (put symbol 'saved-face value) 2400 (put symbol 'saved-face value)
2406 (put symbol 'customized-face nil) 2401 (put symbol 'customized-face nil)
2407 (custom-save-all) 2402 (custom-save-all)
2408 (custom-face-state-set widget) 2403 (custom-face-state-set widget)
2409 (custom-redraw-magic widget))) 2404 (custom-redraw-magic widget)))
2414 (child (car (widget-get widget :children))) 2409 (child (car (widget-get widget :children)))
2415 (value (get symbol 'saved-face))) 2410 (value (get symbol 'saved-face)))
2416 (unless value 2411 (unless value
2417 (signal 'error (list "No saved value for this face" symbol))) 2412 (signal 'error (list "No saved value for this face" symbol)))
2418 (put symbol 'customized-face nil) 2413 (put symbol 'customized-face nil)
2419 (face-spec-set symbol value) 2414 (face-spec-set symbol value nil '(custom))
2420 (widget-value-set child value) 2415 (widget-value-set child value)
2421 (custom-face-state-set widget) 2416 (custom-face-state-set widget)
2422 (custom-redraw-magic widget))) 2417 (custom-redraw-magic widget)))
2423 2418
2424 (defun custom-face-reset-standard (widget) 2419 (defun custom-face-reset-standard (widget)
2430 (signal 'error (list "No standard setting for this face" symbol))) 2425 (signal 'error (list "No standard setting for this face" symbol)))
2431 (put symbol 'customized-face nil) 2426 (put symbol 'customized-face nil)
2432 (when (get symbol 'saved-face) 2427 (when (get symbol 'saved-face)
2433 (put symbol 'saved-face nil) 2428 (put symbol 'saved-face nil)
2434 (custom-save-all)) 2429 (custom-save-all))
2435 (face-spec-set symbol value) 2430 (face-spec-set symbol value nil '(custom))
2436 (widget-value-set child value) 2431 (widget-value-set child value)
2437 (custom-face-state-set widget) 2432 (custom-face-state-set widget)
2438 (custom-redraw-magic widget))) 2433 (custom-redraw-magic widget)))
2439 2434
2440 ;;; The `face' Widget. 2435 ;;; The `face' Widget.