[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 26b6952: * lisp/faces.el (faces--attribute-at-poi
From: |
Artur Malabarba |
Subject: |
[Emacs-diffs] emacs-25 26b6952: * lisp/faces.el (faces--attribute-at-point): Use `face-list-p' |
Date: |
Mon, 16 Nov 2015 14:35:52 +0000 |
branch: emacs-25
commit 26b695227757cca1665420c496d9aee65abe1e98
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
* lisp/faces.el (faces--attribute-at-point): Use `face-list-p'
---
lisp/faces.el | 4 +---
1 files changed, 1 insertions(+), 3 deletions(-)
diff --git a/lisp/faces.el b/lisp/faces.el
index d612461..769f326 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 26b6952: * lisp/faces.el (faces--attribute-at-point): Use `face-list-p',
Artur Malabarba <=