[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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)