Re: face at point

[Miles Bader <miles@lsi.nec.co.jp>]

John Hunter <jdhunter@nitace.bsd.uchicago.edu> writes:
> Ie, how do I find out what face is responsible for a given segment of
> text in a given mode?

(defun what-face (pos)
  (interactive "d")
  (let ((face (or (get-char-property (point) 'read-face-name)
                  (get-char-property (point) 'face))))
    (if face (message "Face: %s" face) (message "No face at %d" pos))))

-Miles
-- 
97% of everything is grunge