How to determine what face is associated with a bit of text?

[Steve Youngs]

* skip  <skip at pobox.com> writes:

  > I'm having trouble figuring out what face is used to render a particular bit
  > of text.  See the attached PNG.  I'm particularly interested in the
  > hard-to-read green text.  (This was clipped from an ipython comint buffer.)
  > Given a random bit of text is there some way to determine the face used to
  > render it?

(defun describe-face-at-point ()
  "Describe faces at point."
  (interactive)
  (let ((faces (get-char-property (point) 'face)))
    (if (listp faces)
	(hyper-apropos
	 (mapconcat
	  #'(lambda (f)
	      (symbol-name f)) faces "\\|") nil)
      (hyper-describe-face faces)
      (other-window 1))))



-- 
|---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---|
|       SXEmacs - The only _______ you'll ever need.       |
|         Fill in the blank, yes, it's THAT good!          |
|------------------------------------<steve at sxemacs.org>---|
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 316 bytes
Desc: not available
Url : http://lists.xemacs.org/pipermail/xemacs-beta/attachments/20080408/4a4b72f3/attachment.pgp