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))