From: Ari Roponen <ari.roponen@gmail.com>
Date: Thu, 16 Jul 2015 14:52:30 +0000 (-0700)
Subject: Fix delete-dups bug on long lists
X-Git-Tag: emacs-25.0.90~1484
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=572cd26f3f03995dbb3689b8a6f0a575ec9b9cb6;p=emacs.git

Fix delete-dups bug on long lists

* lisp/subr.el (delete-dups):
Don't mistakenly keep some dups when applied to long lists.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 5bd4bb40a67..e2c1baea442 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -426,8 +426,8 @@ one is kept."
             (let ((elt (car retail)))
               (if (gethash elt hash)
                   (setcdr tail (cdr retail))
-                (puthash elt t hash)))
-            (setq tail retail)))
+                (puthash elt t hash)
+                (setq tail retail)))))
       (let ((tail list))
         (while tail
           (setcdr tail (delete (car tail) (cdr tail)))