emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

doom/what-face: accept pos arg

Browse source
This commit is contained in:
Henrik Lissner 2017-06-08 02:04:06 +02:00
parent 89db7ac2b9
commit 655e565fe0
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
core/autoload/debug.el
View file

@ -1,10 +1,10 @@
;;; debug.el
;;;###autoload
(defun doom/what-face (pos)
"Lists all faces at point. Overlay faces are <>-delimited."
(defun doom/what-face (&optional pos)
"Lists all faces at point. Overlay faces are denoted with an asterix."
(interactive "d")
(let ((pos (point))
(let ((pos (or pos (point)))
faces)
(when-let (face (get-text-property pos 'face))
(dolist (f (if (listp face) face (list face)))