(perform-replace): Doc fix.

2 files changed, 10 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dab47ff9bef..239db44d00a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-08-03  Gerd Moellmann  <gerd@gnu.org>
+
+        * replace.el (perform-replace): Doc fix.
+
 2001-08-02  Francesco Potorti`  <pot@gnu.org>
 
         * uniquify.el (uniquify-ref-base, uniquify-ref-filename)
diff --git a/lisp/replace.el b/lisp/replace.el
index b42839318c4..e307f56caac 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -875,9 +875,13 @@ type them."
   "Subroutine of `query-replace'.  Its complexity handles interactive queries.
 Don't use this in your own program unless you want to query and set the mark
 just as `query-replace' does.  Instead, write a simple loop like this:
-  (while (re-search-forward \"foo[ \t]+bar\" nil t)
+
+  (while (re-search-forward \"foo[ \\t]+bar\" nil t)
     (replace-match \"foobar\" nil nil))
-which will run faster and probably do exactly what you want."
+
+which will run faster and probably do exactly what you want.  Please
+see the documentation of `replace-match' to find out how to simulate
+`case-replace'."
   (or map (setq map query-replace-map))
   (and query-flag minibuffer-auto-raise
        (raise-frame (window-frame (minibuffer-window))))