Get font face under cursor in Emacs

Question

I\'ve been developing my own custom color theme, and it\'d be really useful if I could get a list of font-faces affecting the text under the cursor.

Something like T

Answer 1

You can define what-face with this code:

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

After that,

M-x what-face

will print the face found at the current point.

(Thanks to thedz for pointing out that what-face wasn’t built in.)