6 lines
282 B
EmacsLisp
6 lines
282 B
EmacsLisp
(defun what-face (pos)
|
|
"Tells you the name of the face (point) is on."
|
|
(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))))
|