procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Artur Malabarba 2015-11-16 14:35:31 +00:00
parent 31fc056791
commit 26b6952277
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/faces.el
View file

@ -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)