(custom-face-value-create): If face name doesn't end with "face", add

such here (similar to custom group widgets).

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index b9d0591957241dd4e2c05a68f8925c4f5c6f68e3..3208dc9ddac7d8661a9c88f9e7898979754872f0 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -2619,7 +2619,9 @@ Match frames with dark backgrounds.")
           (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%})"