[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	views.lisp 
Log Message:
Put point at offset 0, even if there are initial contents.

Made some tests run.


--- /project/mcclim/cvsroot/mcclim/Drei/views.lisp	2008/01/30 21:21:43	1.32
+++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp	2008/01/31 08:34:15	1.33
@@ -386,7 +386,7 @@
     (when initial-contents
       (check-type initial-contents array)
       (insert-buffer-sequence buffer 0 initial-contents))
-    (setf point (make-buffer-mark buffer (size buffer) :right))
+    (setf point (make-buffer-mark buffer 0 :right))
     (setf (read-only-p implementation) read-only
           (single-line-p implementation) single-line)
     ;; Hack: we need to be told whenever the undo facilities in the