changeset 17560:1f4d7f741932

(describe-face): Add documentation.
author Richard M. Stallman <rms@gnu.org>
date Fri, 25 Apr 1997 18:11:33 +0000
parents 7512243efd89
children 44ee1d09b4a8
files lisp/faces.el
diffstat 1 files changed, 7 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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,