From 572cd26f3f03995dbb3689b8a6f0a575ec9b9cb6 Mon Sep 17 00:00:00 2001 From: Ari Roponen Date: Thu, 16 Jul 2015 07:52:30 -0700 Subject: [PATCH] Fix delete-dups bug on long lists * lisp/subr.el (delete-dups): Don't mistakenly keep some dups when applied to long lists. --- lisp/subr.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))) -- 2.39.2