[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	lisp-syntax.lisp 
Log Message:
Proper indentation of multi-line string forms.


--- /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/05/02 17:04:37	1.61
+++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/05/02 17:47:19	1.62
@@ -2089,6 +2089,9 @@
 	 (values (elt-noncomment (children tree) (1- (car path))) 0))
 	(t (indent-form syntax (elt-noncomment (children tree) (car path)) (cdr path)))))
 
+(defmethod indent-form ((syntax lisp-syntax) (tree string-form) path)
+  (values (form-toplevel tree syntax) 0))
+
 ;; FIXME: The next two methods are basically identical to the above definition, 
 ;; something should be done about this duplication.