From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Davis Herring Newsgroups: gmane.emacs.devel Subject: Re: correct indentation for flet and labels macros Date: Mon, 30 Aug 2004 20:45:01 -0600 (MDT) Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Message-ID: References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII X-Trace: sea.gmane.org 1093920346 7133 80.91.224.253 (31 Aug 2004 02:45:46 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 31 Aug 2004 02:45:46 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Aug 31 04:45:37 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1C1yeP-0003EQ-00 for ; Tue, 31 Aug 2004 04:45:37 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1C1yjF-0002ZE-TC for ged-emacs-devel@m.gmane.org; Mon, 30 Aug 2004 22:50:37 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1C1yj9-0002Ym-NP for emacs-devel@gnu.org; Mon, 30 Aug 2004 22:50:31 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1C1yj6-0002YV-4P for emacs-devel@gnu.org; Mon, 30 Aug 2004 22:50:31 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1C1yj5-0002YS-Vb for emacs-devel@gnu.org; Mon, 30 Aug 2004 22:50:28 -0400 Original-Received: from [192.65.95.54] (helo=mailwasher-b.lanl.gov) by monty-python.gnu.org with esmtp (TLSv1:DES-CBC3-SHA:168) (Exim 4.34) id 1C1ydr-00036J-Ac for emacs-devel@gnu.org; Mon, 30 Aug 2004 22:45:03 -0400 Original-Received: from mailrelay2.lanl.gov (localhost.localdomain [127.0.0.1]) by mailwasher-b.lanl.gov (8.12.10/8.12.10/(ccn-5)) with ESMTP id i7V2j26U001994 for ; Mon, 30 Aug 2004 20:45:02 -0600 Original-Received: from x-mail.lanl.gov (localhost.localdomain [127.0.0.1]) by mailrelay2.lanl.gov (8.12.10/8.12.10/(ccn-5)) with ESMTP id i7V2j1VU004144; Mon, 30 Aug 2004 20:45:01 -0600 Original-Received: from x-mail.lanl.gov (localhost.localdomain [127.0.0.1]) by x-mail.lanl.gov (8.12.10/8.12.10/(ccn-5)) with ESMTP id i7V2j1u6030295; Mon, 30 Aug 2004 20:45:01 -0600 Original-Received: from localhost (herring@localhost) by x-mail.lanl.gov (8.12.10/8.12.10/Submit) with ESMTP id i7V2j1QZ030291; Mon, 30 Aug 2004 20:45:01 -0600 X-Authentication-Warning: x-mail.lanl.gov: herring owned process doing -bs Original-To: Suraj Acharya In-Reply-To: X-Scanned-By: MIMEDefang 2.35 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: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:26634 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:26634 > Is there any way to get flet and labels to indent their definitions like > defun? It looks like you used tabs (of unknown width) that got converted to some other width, so it's hard to say what you really want. But that's not actually relevant: the problem is that the thing controlling the indentation of (bar) is actually `foo', since it's the function name in that sexp. However, you can probably do something deep and dark with (put 'flet 'lisp-indent-hook 'indent-flet) (defun indent-flet (state indent-point) ...) But beyond that all I know is to read the source for `calculate-lisp-indent', `lisp-indent-defform', and friends. Davis Herring -- This product is sold by volume, not by mass. If it seems too dense or too sparse, it means mass-energy conversion has occurred during shipping.