1561 |
:group 'custom-magic-faces) |
:group 'custom-magic-faces) |
1562 |
|
|
1563 |
(defface custom-set-face '((((class color)) |
(defface custom-set-face '((((class color)) |
1564 |
(:foreground "blue" :background "white")) |
(:foreground "blue" :background "white")) |
1565 |
(t |
(t |
1566 |
(:slant italic))) |
(:slant italic))) |
1567 |
"Face used when the customize item has been set." |
"Face used when the customize item has been set." |
1568 |
:group 'custom-magic-faces) |
:group 'custom-magic-faces) |
1569 |
|
|
1578 |
"Face used when the customize item has been saved." |
"Face used when the customize item has been saved." |
1579 |
:group 'custom-magic-faces) |
:group 'custom-magic-faces) |
1580 |
|
|
1581 |
(defconst custom-magic-alist '((nil "#" underline "\ |
(defconst custom-magic-alist |
1582 |
|
'((nil "#" underline "\ |
1583 |
uninitialized, you should not see this.") |
uninitialized, you should not see this.") |
1584 |
(unknown "?" italic "\ |
(unknown "?" italic "\ |
1585 |
unknown, you should not see this.") |
unknown, you should not see this.") |
1586 |
(hidden "-" default "\ |
(hidden "-" default "\ |
1587 |
hidden, invoke \"Show\" in the previous line to show." "\ |
hidden, invoke \"Show\" in the previous line to show." "\ |
1588 |
group now hidden, invoke \"Show\", above, to show contents.") |
group now hidden, invoke \"Show\", above, to show contents.") |
1589 |
(invalid "x" custom-invalid-face "\ |
(invalid "x" custom-invalid-face "\ |
1590 |
the value displayed for this %c is invalid and cannot be set.") |
the value displayed for this %c is invalid and cannot be set.") |
1591 |
(modified "*" custom-modified-face "\ |
(modified "*" custom-modified-face "\ |
1592 |
you have edited the value as text, but you have not set the %c." "\ |
you have edited the value as text, but you have not set the %c." "\ |
1593 |
you have edited something in this group, but not set it.") |
you have edited something in this group, but not set it.") |
1594 |
(set "+" custom-set-face "\ |
(set "+" custom-set-face "\ |
1595 |
you have set this %c, but not saved it for future sessions." "\ |
you have set this %c, but not saved it for future sessions." "\ |
1596 |
something in this group has been set, but not saved.") |
something in this group has been set, but not saved.") |
1597 |
(changed ":" custom-changed-face "\ |
(changed ":" custom-changed-face "\ |
1598 |
this %c has been changed outside the customize buffer." "\ |
this %c has been changed outside the customize buffer." "\ |
1599 |
something in this group has been changed outside customize.") |
something in this group has been changed outside customize.") |
1600 |
(saved "!" custom-saved-face "\ |
(saved "!" custom-saved-face "\ |
1601 |
this %c has been set and saved." "\ |
this %c has been set and saved." "\ |
1602 |
something in this group has been set and saved.") |
something in this group has been set and saved.") |
1603 |
(rogue "@" custom-rogue-face "\ |
(rogue "@" custom-rogue-face "\ |
1604 |
this %c has not been changed with customize." "\ |
this %c has not been changed with customize." "\ |
1605 |
something in this group is not prepared for customization.") |
something in this group is not prepared for customization.") |
1606 |
(standard " " nil "\ |
(standard " " nil "\ |
1607 |
this %c is unchanged from its standard setting." "\ |
this %c is unchanged from its standard setting." "\ |
1608 |
visible group members are all at standard settings.")) |
visible group members are all at standard settings.")) |
1609 |
"Alist of customize option states. |
"Alist of customize option states. |
2577 |
"Edit face attributes." |
"Edit face attributes." |
2578 |
:format "%t: %v" |
:format "%t: %v" |
2579 |
:tag "Attributes" |
:tag "Attributes" |
2580 |
:extra-offset 12 |
:extra-offset 13 |
2581 |
:button-args '(:help-echo "Control whether this attribute has any effect.") |
:button-args '(:help-echo "Control whether this attribute has any effect.") |
2582 |
:value-to-internal 'custom-face-edit-fix-value |
:value-to-internal 'custom-face-edit-fix-value |
2583 |
:match (lambda (widget value) |
:match (lambda (widget value) |
2818 |
|
|
2819 |
(define-widget 'custom-face-selected 'group |
(define-widget 'custom-face-selected 'group |
2820 |
"Edit the attributes of the selected display in a face specification." |
"Edit the attributes of the selected display in a face specification." |
2821 |
:args '((repeat :format "" |
:args '((choice :inline t |
2822 |
:inline t |
(group :tag "With Defaults" :inline t |
2823 |
(group custom-display-unselected sexp)) |
(group (const :tag "" default) |
2824 |
(group (sexp :format "") custom-face-edit) |
(custom-face-edit :tag " Default\n Attributes")) |
2825 |
(repeat :format "" |
(repeat :format "" |
2826 |
:inline t |
:inline t |
2827 |
sexp))) |
(group custom-display-unselected sexp)) |
2828 |
|
(group (sexp :format "") |
2829 |
|
(custom-face-edit :tag " Overriding\n Attributes")) |
2830 |
|
(repeat :format "" |
2831 |
|
:inline t |
2832 |
|
sexp)) |
2833 |
|
(group :tag "No Defaults" :inline t |
2834 |
|
(repeat :format "" |
2835 |
|
:inline t |
2836 |
|
(group custom-display-unselected sexp)) |
2837 |
|
(group (sexp :format "") |
2838 |
|
(custom-face-edit :tag "\n Attributes")) |
2839 |
|
(repeat :format "" |
2840 |
|
:inline t |
2841 |
|
sexp))))) |
2842 |
|
|
2843 |
|
|
2844 |
|
|
2845 |
(defconst custom-face-selected (widget-convert 'custom-face-selected) |
(defconst custom-face-selected (widget-convert 'custom-face-selected) |
2846 |
"Converted version of the `custom-face-selected' widget.") |
"Converted version of the `custom-face-selected' widget.") |