mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

(describe-face): Add documentation.

Browse Source
This commit is contained in:
Richard M. Stallman 1997-04-25 18:11:33 +00:00
parent 2be7e3fa33
commit 64b26d5cb5
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/faces.el
View File

@ -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,