From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 25 Apr 1997 18:11:33 +0000 (+0000)
Subject: (describe-face): Add documentation.
X-Git-Tag: emacs-20.1~2385
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=64b26d5cb515bb0f58053aad8e61daa81f6696ef;p=emacs.git

(describe-face): Add documentation.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index d65bc1b019e..9c12fe34ff5 100644
--- 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.")))))
 
 ;;; Make the standard faces.
 ;;; The C code knows the default and modeline faces as faces 0 and 1,