|
From: | Vitalie Spinu |
Subject: | Re: fix for bug 10994 breaks ido customizations in major way |
Date: | Wed, 08 May 2013 10:14:30 +0200 |
User-agent: | Gnus/5.130006 (Ma Gnus v0.6) Emacs/24.3 (gnu/linux) |
>> Leo Liu <address@hidden> >> on Wed, 08 May 2013 12:49:53 +0800 wrote: > +(defun ido-remove-consecutive-dups (list) > + "Remove consecutive duplicates in LIST. > +Use `equal' for comparison. First and last elements are > +considered consecutive." > + (let ((tail list) > + (last (make-symbol "")) > + (result nil)) > + (while (consp tail) > + (unless (equal (car tail) last) > + (push (setq last (car tail)) result)) > + (setq tail (cdr tail))) > + (nreverse (if (and (equal last (car list)) > + (cdr result)) > + (cdr result) > + result)))) > + Looks like a generally useful piece. May be subr.el? Also delete-consecutive-dups could be very handy.
[Prev in Thread] | Current Thread | [Next in Thread] |