From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: John Hunter <jdhunter@nitace.bsd.uchicago.edu>
Newsgroups: gmane.emacs.help
Subject: Re: face at point
Date: Fri, 15 Nov 2002 08:31:51 -0600
Organization: The University of Chicago
Sender: help-gnu-emacs-admin@gnu.org
Message-ID: <m2ptt6ykdk.fsf@mother.paradise.lost>
References: <m2bs4reg1l.fsf@mother.paradise.lost> <mailman.1037335988.3983.help-gnu-emacs@gnu.org>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1037371671 9846 80.91.224.249 (15 Nov 2002 14:47:51 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Fri, 15 Nov 2002 14:47:51 +0000 (UTC)
Return-path: <help-gnu-emacs-admin@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 18Chl6-0002Xu-00
	for <gnu-help-gnu-emacs@m.gmane.org>; Fri, 15 Nov 2002 15:47:48 +0100
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.10)
	id 18ChmW-0005hG-00; Fri, 15 Nov 2002 09:49:16 -0500
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!news.uchicago.edu!not-for-mail
Original-Newsgroups: gnu.emacs.help
Original-Lines: 12
User-Agent: Gnus/5.090005 (Oort Gnus v0.05) Emacs/21.2 (i686-pc-linux-gnu)
Cancel-Lock: sha1:CCgZqiC3XiAYinVsexVr1DF0cDw=
Original-NNTP-Posting-Host: 128.135.97.130
Original-X-Trace: news.uchicago.edu 1037370699 128.135.97.130 (Fri, 15 Nov 2002 08:31:39 CST)
Original-NNTP-Posting-Date: Fri, 15 Nov 2002 08:31:39 CST
X-SessionID: EK6B9-16798-P4-14598@news.uchicago.edu
X-Hash-Info: post-filter,v:1.4
X-Hash: 67a74c12 78eeef2e 70053717 9ccbca8b 89679f2d
Original-Xref: shelby.stanford.edu gnu.emacs.help:107080
Original-To: help-gnu-emacs@gnu.org
Errors-To: help-gnu-emacs-admin@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.0.11
Precedence: bulk
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs/>
Xref: main.gmane.org gmane.emacs.help:3634
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:3634

>>>>> "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