andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix delete-dups bug on long lists

Browse source 
* lisp/subr.el (delete-dups):
Don't mistakenly keep some dups when applied to long lists.
This commit is contained in:
Ari Roponen 2015-07-16 07:52:30 -07:00 • committed by Paul Eggert
parent a5522abbca
commit 572cd26f3f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/subr.el
View file

@ -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)))