Re: face at point

[epsmjd@ams.org (Michael J Downes)]

Miles Bader <miles@lsi.nec.co.jp> writes:

> (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))))

? I'm curious: How/who/when/why does a property 'read-face-name
ever get set?

The Emacs Lisp reference manual (2.8 for 21.2) has no index entry
for it:

  "No `read-face-name' in index"

There is a function for it in faces.el, but the function seems to be for
interactively reading a face name from the user, and I didn't see
anything in the code that would make a text property out of it.

Grepping in share/emacs/21.2/lisp/*.el doesn't seem to turn up anything
more enlightening either.