2829 |
("Just current attributes" custom-face-edit-selected |
("Just current attributes" custom-face-edit-selected |
2830 |
(lambda (widget) |
(lambda (widget) |
2831 |
(not (eq (widget-get widget :custom-form) 'selected)))) |
(not (eq (widget-get widget :custom-form) 'selected)))) |
2832 |
("Show initial Lisp expression" custom-face-edit-lisp |
("Show as Lisp expression" custom-face-edit-lisp |
2833 |
(lambda (widget) |
(lambda (widget) |
2834 |
(not (eq (widget-get widget :custom-form) 'lisp))))) |
(not (eq (widget-get widget :custom-form) 'lisp))))) |
2835 |
"Alist of actions for the `custom-face' widget. |
"Alist of actions for the `custom-face' widget. |