Mercurial > emacs

comparison lisp/faces.el @ 90650:02cf29720f31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 490-504) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 161-163) - Update from CVS - Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-130
author Miles Bader <miles@gnu.org>
date Tue, 07 Nov 2006 23:22:48 +0000
parents b5c13d1564a9 1d779fbeeaef
children df64e21eebd0
comparison
equal deleted inserted replaced
90649:d53934e7ddef 90650:02cf29720f31
1349 (insert "Face: " (symbol-name f)) 1349 (insert "Face: " (symbol-name f))
1350 (if (not (facep f)) 1350 (if (not (facep f))
1351 (insert " undefined face.\n") 1351 (insert " undefined face.\n")
1352 (let ((customize-label "customize this face") 1352 (let ((customize-label "customize this face")
1353 file-name) 1353 file-name)
1354 (insert (concat " (" (propertize "sample" 'font-lock-face f) ")"))
1354 (princ (concat " (" customize-label ")\n")) 1355 (princ (concat " (" customize-label ")\n"))
1355 (insert "Documentation: " 1356 (insert "Documentation: "
1356 (or (face-documentation f) 1357 (or (face-documentation f)
1357 "Not documented as a face.") 1358 "Not documented as a face.")
1358 "\n") 1359 "\n")