REPLACE-MATCH now returns a mark pointing to the end of the

replacement rather than the start.

diff --git a/v7/src/edwin/regexp.scm b/v7/src/edwin/regexp.scm
index 22f35e9db4eb4de75116d1f8b5b6f88dae3e09f7..fe99d0bea34319e161d3c56f90860212d924fe92 100644 (file)
--- a/v7/src/edwin/regexp.scm
+++ b/v7/src/edwin/regexp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/regexp.scm,v 1.53 1991/04/29 10:16:44 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/regexp.scm,v 1.54 1991/04/29 11:22:26 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -88,7 +88,7 @@
 \f
 (define (replace-match replacement #!optional preserve-case? literal?)
   (let ((start (re-match-start 0))
-       (end (re-match-end 0)))
+       (end (mark-left-inserting-copy (re-match-end 0))))
     (let ((replacement
           (let ((replacement
                  (if (and (not (default-object? literal?)) literal?)
@@ -109,7 +109,8 @@
                 replacement))))
       (delete-string start end)
       (insert-string replacement start))
-    start))
+    (mark-temporary! end)
+    end))
 
 (define (re-substitute-registers string)
   (let ((end (string-length string)))