From 550c65011c7394e8ebcf91fc29af2984908279d1 Mon Sep 17 00:00:00 2001
From: Ivan Shmakov <ivan@siamics.net>
Date: Wed, 27 May 2015 22:15:27 +0000
Subject: [PATCH] Avoid gratuitous delete-dups in face-at-point.

* lisp/faces.el (face-at-point): Do not compute the properly
ordered, duplicate-free list if only a single value is
requested anyway.  (Bug#20519)
---
 lisp/faces.el | 5 +++--
 1 file 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."
-- 
2.39.2