From: Miles Bader <miles@gnu.org>
Date: Sun, 29 Oct 2000 14:49:01 +0000 (+0000)
Subject: (custom-face-value-create): If face name doesn't end with "face", add
X-Git-Tag: emacs-pretest-21.0.90~450
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a62ebc520c3f88d3ce5e56fab8a98d5c27bc7e48;p=emacs.git

(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 b9d05919572..3208dc9ddac 100644
--- 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%})"