Adrian Aichner wrote:
John Kuhns <john(a)designadvance.com> writes:
> Also I tried changing keyword if indentation likeso:
> (setq lisp-indent-function 'common-lisp-indent-function)
> (mapc #'(lambda (x) (put (cdr x) 'lisp-indent-function (car x)))
> '(((2 2 2 &rest 2) . foreach)
> ((2 2 2 2 2 2 2 &rest 2) . for)
> ((2 1 &rest 2) . if)
> ((2 &rest 2) . letseq)))
> All the other keywords work fine but <if> doesn't.
John, I think you need to put a 'common-lisp-indent-function property
on the various objects, not a 'lisp-indent-function property.
I'm not sure what the correct syntax for the if syntax is, but it
doesn't look obviously wrong.
Have you looked at the examples in cl-indent.el?
If somebody wants a documented version of cl-indent.el, i.e., a
version where all functions have doc-strings and where syntax and
semantics of those indent-specifications above is described; such a
version is available at http://www.schrod.org/cl-indent.el
This is my modified version that has been posted to the (then
Lucid-Emacs) mailing list around 1995, maybe somebody is still
Joachim Schrod Email: jschrod(a)acm.org
XEmacs-Beta mailing list