help-gnu-emacs
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: face at point

From: John Hunter
Subject: Re: face at point
Date: Fri, 15 Nov 2002 08:31:51 -0600
User-agent: Gnus/5.090005 (Oort Gnus v0.05) Emacs/21.2 (i686-pc-linux-gnu) 
>>>>> "Miles" == Miles Bader <miles@lsi.nec.co.jp> writes:

    Miles> (defun what-face (pos)
    Miles>   (interactive "d")
    Miles>   (let ((face (or (get-char-property (point) 'read-face-name)
    Miles>                   (get-char-property (point) 'face))))
    Miles>     (if face (message "Face: %s" face) (message "No face at %d" 
pos))))

This is perfect.  Thanks.

John Hunter
reply via email to
[Prev in Thread] Current Thread [Next in Thread]