(custom-face-value-create): Always emphasize tag.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6be0792..47c45db 100644 (file)
--- 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  <abraham@dina.kvl.dk>
+
+       * cus-edit.el (custom-face-value-create): Always emphasize tag.
+
 2000-11-30  Edward M. Reingold  <reingold@emr.cs.uiuc.edu>
 
        * calendar/diary-lib.el (diary-entry-time): Anchor pattern correctly

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 55ef28c..137b406 100644 (file)
--- 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: ")))