blob: fa27bb70cb2864a441f80e6f53e863b240c5d26b (
plain)
1
2
3
4
5
|
(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))))
|