[climacs-cvs] CVS climacs

[thenriksen]

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