Re: Question about font-lock faces

[Lennart Borgman (gmail)]

Chris McMahan wrote:
> I've been using this one from Miles Bader for some time, and it works
> quite well.
>
> - Chris
>
> (defun what-face (pos)
>   "Return the font-lock face information at the current point
> Thanks to Miles Bader <miles-at-lsi.nec.co.jp> for this (gnus.emacs.help)"
>   (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))))


Nice, but (point) should be pos in the code above.