Re: `remove-duplicates'

[Juanma Barranquero <lekktu@gmail.com>]

On Sun, Jul 10, 2011 at 17:05, Lars Magne Ingebrigtsen <larsi@gnus.org> wrote:

> Would anybody mind if I add a simple version of `remove-duplicates' to
> subr.el?  I'm tired of rewriting the same loop...

I think there are also quite a few cases in the sources of destructive
deleting of *consecutive* duplicates. I once proposed this:

(defun uniqify (list)
 "Destructively remove consecutive `equal' duplicates from LIST.
Store the result in LIST and return it.  LIST must be a proper list."
 (let ((l list))
   (while (cdr l)
     (if (equal (car l) (cadr l))
         (setcdr l (cddr l))
       (setq l (cdr l))))
   list))

    Juanma