Re: AW: Same coloring as GNU Emacs not possible due to fewer face types
Jeff Mincy <jeff(a)delphioutpost.com> writes:
(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)))
I can't tell you how many times I've needed something like this.
Thanks!
--
(__) Doug Alcorn - Unix/Linux/Web Developing
oo / PGP 02B3 1E26 BCF2 9AAF 93F1 61D7 450C B264 3E63 D543
|_/ mailto:doug＠lathi.net http://www.lathi.net
mailto:tarpit＠lathi.net is a spam trap