[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Feature request for `describe-char-after'

From: Juri Linkov
Subject: Re: Feature request for `describe-char-after'
Date: Mon, 22 Mar 2004 17:18:04 +0200
User-agent: Gnus/5.110002 (No Gnus v0.2) Emacs/21.3.50 (gnu/linux)

luis fernandes <address@hidden> 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))

Juri Linkov

reply via email to

[Prev in Thread] Current Thread [Next in Thread]