Rename replace-in-string to string-replace

* doc/lispref/searching.texi (Search and Replace): Update.
* lisp/bindings.el (mode-line-position): Update callers.

* lisp/subr.el (string-replace): Rename from replace-in-string
since that clashes with XEmacs' replace-in-string which is
equivalent to the Emacs replace-regexp-in-string (bug#43598).

diff --git a/doc/lispref/searching.texi b/doc/lispref/searching.texi
index a217c6e9358e879ec92d7f8e4cf7ee4079b6c49c..451283b4aa515dc386b5115486ad8b0c5a352a0a 100644 (file)
--- a/doc/lispref/searching.texi
+++ b/doc/lispref/searching.texi
@@ -2566,7 +2566,7 @@ replacement string.  The match data at this point are the result
 of matching @var{regexp} against a substring of @var{string}.
 @end defun
 
-@defun replace-in-string fromstring tostring instring
+@defun string-replace fromstring tostring instring
 This function copies @var{instring} and replaces any occurrences of
 @var{fromstring} with @var{tostring}.
 @end defun

diff --git a/etc/NEWS b/etc/NEWS
index 9cd35593236a7e9a0908bcb4089b31f02945bb25..0cbbae418618ff1f3144c8005c56f49a711eaed4 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1455,7 +1455,7 @@ return status is non-zero.  'process-lines-handling-status' has also
 been added, and takes a callback to handle the return status.
 
 +++
-*** New function 'replace-in-string'.
+*** New function 'string-replace'.
 This function works along the line of 'replace-regexp-in-string', but
 matching on strings instead of regexps, and does not change the global
 match state.

diff --git a/lisp/bindings.el b/lisp/bindings.el
index f31c6cc33658ada47b258a1b21dbd0aad28df38c..3930f5b52c60ac077db378c8bff6e8942186921e 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -493,7 +493,7 @@ mouse-1: Display Line and Column Mode Menu")))
           ,@mode-line-position--column-line-properties))
         (10
          (:propertize
-          (:eval (replace-in-string
+          (:eval (string-replace
                   "%c" "%C" (car mode-line-position-column-line-format)))
           ,@mode-line-position--column-line-properties)))
        (6
@@ -508,7 +508,7 @@ mouse-1: Display Line and Column Mode Menu")))
          (,@mode-line-position--column-line-properties)))
        (6
         (:propertize
-         (:eval (replace-in-string
+         (:eval (string-replace
                  "%c" "%C" (car mode-line-position-column-format)))
          ,@mode-line-position--column-line-properties))))))
   "Mode line construct for displaying the position in the buffer.

diff --git a/lisp/subr.el b/lisp/subr.el
index 357eae0f5059dabc6616da12d353b8e4bbbae962..6f164ae694efbad6659590d80cb1d1f9c79d1df1 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -4429,7 +4429,7 @@ Unless optional argument INPLACE is non-nil, return a new string."
          (aset newstr i tochar)))
     newstr))
 
-(defun replace-in-string (fromstring tostring instring)
+(defun string-replace (fromstring tostring instring)
   "Replace FROMSTRING with TOSTRING in INSTRING each time it occurs."
   (declare (pure t))
   (when (equal fromstring "")

diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el
index 505408fa110ad80c6180d5815339ab1e78b7d1b5..a3e9c426db5a4a4c6a8eeba6bc2d835b18ee6d4d 100644 (file)
--- a/test/lisp/subr-tests.el
+++ b/test/lisp/subr-tests.el
@@ -440,33 +440,33 @@ See https://debbugs.gnu.org/cgi/bugreport.cgi?bug=19350."
   (should-error (ignore-error foo
                   (read ""))))
 
-(ert-deftest replace-in-string ()
-  (should (equal (replace-in-string "foo" "bar" "zot")
+(ert-deftest string-replace ()
+  (should (equal (string-replace "foo" "bar" "zot")
                  "zot"))
-  (should (equal (replace-in-string "foo" "bar" "foozot")
+  (should (equal (string-replace "foo" "bar" "foozot")
                  "barzot"))
-  (should (equal (replace-in-string "foo" "bar" "barfoozot")
+  (should (equal (string-replace "foo" "bar" "barfoozot")
                  "barbarzot"))
-  (should (equal (replace-in-string "zot" "bar" "barfoozot")
+  (should (equal (string-replace "zot" "bar" "barfoozot")
                  "barfoobar"))
-  (should (equal (replace-in-string "z" "bar" "barfoozot")
+  (should (equal (string-replace "z" "bar" "barfoozot")
                  "barfoobarot"))
-  (should (equal (replace-in-string "zot" "bar" "zat")
+  (should (equal (string-replace "zot" "bar" "zat")
                  "zat"))
-  (should (equal (replace-in-string "azot" "bar" "zat")
+  (should (equal (string-replace "azot" "bar" "zat")
                  "zat"))
-  (should (equal (replace-in-string "azot" "bar" "azot")
+  (should (equal (string-replace "azot" "bar" "azot")
                  "bar"))
 
-  (should (equal (replace-in-string "azot" "bar" "foozotbar")
+  (should (equal (string-replace "azot" "bar" "foozotbar")
                  "foozotbar"))
 
-  (should (equal (replace-in-string "\377" "x" "a\377b")
+  (should (equal (string-replace "\377" "x" "a\377b")
                  "axb"))
-  (should (equal (replace-in-string "\377" "x" "a\377ø")
+  (should (equal (string-replace "\377" "x" "a\377ø")
                  "axø"))
 
-  (should-error (replace-in-string "" "x" "abc")))
+  (should-error (string-replace "" "x" "abc")))
 
 (provide 'subr-tests)
 ;;; subr-tests.el ends here