diff options
| author | Stefan Monnier | 2000-04-17 10:35:10 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-04-17 10:35:10 +0000 |
| commit | 8cfd634fbe676cd31d4b7009dfc572c7ad9a5cd4 (patch) | |
| tree | a82e9e35b88cf515c951cccdd21743115bf86aed | |
| parent | 8d2259b9a2cff2b69cd830d658af59acdd08e4ec (diff) | |
| download | emacs-8cfd634fbe676cd31d4b7009dfc572c7ad9a5cd4.tar.gz emacs-8cfd634fbe676cd31d4b7009dfc572c7ad9a5cd4.zip | |
(custom-face, face): Unquote the lambda.
| -rw-r--r-- | lisp/cus-edit.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index a559fbe60e5..129886b67cd 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -2547,8 +2547,7 @@ Match frames with dark backgrounds.") | |||
| 2547 | "Customize face." | 2547 | "Customize face." |
| 2548 | :sample-face 'custom-face-tag-face | 2548 | :sample-face 'custom-face-tag-face |
| 2549 | :help-echo "Set or reset this face." | 2549 | :help-echo "Set or reset this face." |
| 2550 | :documentation-property '(lambda (face) | 2550 | :documentation-property (lambda (face) (face-doc-string face)) |
| 2551 | (face-doc-string face)) | ||
| 2552 | :value-create 'custom-face-value-create | 2551 | :value-create 'custom-face-value-create |
| 2553 | :action 'custom-face-action | 2552 | :action 'custom-face-action |
| 2554 | :custom-category 'face | 2553 | :custom-category 'face |
| @@ -2889,7 +2888,7 @@ restoring it to the state of a face that has never been customized." | |||
| 2889 | :value-get 'widget-value-value-get | 2888 | :value-get 'widget-value-value-get |
| 2890 | :validate 'widget-children-validate | 2889 | :validate 'widget-children-validate |
| 2891 | :action 'widget-face-action | 2890 | :action 'widget-face-action |
| 2892 | :match '(lambda (widget value) (symbolp value))) | 2891 | :match (lambda (widget value) (symbolp value))) |
| 2893 | 2892 | ||
| 2894 | (defun widget-face-value-create (widget) | 2893 | (defun widget-face-value-create (widget) |
| 2895 | "Create a `custom-face' child." | 2894 | "Create a `custom-face' child." |