diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-11-16 14:35:31 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-11-16 14:35:31 +0000 |
| commit | 26b695227757cca1665420c496d9aee65abe1e98 (patch) | |
| tree | c6b41e2e0a8705ee96fd93d50f1f36d16234a3c7 /lisp/faces.el | |
| parent | 31fc0567916751d37cc85233015f08d566e0ecf0 (diff) | |
| download | emacs-26b695227757cca1665420c496d9aee65abe1e98.tar.gz | |
* lisp/faces.el (faces--attribute-at-point): Use `face-list-p'
Diffstat (limited to 'lisp/faces.el')
| -rw-r--r-- | lisp/faces.el | 4 |
1 files changed, 1 insertions, 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) |