(describe-face): Add documentation.

diff --git a/lisp/faces.el b/lisp/faces.el
index d65bc1b019e1bde22c7d31138e7ebd8833c31c62..9c12fe34ff560e1c64db31b565ff4ae5b7100ff0 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1072,7 +1072,13 @@ selected frame."
     (princ "Background: ") (princ (face-background face)) (terpri)
     (princ "      Font: ") (princ (face-font face)) (terpri)
     (princ "Underlined: ") (princ (if (face-underline-p face) "yes" "no")) (terpri)
-    (princ "   Stipple: ") (princ (or (face-stipple face) "none"))))
+    (princ "   Stipple: ") (princ (or (face-stipple face) "none")) (terpri)
+    (terpri)
+    (princ "Documentation:") (terpri)
+    (let ((doc (face-doc-string face)))
+      (if doc
+         (princ doc)
+       (princ "not documented as a face.")))))
 \f
 ;;; Make the standard faces.
 ;;; The C code knows the default and modeline faces as faces 0 and 1,