[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	search-commands.lisp 
Log Message:
Fixed silly bug in Drei search/replace.


--- /project/mcclim/cvsroot/mcclim/Drei/search-commands.lisp	2008/01/30 11:48:40	1.8
+++ /project/mcclim/cvsroot/mcclim/Drei/search-commands.lisp	2008/04/18 11:22:29	1.9
@@ -424,7 +424,7 @@
                      (occurrences occurrences)
                      (targets targets)) state
       (let ((string1-length (length string1))
-            (mark (point (drei-instance targets))))
+            (mark (point (view (drei-instance targets)))))
         (backward-object mark string1-length)
         (replace-one-string mark
                             string1-length
@@ -443,7 +443,7 @@
                      (occurrences occurrences)
                      (targets targets)) state
         (let ((string1-length (length string1))
-              (mark (point (drei-instance targets))))
+              (mark (point (view (drei-instance targets)))))
           (loop do (backward-object mark string1-length)
                (replace-one-string mark
                                    string1-length