Mercurial > emacs
changeset 38235:c6078ee53ddf
(widget-color-sample-face-get): Return ((foreground-color . COLOR))
instead of constructing a face.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 29 Jun 2001 17:50:05 +0000 |
| parents | aa4a82ab70c4 |
| children | ec872cb65bc3 |
| files | lisp/wid-edit.el |
| diffstat | 1 files changed, 1 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/wid-edit.el Fri Jun 29 17:40:38 2001 +0000 +++ b/lisp/wid-edit.el Fri Jun 29 17:50:05 2001 +0000 @@ -3400,10 +3400,7 @@ (widget-value widget) (error (widget-get widget :value))))) (if (color-defined-p value) - (let ((symbol (intern (concat "fg:" value)))) - (condition-case nil - (facemenu-get-face symbol) - (error 'default))) + (list (cons 'foreground-color value)) 'default))) (defun widget-color-action (widget &optional event)