diff options
Diffstat (limited to 'lisp/faces.el')
| -rw-r--r-- | lisp/faces.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 9c087c99d56..f6b11074af0 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1937,8 +1937,9 @@ Return nil if there is no face." (dolist (face faceprop) (if (facep face) (push face faces)))))) - (setq faces (delete-dups (nreverse faces))) - (if multiple faces (car faces)))) + (if multiple + (delete-dups (nreverse faces)) + (car (last faces))))) (defun foreground-color-at-point () "Return the foreground color of the character after point." |