[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	search-commands.lisp 
Log Message:
Fixed some trivial bugs in search/replace.


--- /project/mcclim/cvsroot/mcclim/Drei/search-commands.lisp	2008/01/17 11:29:55	1.6
+++ /project/mcclim/cvsroot/mcclim/Drei/search-commands.lisp	2008/01/26 12:37:25	1.7
@@ -332,7 +332,7 @@
 (defun query-replace-find-next-match (state)
   (with-accessors ((string string1)
                    (targets targets)) state
-    (let* ((mark (point (drei-instance (targets state))))
+    (let* ((mark (point (view (drei-instance (targets state)))))
            (offset-before (offset mark)))
       (search-forward mark string :test (case-relevant-test string))
       (if (= (offset mark) offset-before)
@@ -400,7 +400,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