Mercurial > hg > xemacs-beta

comparison lisp/custom/cus-edit.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 9f59509498e1
children cca96a509cfe
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
2 ;; 2 ;;
3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
4 ;; 4 ;;
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
6 ;; Keywords: help, faces 6 ;; Keywords: help, faces
7 ;; Version: 1.68 7 ;; Version: 1.69
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ 8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
9 9
10 ;;; Commentary: 10 ;;; Commentary:
11 ;; 11 ;;
12 ;; See `custom.el'. 12 ;; See `custom.el'.
1346 (let* ((symbol (widget-value widget)) 1346 (let* ((symbol (widget-value widget))
1347 (edit (widget-create-child-and-convert 1347 (edit (widget-create-child-and-convert
1348 widget 'editable-list 1348 widget 'editable-list
1349 :entry-format "%i %d %v" 1349 :entry-format "%i %d %v"
1350 :value (or (get symbol 'saved-face) 1350 :value (or (get symbol 'saved-face)
1351 (get symbol 'factory-face)) 1351 (get symbol 'factory-face)
1352 ;; Attempt to construct it.
1353 (list (list t (custom-face-attributes-get
1354 symbol (selected-frame)))))
1352 :insert-button-args '(:help-echo "\ 1355 :insert-button-args '(:help-echo "\
1353 Insert new display specification here.") 1356 Insert new display specification here.")
1354 :append-button-args '(:help-echo "\ 1357 :append-button-args '(:help-echo "\
1355 Append new display specification here.") 1358 Append new display specification here.")
1356 :delete-button-args '(:help-echo "\ 1359 :delete-button-args '(:help-echo "\
1536 `custom-group-tag-face'." 1539 `custom-group-tag-face'."
1537 :type '(repeat face) 1540 :type '(repeat face)
1538 :group 'customize) 1541 :group 'customize)
1539 1542
1540 (defface custom-group-tag-face-1 '((((class color) 1543 (defface custom-group-tag-face-1 '((((class color)
1541 (background dark)) 1544 (background dark))
1542 (:foreground "pink" :underline t)) 1545 (:foreground "pink" :underline t))
1543 (((class color) 1546 (((class color)
1544 (background light)) 1547 (background light))
1545 (:foreground "red" :underline t)) 1548 (:foreground "red" :underline t))
1546 (t (:underline t))) 1549 (t (:underline t)))
1547 "Face used for group tags.") 1550 "Face used for group tags.")
1548 1551
1549 (defface custom-group-tag-face '((((class color) 1552 (defface custom-group-tag-face '((((class color)
1550 (background dark)) 1553 (background dark))
1551 (:foreground "light blue" :underline t)) 1554 (:foreground "light blue" :underline t))