From: Ivan Shmakov <ivan@siamics.net>
Date: Wed, 27 May 2015 22:15:27 +0000 (+0000)
Subject: Avoid gratuitous delete-dups in face-at-point.
X-Git-Tag: emacs-25.0.90~1953
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=550c65011c7394e8ebcf91fc29af2984908279d1;p=emacs.git

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 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."