(calendar-dst-check-each-year-flag): Avoid

[gnu-emacs] / lisp / faces.el

diff --git a/lisp/faces.el b/lisp/faces.el
index 55eca37d963844a0d73673c50a13fcada9521328..c44bee322a227c746c22b7dcd7beda33114f974f 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1293,6 +1293,7 @@ If FRAME is omitted or nil, use the selected frame."
              (insert "   undefined face.\n")
            (let ((customize-label "customize this face")
                  file-name)
+             (insert (concat " (" (propertize "sample" 'font-lock-face f) ")"))
              (princ (concat " (" customize-label ")\n"))
              (insert "Documentation: "
                      (or (face-documentation f)