Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv13770

Modified Files: lisp-syntax.lisp Log Message: Fixed issue in `expression-at-mark' that made it select the wrong form (often).

--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2007/04/09 22:59:28 1.26 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2007/04/09 23:06:55 1.27 @@ -1626,7 +1626,7 @@ "Return the form closest to `mark-or-offset'." (as-offsets ((offset mark-or-offset)) (flet ((distance (form) - (max (abs (- (start-offset form) mark-or-offset)) + (min (abs (- (start-offset form) mark-or-offset)) (abs (- (end-offset form) mark-or-offset))))) (reduce #'(lambda (form1 form2) (cond ((null form1) form2)