Commit 26b69522 authored by Artur Malabarba's avatar Artur Malabarba
Browse files

* lisp/faces.el (faces--attribute-at-point): Use `face-list-p'

parent 31fc0567
......@@ -1971,9 +1971,7 @@ unnamed faces (e.g, `foreground-color')."
(get-char-property (point) 'font-lock-face))
(get-char-property (point) 'face)))
(found nil))
;; The attribute might be a face, a list of faces, or a list of
;; attributes that make a face. Normalize it to a list of faces.
(dolist (face (if (and (listp faces) (facep (car faces)))
(dolist (face (if (face-list-p faces)
faces
(list faces)))
(cond (found)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment