|
From: | Stefan Monnier |
Subject: | Re: Question about font-lock faces |
Date: | Wed, 28 Feb 2007 12:33:49 -0500 |
User-agent: | Gnus/5.11 (Gnus v5.11) Emacs/22.0.93 (gnu/linux) |
> (defun rdc-show-face-at-point () > "Show value of property faceat point." > (interactive ) > (let ((f (get-text-property (point) 'face)) > (o > (delq nil > (mapcar > #'(lambda (overlay) > (overlay-get overlay 'face)) > (overlays-at (point)))))) > (message "Face %s" f > (if o > o > " ")))) You're probably better off using `get-char-property' directly (which also knows to select the right overlay based on priorities). Stefan
[Prev in Thread] | Current Thread | [Next in Thread] |