From: skip(a)pobox.com Date: Mon, 7 Apr 2008 08:40:54 -0500 I'm having trouble figuring out what face is used to render a particular bit of text. See the attached PNG. I'm particularly interested in the hard-to-read green text. (This was clipped from an ipython comint buffer.) Given a random bit of text is there some way to determine the face used to render it? Thanks, You can do M-x list-faces-display (or edit-faces), which lists all of the defined faces. Or you can use this: (global-set-key [(control button3)] 'describe-face-at-mouse-point) (defun describe-face-at-mouse-point (event) (interactive "*e") (let ((point (save-excursion (save-window-excursion (mouse-set-point event) (point))))) (describe-face-at-point point))) (defun describe-face-at-point (&optional point) "Return face used at point." (interactive) (let ((face (get-char-property (or point (point)) 'face))) (if (listp face) (progn (message (format "Full value: %s" (prin1-to-string face))) (setq face (car face)))) (hyper-describe-face face))) -jeff _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta

skip(a)pobox.com writes: I have a more general facility I call introspector, which pops up a tooltip describing practically anything you could want to know about buffer point, and is bound to a keystroke (by default C-h =). Extension to a mouse binding like Jeff's is trivial, just bind `introspect-cursor-position' instead of d-f-a-m-p in the above. (Extensions like a hovering tooltip that follows mouse are conceivable but not high priority unless somebody asks for them with a plausible use case.) It's packaged as an XEmacs package, just drop it in your system site-packages or in ~/.xemacs/xemacs-packages or ~/.xemacs/site-packages, and add `(require 'introspector)' to your init file. (This last requirement will become unnecessary in the future, but to create a default keybinding is invasive.) http://turnbull.sk.tsukuba.ac.jp/Tools/XEmacs/introspector-0.80-pkg.tar.gz _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta

skip(a)pobox.com writes: from my init.el (it's not mine, probably posted here some time ago) (defun describe-face-at-point () "Return face used at point." (interactive) (hyper-describe-face (get-char-property (point) 'face))) f -- This message has been scanned for viruses and dangerous content by MailScanner, and is believed to be clean. _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta

* skip <skip(a)pobox.com&gt; writes: (defun describe-face-at-point () "Describe faces at point." (interactive) (let ((faces (get-char-property (point) 'face))) (if (listp faces) (hyper-apropos (mapconcat #'(lambda (f) (symbol-name f)) faces "\\|") nil) (hyper-describe-face faces) (other-window 1)))) -- |---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---| | SXEmacs - The only _______ you'll ever need. | | Fill in the blank, yes, it's THAT good! | |------------------------------------&lt;steve(a)sxemacs.org&gt;---| _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta