# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 861991893 0
# Node ID 1f4d7f74193217ff8e933130a93808d671304012
# Parent  7512243efd89b11591a14e6200f8adc0894cfecf
(describe-face): Add documentation.

diff -r 7512243efd89 -r 1f4d7f741932 lisp/faces.el
--- a/lisp/faces.el	Fri Apr 25 18:10:43 1997 +0000
+++ b/lisp/faces.el	Fri Apr 25 18:11:33 1997 +0000
@@ -1072,7 +1072,13 @@
     (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.")))))
 
 ;;; Make the standard faces.
 ;;; The C code knows the default and modeline faces as faces 0 and 1,