Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv11076

Modified Files: lisp-syntax.lisp Log Message: Added indentation method for function-forms.

--- /project/climacs/cvsroot/climacs/lisp-syntax.lisp 2006/05/20 19:21:26 1.76 +++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp 2006/05/22 18:23:03 1.77 @@ -2206,6 +2206,11 @@ (defmethod indent-form ((syntax lisp-syntax) (tree backquote-form) path) (indent-form syntax (elt-noncomment (children tree) (car path)) (cdr path)))

+(defmethod indent-form ((syntax lisp-syntax) (tree function-form) path) + (if (null (cdr path)) + (values tree 0) + (indent-form syntax (elt-form (children tree) 0) (cdr path)))) + (defmethod indent-binding ((syntax lisp-syntax) tree path) (if (null (cdr path)) ;; top level