From a62ebc520c3f88d3ce5e56fab8a98d5c27bc7e48 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Sun, 29 Oct 2000 14:49:01 +0000 Subject: [PATCH] (custom-face-value-create): If face name doesn't end with "face", add such here (similar to custom group widgets). --- lisp/cus-edit.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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%})" -- 2.39.5