|
| From: | Emanuel Berg |
| Subject: | Re: Special Characters |
| Date: | Tue, 11 Aug 2015 05:11:33 +0200 |
| User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux) |
Emanuel Berg <embe8573@student.uu.se> writes:
> (defun ...
Better (?) version:
(defun what-face (pos)
(interactive "d")
(let((face (or (get-char-property pos 'face)
(get-char-property pos 'read-cf-name) )))
(message " Face: %s" (or face "(no face!)")) ))
Source:
http://user.it.uu.se/~embe8573/conf/emacs-init/faces.el
--
underground experts united
http://user.it.uu.se/~embe8573
| [Prev in Thread] | Current Thread | [Next in Thread] |