Mercurial > emacs
comparison lisp/cus-edit.el @ 40800:0493dde6ec7d
2001-11-07 Per Abrahamsen <abraham@dina.kvl.dk>
* cus-edit.el (custom-face-menu): Clarify menu entry.
| author | Per Abrahamsen <abraham@dina.kvl.dk> |
|---|---|
| date | Wed, 07 Nov 2001 07:56:02 +0000 |
| parents | 1b4259bc2f74 |
| children | f49e883aeab2 |
comparison
equal
deleted
inserted
replaced
| 40799:79677ae208f0 | 40800:0493dde6ec7d |
|---|---|
| 2827 (lambda (widget) | 2827 (lambda (widget) |
| 2828 (not (eq (widget-get widget :custom-form) 'all)))) | 2828 (not (eq (widget-get widget :custom-form) 'all)))) |
| 2829 ("Just current attributes" custom-face-edit-selected | 2829 ("Just current attributes" custom-face-edit-selected |
| 2830 (lambda (widget) | 2830 (lambda (widget) |
| 2831 (not (eq (widget-get widget :custom-form) 'selected)))) | 2831 (not (eq (widget-get widget :custom-form) 'selected)))) |
| 2832 ("Show as Lisp expression" custom-face-edit-lisp | 2832 ("Show initial Lisp expression" custom-face-edit-lisp |
| 2833 (lambda (widget) | 2833 (lambda (widget) |
| 2834 (not (eq (widget-get widget :custom-form) 'lisp))))) | 2834 (not (eq (widget-get widget :custom-form) 'lisp))))) |
| 2835 "Alist of actions for the `custom-face' widget. | 2835 "Alist of actions for the `custom-face' widget. |
| 2836 Each entry has the form (NAME ACTION FILTER) where NAME is the name of | 2836 Each entry has the form (NAME ACTION FILTER) where NAME is the name of |
| 2837 the menu entry, ACTION is the function to call on the widget when the | 2837 the menu entry, ACTION is the function to call on the widget when the |