[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp:/tmp/cvs-serv16117

Modified Files:
	lisp-syntax.lisp 
Log Message:
Fixed bug that would result in an error when a backward-expression
command was invoked on an expression last in the file but with one or
more comments following it.


--- /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/01/11 18:52:45	1.41
+++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/02/01 21:57:56	1.42
@@ -1457,7 +1457,11 @@
 			      (form-before-in-children (children first) offset))))
 		 ((and (>= offset (end-offset first))
 		       (or (null rest)
-			   (<= offset (start-offset (first-form rest)))))
+			   ;; `first-form' may return NIL if there are nothing but 
+			   ;; comments left; in that case, just take a comment 
+			   ;; with `first'.
+			   (<= offset (start-offset (or (first-form rest)
+							(first rest))))))
 		  (return (let ((potential-form
 				 (when (typep first 'list-form)
 				   (form-before-in-children (children first) offset))))