From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Lute Kamstra Newsgroups: gmane.emacs.devel Subject: Re: Lisp indentation. Date: Sun, 13 Mar 2005 17:29:26 +0100 Message-ID: <87ll8rwluh.fsf@xs4all.nl> References: <87mztbmk6r.fsf@xs4all.nl> <87psy31xz0.fsf@xs4all.nl> <87fyyzbqrd.fsf-monnier+emacs@gnu.org> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1110731581 3613 80.91.229.2 (13 Mar 2005 16:33:01 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 13 Mar 2005 16:33:01 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sun Mar 13 17:33:00 2005 Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1DAW0D-0007cA-C5 for ged-emacs-devel@m.gmane.org; Sun, 13 Mar 2005 17:31:41 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DAWFj-0003vU-10 for ged-emacs-devel@m.gmane.org; Sun, 13 Mar 2005 11:47:43 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1DAWFM-0003ne-Tp for emacs-devel@gnu.org; Sun, 13 Mar 2005 11:47:21 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1DAWFH-0003l1-Qm for emacs-devel@gnu.org; Sun, 13 Mar 2005 11:47:16 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DAWFH-0003kO-Hp for emacs-devel@gnu.org; Sun, 13 Mar 2005 11:47:15 -0500 Original-Received: from [194.109.24.25] (helo=smtp-vbr5.xs4all.nl) by monty-python.gnu.org with esmtp (Exim 4.34) id 1DAVy0-0006xt-Sr for emacs-devel@gnu.org; Sun, 13 Mar 2005 11:29:25 -0500 Original-Received: from pijl (a80-127-67-124.adsl.xs4all.nl [80.127.67.124]) by smtp-vbr5.xs4all.nl (8.12.11/8.12.11) with ESMTP id j2DGTOdR000259; Sun, 13 Mar 2005 17:29:24 +0100 (CET) (envelope-from Lute.Kamstra@xs4all.nl) Original-Received: from lute by pijl with local (Exim 3.36 #1 (Debian)) id 1DAVy2-0000sw-00; Sun, 13 Mar 2005 17:29:26 +0100 Original-To: Stefan Monnier In-Reply-To: <87fyyzbqrd.fsf-monnier+emacs@gnu.org> (Stefan Monnier's message of "Sun, 13 Mar 2005 08:51:58 -0500") User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux) Original-Lines: 44 X-Virus-Scanned: by XS4ALL Virus Scanner 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 X-MailScanner-To: ged-emacs-devel@m.gmane.org Xref: news.gmane.org gmane.emacs.devel:34546 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:34546 Stefan Monnier writes: >> However, if (declare (indent ...)) is used to specify indentation, >> then the macro is defined during startup, but its >> lisp-indent-property will not be set. > > Huh? That's not the behavior I see. [...] >> This should probably be fixed somehow, or else documented. > > It'd be a blatant bug that needs urgent fixing. Can you show us > some recipe that demonstrates the problem? I tried it with eval-when-compile in byte-run.el. With current CVS and "emacs -Q", I see: (symbol-plist 'eval-when-compile) => (lisp-indent-function 0) (symbol-function 'eval-when-compile) => (macro . #[(&rest body) "\301B\207" [body progn] 2 600648]) (load (symbol-file 'eval-when-compile)) (symbol-plist 'eval-when-compile) => (lisp-indent-function 0 edebug-form-spec t) (symbol-function 'eval-when-compile) => (macro . #[(&rest body) "\301B\207" [body progn] 2 ("/soft/careful/emacs/lisp/emacs-lisp/byte-run.elc" . 3048)]) However, when I remove the (put 'eval-when-compile 'lisp-indent-function 0) and use (declare (debug t) (indent 0)) instead, do a make bootstrap, and then use "emacs -Q", I see: (symbol-plist 'eval-when-compile) => nil (symbol-function 'eval-when-compile) => (macro . #[(&rest body) "\301B\207" [body progn] 2 600648]) (load (symbol-file 'eval-when-compile)) (symbol-plist 'eval-when-compile) => (edebug-form-spec t lisp-indent-function 0) (symbol-function 'eval-when-compile) => (macro . #[(&rest body) "\301B\207" [body progn] 2 ("/soft/careful/emacs/lisp/emacs-lisp/byte-run.elc" . 3010)]) Lute.