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)

diff --git a/lisp/faces.el b/lisp/faces.el
index 9c087c99d56c0f01d0bbd593f97c8d21cf7957ef..f6b11074af01750702f42ce9cc03f30a99776aec 100644 (file)
--- 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."