From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.devel Subject: Re: Feature request for `describe-char-after' Date: Mon, 22 Mar 2004 17:18:04 +0200 Organization: JURTA Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <87smg0ykpf.fsf@mail.jurta.org> References: <16477.53040.700494.489540@gargle.gargle.HOWL> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1079969565 8613 80.91.224.253 (22 Mar 2004 15:32:45 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 22 Mar 2004 15:32:45 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Mon Mar 22 16:32:28 2004 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1B5RPf-00088b-00 for ; Mon, 22 Mar 2004 16:32:27 +0100 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1B5RPa-0005Hv-00 for ; Mon, 22 Mar 2004 16:32:27 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.30) id 1B5RMO-0001nw-Uw for emacs-devel@quimby.gnus.org; Mon, 22 Mar 2004 10:29:04 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.30) id 1B5RLn-0001kA-Vv for emacs-devel@gnu.org; Mon, 22 Mar 2004 10:28:27 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.30) id 1B5RLF-0001ZN-Mp for emacs-devel@gnu.org; Mon, 22 Mar 2004 10:28:25 -0500 Original-Received: from [66.33.219.4] (helo=spork.dreamhost.com) by monty-python.gnu.org with esmtp (Exim 4.30) id 1B5RFQ-0007yJ-BA for emacs-devel@gnu.org; Mon, 22 Mar 2004 10:21:52 -0500 Original-Received: from mail.jurta.org (80-235-32-135-dsl.mus.estpak.ee [80.235.32.135]) by spork.dreamhost.com (Postfix) with ESMTP id 8004311DC29; Mon, 22 Mar 2004 07:21:45 -0800 (PST) Original-To: luis fernandes In-Reply-To: <16477.53040.700494.489540@gargle.gargle.HOWL> (luis fernandes's message of "Sun, 21 Mar 2004 12:21:52 -0500") User-Agent: Gnus/5.110002 (No Gnus v0.2) Emacs/21.3.50 (gnu/linux) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.4 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:20730 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:20730 luis fernandes writes: > I would like to request that, if possible, "describe-char-after" (C-u > C-x =) also include the name of the face, the character being > described, is rendered in. It seems what you request for is already implemented. For example, C-u C-x = produces: There are text properties here: fontified t face message-header-name-face > For example, if one wants to modify a particular face, one has to > find the name of the face first. So, being able to place the cursor on > the character in question and then quering everything about that > character is very convenient. Adding a button to the function that displays the face properties and has a link to the customization buffer would be good. Index: emacs/lisp/descr-text.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/descr-text.el,v retrieving revision 1.17 diff -c -r1.17 descr-text.el *** emacs/lisp/descr-text.el 9 Nov 2003 19:38:32 -0000 1.17 --- emacs/lisp/descr-text.el 22 Mar 2004 15:08:53 -0000 *************** *** 110,116 **** (setq key (pop properties) val (pop properties) len 0) ! (unless (or (eq key 'category) (widgetp val)) (setq val (pp-to-string val) len (length val))) --- 110,116 ---- (setq key (pop properties) val (pop properties) len 0) ! (unless (or (memq key '(category face)) (widgetp val)) (setq val (pp-to-string val) len (length val))) *************** *** 128,133 **** --- 128,138 ---- :notify `(lambda (&rest ignore) (describe-text-category ',value)) (format "%S" value))) + ((eq key 'face) + (widget-create 'link + :notify `(lambda (&rest ignore) + (describe-face ',value)) + (format "%S" value))) ((widgetp value) (describe-text-widget value)) (t -- Juri Linkov http://www.jurta.org/emacs/