awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-19 13:43:36 -05:00
Code Issues Packages Projects Releases 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 ;;; debug.el
;;;###autoload ;;;###autoload
(defun doom/what-face (pos) (defun doom/what-face (&optional pos)
"Lists all faces at point. Overlay faces are <>-delimited." "Lists all faces at point. Overlay faces are denoted with an asterix."
(interactive "d") (interactive "d")
(let ((pos (point)) (let ((pos (or pos (point)))
faces) faces)
(when-let (face (get-text-property pos 'face)) (when-let (face (get-text-property pos 'face))
(dolist (f (if (listp face) face (list face))) (dolist (f (if (listp face) face (list face)))