Mercurial > emacs
changeset 33024:42e118959715
(custom-face-value-create): If face name doesn't end with "face", add
such here (similar to custom group widgets).
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 29 Oct 2000 14:49:01 +0000 |
| parents | ab1061464a32 |
| children | 9559a9aeff3c |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-edit.el Sun Oct 29 14:48:11 2000 +0000 +++ b/lisp/cus-edit.el Sun Oct 29 14:49:01 2000 +0000 @@ -2619,7 +2619,9 @@ (if (eq custom-buffer-style 'face) (insert " ") (widget-specify-sample widget begin (point)) - (insert ": ")) + (if (string-match "face\\'" tag) + (insert ":") + (insert " face: "))) ;; Sample. (push (widget-create-child-and-convert widget 'item :format "(%{%t%})"