From 860ca2d96c3401c4b86e801868d0c941909a9ba9 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sun, 8 Nov 2015 17:58:18 -0500 Subject: [PATCH] what-face now ignores hl-line-mode face --- core/lib/defuns-debug.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/core/lib/defuns-debug.el b/core/lib/defuns-debug.el index 46a9fbd12..71b5f7c18 100644 --- a/core/lib/defuns-debug.el +++ b/core/lib/defuns-debug.el @@ -4,9 +4,12 @@ (defun what-face (pos) "Tells you the name of the face (point) is on." (interactive "d") - (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)))) + (let ((hl-line-p hl-line-mode)) + (if hl-line-p (hl-line-mode -1)) + (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 (defun what-col ()