Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!elroy.jpl.nasa.gov!decwrl!ucbvax!MCC.COM!HI.OLEARY
From: HI.OLEARY@MCC.COM (Michael O'Leary)
Newsgroups: comp.emacs
Subject: Lisp indent question
Message-ID: <12574253766.61.HI.OLEARY@MCC.COM>
Date: 16 Mar 90 23:18:54 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Lines: 37

I am in the process of assigning values to the lisp-indent-hook
property on several lisp function names to get the indentation the way
I want it.  I am wondering if there is a way that I can use the
lisp-indent-hook property (or some other means) to get the indentation
for internal functions defined by LABELS, FLET, etc., to come out like
this:

(labels ((foo-internal (x y)
           (manipulate-args x y)))
   ...)

instead of like this:

(labels ((foo-internal (x y)
                       (manipulate-args x y)))
   ...)

In particular, I am wondering about the case in which the value of the
lisp-indent-hook property is a symbol that is the name of a function
that takes a state and a pos argument (see p. 138 of Gnu Emacs
Manual).  So I have two specific questions:
1) Can I write an indenting function and hang its name on the
   lisp-indent-hook property of functions such as labels and have it
   indent the lines *within* its first argument?  (and if
   lisp-indent-hook is not intended for this purpose, is there some
   other way to do it?)
2) The values passed in to these indenting functions for STATE and POS
   appear to be a seven element list and an integer, respectively.
   The values I got while playing around were
   STATE = (2 3089 3097 nil nil nil 0) and POS = 3106.
   What do these values mean, and how can I use them to indent
   functions (and are there Gnu-Emacs functions for accessing and
   manipulating them)?

	Michael O'leary
	oleary@mcc.com
-------