From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: storm@cua.dk (Kim F. Storm) Newsgroups: gmane.emacs.devel Subject: Re: image-load-path / tool-bar icons / dumped Emacs with images.el Date: Fri, 21 Oct 2005 09:30:12 +0200 Message-ID: References: <739FCE66-7AB2-4375-A4EC-32473BF1EFFC@inf.ed.ac.uk> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1129886640 12606 80.91.229.2 (21 Oct 2005 09:24:00 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 21 Oct 2005 09:24:00 +0000 (UTC) Cc: David Reitter , emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Oct 21 11:23:51 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1ESt66-0003Mf-Rz for ged-emacs-devel@m.gmane.org; Fri, 21 Oct 2005 11:21:59 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1ESt1w-0003Cz-NU for ged-emacs-devel@m.gmane.org; Fri, 21 Oct 2005 05:17:40 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1ESrNA-0007Qv-2V for emacs-devel@gnu.org; Fri, 21 Oct 2005 03:31:28 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1ESrN4-0007Ou-OL for emacs-devel@gnu.org; Fri, 21 Oct 2005 03:31:25 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1ESrMy-0007ON-Fv for emacs-devel@gnu.org; Fri, 21 Oct 2005 03:31:17 -0400 Original-Received: from [195.41.46.237] (helo=pfepc.post.tele.dk) by monty-python.gnu.org with esmtp (Exim 4.34) id 1ESrMt-0004gZ-2l; Fri, 21 Oct 2005 03:31:11 -0400 Original-Received: from kfs-l.imdomain.dk.cua.dk (unknown [80.165.4.124]) by pfepc.post.tele.dk (Postfix) with SMTP id DEC42262819; Fri, 21 Oct 2005 09:31:04 +0200 (CEST) Original-To: rms@gnu.org In-Reply-To: (Richard M. Stallman's message of "Thu, 20 Oct 2005 19:38:24 -0400") User-Agent: Gnus/5.11 (Gnus v5.11) 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:44481 Archived-At: "Richard M. Stallman" writes: > (defmacro at-startup (&rest body) > `(if too-late-already > (progn . ,body) > (setq before-init-hook > (nconc before-init-hook ',(copy-sequence body)))) > nil) Maybe we can avoid having another variable if we do: (defmacro at-startup (&rest body) `(if (eq before-init-hook t) (progn . ,body) (setq before-init-hook (nconc before-init-hook ',(copy-sequence body)))) nil) and set before-init-hook to t after it has been run. This gives me a new idea: In general, maybe we could set "run-once" hook variables to t after they have run, and signal an error if someone tries to modify a hook which is t. That might catch some user errors, and I don't see how it can harm. Also, it would free up the value of those hooks. -- Kim F. Storm http://www.cua.dk