diff options
| author | Ari Roponen <ari.roponen@gmail.com> | 2015-07-16 07:52:30 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-07-16 07:52:52 -0700 |
| commit | 572cd26f3f03995dbb3689b8a6f0a575ec9b9cb6 (patch) | |
| tree | 904d2a5171cc7d475e344b7de435b3dacd402740 | |
| parent | a5522abbca2235771384949dfa87c8efc68831b2 (diff) | |
| download | emacs-572cd26f3f03995dbb3689b8a6f0a575ec9b9cb6.tar.gz | |
Fix delete-dups bug on long lists
* lisp/subr.el (delete-dups):
Don't mistakenly keep some dups when applied to long lists.
| -rw-r--r-- | lisp/subr.el | 4 |
1 files 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))) |