what-face: fix undefined variable error
This commit is contained in:
parent
45c3efab84
commit
432a5a9a5a
1 changed files with 1 additions and 1 deletions
|
@ -4,7 +4,7 @@
|
|||
(defun what-face (pos)
|
||||
"Tells you the name of the face (point) is on."
|
||||
(interactive "d")
|
||||
(let ((hl-line-p hl-line-mode))
|
||||
(let ((hl-line-p (bound-and-true-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))))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue