From 26b695227757cca1665420c496d9aee65abe1e98 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Mon, 16 Nov 2015 14:35:31 +0000 Subject: [PATCH] * lisp/faces.el (faces--attribute-at-point): Use `face-list-p' --- lisp/faces.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index d612461239e..769f326efbe 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -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) -- 2.39.5