Re: correct indentation for flet and labels macros

[Suraj Acharya <sacharya@bea.com>]

Davis Herring wrote:

>>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
> 


I'm sorry, and besides foo was probably too short a name to show the 
difference well anyways. Here's what I meant:

I'd like to get

(flet ((really-long-function-name (args)
          (bar)))


instead of


(flet ((really-long-function-name (args)
                                   (bar)))

The latter is the behavior is would get from let, but since the 
arguments are special for flet and labels it would be nice the former. 
How does defun get its special indentation for example ? Perhaps I can 
adapt that code.

Suraj