[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	lisp-syntax.lisp 
Log Message:
Fixed error when attempting to indenting a buffer in Lisp syntax with
only comment contents.


--- /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/08/01 16:06:37	1.106
+++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/08/01 21:06:45	1.107
@@ -2777,7 +2777,7 @@
 (define-simple-indentor (clim:define-application-frame indent-list indent-list))
 
 (defun compute-path-in-trees (trees n offset)
-  (cond ((or (null trees)
+  (cond ((or (null (first-noncomment trees))
 	     (>= (start-offset (first-noncomment trees)) offset))    
 	 (list n))
 	((or (< (start-offset (first-noncomment trees)) offset (end-offset (first-noncomment trees)))