diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-04-25 18:11:33 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-04-25 18:11:33 +0000 |
commit | 05f2fc65f6b91cfd3de8af3ec75b0c82c832a439 (patch) | |
tree | 546db7e02ab493fded5d8933a21f7e63ae71d6ef /lisp | |
parent | 67b25a1df6e299221a1fab151213bce961e51ea1 (diff) | |
download | emacs-05f2fc65f6b91cfd3de8af3ec75b0c82c832a439.tar.gz |
(describe-face): Add documentation.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/faces.el | 8 |
1 files changed, 7 insertions, 1 deletions
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, |