7 lines
282 B
EmacsLisp
7 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))))
|