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

what-face now ignores hl-line-mode face

Browse Source
This commit is contained in:
Henrik Lissner
2015-11-08 17:58:18 -05:00
parent 7bf3d49582
commit 860ca2d96c
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
core/lib/defuns-debug.el
View File

@@ -4,9 +4,12 @@
(defun what-face (pos) (defun what-face (pos)
"Tells you the name of the face (point) is on." "Tells you the name of the face (point) is on."
(interactive "d") (interactive "d")
(let ((face (or (get-char-property (point) 'read-face-name) (let ((hl-line-p hl-line-mode))
(get-char-property (point) 'face)))) (if hl-line-p (hl-line-mode -1))
(if face (message "Face: %s" face) (message "No face at %d" pos)))) (let ((face (or (get-char-property (point) 'read-face-name)
(get-char-property (point) 'face))))
(if face (message "Face: %s" face) (message "No face at %d" pos)))
(if hl-line-p (hl-line-mode 1))))
;;;###autoload ;;;###autoload
(defun what-col () (defun what-col ()