From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!not-for-mail
From: Richard Stallman <rms@gnu.org>
Newsgroups: gmane.emacs.devel
Subject: Re: eval-when-compile vs defconst
Date: Mon, 13 Nov 2006 04:43:48 -0500
Message-ID: <E1GjYM0-0007ct-8T@fencepost.gnu.org>
References: <ulkmi6o9n.fsf@member.fsf.org>
	<E1Gj7g0-0000kF-Cq@fencepost.gnu.org> <uzmaw68n0.fsf@member.fsf.org>
Reply-To: rms@gnu.org
NNTP-Posting-Host: main.gmane.org
Content-Type: text/plain; charset=ISO-8859-15
X-Trace: sea.gmane.org 1163411094 15053 80.91.229.2 (13 Nov 2006 09:44:54 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Mon, 13 Nov 2006 09:44:54 +0000 (UTC)
Cc: stephen_leake@member.fsf.org, emacs-devel@gnu.org
Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Nov 13 10:44:52 2006
Return-path: <emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org>
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 1GjYN1-00066f-Ml
	for ged-emacs-devel@m.gmane.org; Mon, 13 Nov 2006 10:44:51 +0100
Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43)
	id 1GjYN0-0008LF-Ln
	for ged-emacs-devel@m.gmane.org; Mon, 13 Nov 2006 04:44:51 -0500
Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1GjYM8-00083j-LB
	for emacs-devel@gnu.org; Mon, 13 Nov 2006 04:43:56 -0500
Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1GjYM7-00083P-Sw
	for emacs-devel@gnu.org; Mon, 13 Nov 2006 04:43:56 -0500
Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1GjYM7-00083K-Dx
	for emacs-devel@gnu.org; Mon, 13 Nov 2006 04:43:55 -0500
Original-Received: from [199.232.76.164] (helo=fencepost.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.52)
	id 1GjYM1-00027v-9K; Mon, 13 Nov 2006 04:43:49 -0500
Original-Received: from rms by fencepost.gnu.org with local (Exim 4.34)
	id 1GjYM0-0007ct-8T; Mon, 13 Nov 2006 04:43:48 -0500
Original-To: Stephen Leake <stephen_leake@member.fsf.org>
In-reply-to: <uzmaw68n0.fsf@member.fsf.org> (message from Stephen Leake on
	Sun, 12 Nov 2006 09:29:23 -0500)
X-BeenThere: emacs-devel@gnu.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: "Emacs development discussions." <emacs-devel.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-devel>
List-Post: <mailto:emacs-devel@gnu.org>
List-Help: <mailto:emacs-devel-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=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:62186
Archived-At: <http://permalink.gmane.org/gmane.emacs.devel/62186>


    (defvar ada-block-start-re
      (eval-when-compile
	(concat "\\<\\(" (regexp-opt '("begin" "declare" "else"
				       "exception" "generic" "loop" "or"
				       "private" "select" ))
		"\\|\\(\\(limited\\|abstract\\|tagged\\)[ \t\n]+\\)*record\\)\\>"))
      "Regexp for keywords starting Ada blocks.")

It would not be worth any extra complexity just to avoid one call to
concat when the file is loaded.  So even if eval-when-compile were not
a no-op here, I'd say take it out.