From c069a9d325a3d63a33ba7be59c061168c60075d0 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 30 Nov 2000 13:01:40 +0000 Subject: [PATCH] (custom-face-value-create): Always emphasize tag. --- lisp/ChangeLog | 4 ++++ lisp/cus-edit.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6be07926c1d..47c45dbaac3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -17,6 +17,10 @@ * emulation/tpu-extras.el (tpu-forward-line): Use forward-visible-line. +2000-11-30 Per Abrahamsen + + * cus-edit.el (custom-face-value-create): Always emphasize tag. + 2000-11-30 Edward M. Reingold * calendar/diary-lib.el (diary-entry-time): Anchor pattern correctly diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 55ef28ce93f..137b406663f 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -2666,9 +2666,9 @@ SPEC must be a full face spec." (t ;; Create tag. (insert tag) + (widget-specify-sample widget begin (point)) (if (eq custom-buffer-style 'face) (insert " ") - (widget-specify-sample widget begin (point)) (if (string-match "face\\'" tag) (insert ":") (insert " face: "))) -- 2.39.5