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))))