From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andreas Schwab Newsgroups: gmane.emacs.devel Subject: Re: FIXED!! Re: Clarification of eval-after-load [was: Problem mit symlinks, locate-library and load-history] Date: Tue, 23 May 2006 19:51:24 +0200 Message-ID: References: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: sea.gmane.org 1148406719 7972 80.91.229.2 (23 May 2006 17:51:59 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 23 May 2006 17:51:59 +0000 (UTC) Cc: Richard Stallman , emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue May 23 19:51:57 2006 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1Fib2q-00052y-Cp for ged-emacs-devel@m.gmane.org; Tue, 23 May 2006 19:51:50 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Fib2p-0005yw-P4 for ged-emacs-devel@m.gmane.org; Tue, 23 May 2006 13:51:47 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Fib2e-0005ya-88 for emacs-devel@gnu.org; Tue, 23 May 2006 13:51:36 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Fib2c-0005y4-KT for emacs-devel@gnu.org; Tue, 23 May 2006 13:51:35 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Fib2c-0005y1-Hb for emacs-devel@gnu.org; Tue, 23 May 2006 13:51:34 -0400 Original-Received: from [195.135.220.2] (helo=mx1.suse.de) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA:32) (Exim 4.52) id 1Fib6r-0004hY-8s; Tue, 23 May 2006 13:55:57 -0400 Original-Received: from Relay2.suse.de (mail2.suse.de [195.135.221.8]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by mx1.suse.de (Postfix) with ESMTP id 8709FF09A; Tue, 23 May 2006 19:51:30 +0200 (CEST) Original-To: Alan Mackenzie X-Yow: Yow!! It's LIBERACE and TUESDAY WELD!! High on a HILL... driving a LITTLE CAR... I wanna be in that LITTLE CAR, too!! I wanna drive off with LIBBY and TUESDAY! In-Reply-To: (Alan Mackenzie's message of "Tue, 23 May 2006 17:21:33 +0000 (GMT)") User-Agent: Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.50 (gnu/linux) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:55148 Archived-At: Alan Mackenzie writes: > --- 1385,1499 ---- > t)) > nil)) > =20 > + (defun list-to-regexp (arg) > + "Build a regexp that matches any of the elements of ARG, a list of = strings." > + (if arg > + (let ((regexp "\\(")) > + (mapc (lambda (elt) > + (setq regexp (concat regexp (regexp-quote elt) "\\|"))) > + arg) > + (aset regexp (1- (length regexp)) ?\)) > + regexp) > + "")) I think this is equivalent to this: (concat "\\(" (mapconcat 'regexp-quote arg "\\|") "\\)") Andreas. --=20 Andreas Schwab, SuSE Labs, schwab@suse.de SuSE Linux Products GmbH, Maxfeldstra=DFe 5, 90409 N=FCrnberg, Germany PGP key fingerprint =3D 58CA 54C7 6D53 942B 1756 01D3 44D5 214B 8276 4ED= 5 "And now for something completely different."