From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Vitalie Spinu Newsgroups: gmane.emacs.devel Subject: Re: fix for bug 10994 breaks ido customizations in major way Date: Wed, 08 May 2013 10:14:30 +0200 Organization: EUR Message-ID: <87mws5sxax.fsf@gmail.com> References: <87txmfyb9n.fsf@gmail.com> <432AFE3B3321498E9B17075D3B55A60B@us.oracle.com> <87y5bqty1w.fsf@gmail.com> <87wqrar2g9.fsf@wanadoo.es> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1368000884 12700 80.91.229.3 (8 May 2013 08:14:44 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 8 May 2013 08:14:44 +0000 (UTC) Cc: emacs-devel@gnu.org, Le Wang To: Leo Liu Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed May 08 10:14:45 2013 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1UZzWO-0002Sg-ST for ged-emacs-devel@m.gmane.org; Wed, 08 May 2013 10:14:44 +0200 Original-Received: from localhost ([::1]:44607 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UZzWO-0004hl-Eb for ged-emacs-devel@m.gmane.org; Wed, 08 May 2013 04:14:44 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:32871) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UZzWF-0004gQ-Sw for emacs-devel@gnu.org; Wed, 08 May 2013 04:14:42 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UZzWD-0001le-8D for emacs-devel@gnu.org; Wed, 08 May 2013 04:14:35 -0400 Original-Received: from mail-we0-x234.google.com ([2a00:1450:400c:c03::234]:42639) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UZzWD-0001lU-2Y for emacs-devel@gnu.org; Wed, 08 May 2013 04:14:33 -0400 Original-Received: by mail-we0-f180.google.com with SMTP id n5so1473983wev.11 for ; Wed, 08 May 2013 01:14:31 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=x-received:from:to:cc:subject:organization:references:date :in-reply-to:message-id:user-agent:mime-version:content-type; bh=W1OgO7dRXPgEVLDWWaLakeL8v+9ZvSHZkHjq3T7TsYk=; b=G+CchAbPx0iiKydHmH7vN+FZfswwZfGDKxQWJKXFUuvWyD+aw6cmoMdan6ZOOyy0wI EgVTphtji18WsDIfypt2TCcMju/r5jH4B5erMkNwAiInG1jSoTA5/BzuojyNOLqSBKOv KazSqJym+cB8MmkuaU0QW7eHr2GYu3IPEv4aWxgmy38iETZj+FsFdDPnNG37a7RZKiNJ AEReYO7S8y1xL+1Zh8Q+XQEMTIVFVwH8KimnEXI0s891C1NFvjnQFjQE5E4cAvSFepDU aVGsTI/eAL0HNmW+pLFhnb0OZYBCpKFlZOAhfEoqSkm51EzyKojL1wodAo70sUJQ3hVg UMhw== X-Received: by 10.180.185.135 with SMTP id fc7mr19978278wic.29.1368000871617; Wed, 08 May 2013 01:14:31 -0700 (PDT) Original-Received: from localhost (dhcp-077-249-018-128.chello.nl. [77.249.18.128]) by mx.google.com with ESMTPSA id s1sm7582202wiz.2.2013.05.08.01.14.30 for (version=TLSv1.2 cipher=RC4-SHA bits=128/128); Wed, 08 May 2013 01:14:30 -0700 (PDT) In-Reply-To: (Leo Liu's message of "Wed, 08 May 2013 12:49:53 +0800") User-Agent: Gnus/5.130006 (Ma Gnus v0.6) Emacs/24.3 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-Received-From: 2a00:1450:400c:c03::234 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:159422 Archived-At: >> Leo Liu >> 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.