# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756622428 0
# Node ID f14639c69ed3a0eb902c8114e4c18a96fdc13125
# Parent  069c54e77fd16602373e589aac2e734fccf85a86
(vip-replace-string): Don't use replace-regexp.

diff -r 069c54e77fd1 -r f14639c69ed3 lisp/emulation/vip.el
--- a/lisp/emulation/vip.el	Thu Dec 23 04:52:56 1993 +0000
+++ b/lisp/emulation/vip.el	Thu Dec 23 04:53:48 1993 +0000
@@ -926,9 +926,13 @@
 			   (if vip-re-replace "regexp replace"
 			     "string replace"))))
       (if vip-re-replace
-	  (replace-regexp
-	   str
-	   (vip-read-string (format "Replace regexp \"%s\" with: " str)))
+	  ;; (replace-regexp
+	  ;;  str
+	  ;;  (vip-read-string (format "Replace regexp \"%s\" with: " str)))
+	  (while (re-search-forward str nil t)
+	    (replace-match (vip-read-string
+			    (format "Replace regexp \"%s\" with: " str))
+			   nil nil))
 	(replace-string
 	 str
 	 (vip-read-string (format "Replace \"%s\" with: " str)))))))