[climacs-cvs] CVS climacs

[dmurray]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv22311

Modified Files:
	base.lisp 
Log Message:
Ooops. The other part of the Multiple Query Replace change: have
re-search-forward and re-search-backward return the other useful
value.


--- /project/climacs/cvsroot/climacs/base.lisp	2006/04/30 15:12:05	1.47
+++ /project/climacs/cvsroot/climacs/base.lisp	2006/05/12 18:59:05	1.48
@@ -714,7 +714,8 @@
     (multiple-value-bind (i j)
 	(buffer-re-search-forward a (buffer mark) (offset mark))
       (when i
-	(setf (offset mark) j)))))
+	(setf (offset mark) j)
+	(values mark i)))))
 
 (defun re-search-backward (mark re)
   "move MARK backward before the first occurence of string matching RE
@@ -726,7 +727,8 @@
 	(buffer-re-search-backward a (buffer mark) (1- (offset mark)))
       (declare (ignorable j))
     (when i
-      (setf (offset mark) i)))))
+      (setf (offset mark) i)
+      (values mark j)))))
 
 (defun buffer-search-word-backward (buffer offset word &key (test #'eql))
   "return the largest offset of BUFFER <= (- OFFSET (length WORD))