How to show (text-properties-at (point)) in minibuffer?

How to show (text-properties-at (point)) in minibuffer?

[dont.spam.earl]

Hi all,

I'm customizing my shell mode and noticing some regions have unexpected faces. To debug this, I want the minibuffer to list the faces at the current point (from 'text-properties-at) and automatically update as the point moves. I've tried this a few ways but haven't gotten it to work.

I tried customizing the mode-line-format variable, yielding this line in my .emacs file. It didn't work:
  '(mode-line-format (quote ("%e" mode-line-front-space mode-line-mule-info mode-line-client mode-line-modified mode-line-remote mode-line-frame-identification mode-line-buffer-identification "   " mode-line-position (vc-mode vc-mode) "  " mode-line-modes mode-line-misc-info mode-line-end-spaces (:eval (text-properties-at (point))))))

This also doesn't work:
(setq global-mode-string
	  (append global-mode-string
			  (list '(:eval (text-properties-at (point))))))

Any suggestions on how to do this?

Thanks!

Earl

Re: How to show (text-properties-at (point)) in minibuffer?

[Michael Heerdegen]

Hi,

you already know that C-u C-x = lists text properties at point?
The mode-line might not be such a superb place to show them, the list
can be quite longish.

Anyway, in your code, the :eval construct should evaluate to a string,
e.g.

(setq-default
 mode-line-format
 (cons '(:eval (format "%s" (text-properties-at (point))))
       (default-value 'mode-line-format)))

Note that the mode-line isn't necessarily recomputed after every
command.

Michael.

Re: How to show (text-properties-at (point)) in minibuffer?

[Stefan Monnier]

>  (cons '(:eval (format "%s" (text-properties-at (point))))
                         ^^^^
                         "%S"

"%s" is only really useful for strings; for general Elisp objects, %S
is the better choice.


        Stefan

Re: How to show (text-properties-at (point)) in minibuffer?

[Michael Heerdegen]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

> >  (cons '(:eval (format "%s" (text-properties-at (point))))
>                          ^^^^
>                          "%S"

Thanks.  An old bad habit of mine.

Michael.

Re: How to show (text-properties-at (point)) in minibuffer?

[dont.spam.earl]

Michael, Stefan, that worked. I did not know about C-u C-x =. Thanks for the tips!

On Thursday, May 15, 2014 6:35:56 AM UTC-7, Michael Heerdegen wrote:
> Stefan Monnier <monnier@iro.umontreal.ca> writes:
> 
> 
> 
> > >  (cons '(:eval (format "%s" (text-properties-at (point))))
> 
> >                          ^^^^
> 
> >                          "%S"
> 
> 
> 
> Thanks.  An old bad habit of mine.
> 
> 
> 
> Michael.