cl-indent.el (was: font-lock-add-keywords and etc.)

[Joachim Schrod]

Adrian Aichner wrote:
> John Kuhns <john at 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 
interested ;-)

Cheers,
	Joachim

-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Joachim Schrod				Email: jschrod at acm.org
Roedermark, Germany