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 |