[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	lisp-syntax.lisp 
Log Message:
Changed the semantics for expression movement (now not identical to Emacs).


--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2008/01/12 10:52:24	1.65
+++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2008/01/12 11:37:21	1.66
@@ -2038,9 +2038,8 @@
                (not (= (offset mark) (end-offset potential-form))))
       (typecase potential-form
         (reader-conditional-form
-         (setf (offset mark) (end-offset
-                              (or (first-form (children potential-form))
-                                  potential-form))))
+         (setf (offset mark) (or (start-offset (first-form (children potential-form)))
+                                 (end-offset potential-form))))
         (t (setf (offset mark) (end-offset potential-form)))))))
 
 (defmethod forward-delete-expression (mark (syntax lisp-syntax) &optional (count 1)