Fixed consecutive search substring replace bug (28)


git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@101 35c25a1d-7b9e-4130-9fde-d3aeb78583b8
diff --git a/BUGS b/BUGS
index 7e88b9f..6da43fc 100644
--- a/BUGS
+++ b/BUGS
@@ -41,5 +41,5 @@
 - In search/replace code there is too much refreshing in bottomwin (26)
 - In replace, there is no way to accept the default replace string. (27)
 - In replace with completely adjacent strings, every other search string
-  will be missed (try replace ':' in a string like ':::::::::') (28)
+  will be missed (try replace ':' in a string like ':::::::::') (28) [FIXED]
 
diff --git a/ChangeLog b/ChangeLog
index 5a4a699..2b630b8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -14,6 +14,7 @@
   do_search(), do_replace():
 	- Removed call to search_abort()/replace_abort() before call to
 	  the opposite function.
+	- Fixed bug #28.
 - fr.po:
 	- French update by Clement Laforet <clem_laf@wanadoo.fr>.
 
diff --git a/po/nano.pot b/po/nano.pot
index 158e3a2..c6bdd58 100644
--- a/po/nano.pot
+++ b/po/nano.pot
@@ -6,7 +6,7 @@
 msgid ""
 msgstr ""
 "Project-Id-Version: PACKAGE VERSION\n"
-"POT-Creation-Date: 2000-07-11 22:00-0400\n"
+"POT-Creation-Date: 2000-07-11 22:41-0400\n"
 "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
 "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
 "Language-Team: LANGUAGE <LL@li.org>\n"
diff --git a/search.c b/search.c
index 41dcfdb..53675c4 100644
--- a/search.c
+++ b/search.c
@@ -479,7 +479,7 @@
 	    current->data = copy;
 
 	    /* Stop bug where we replace a substring of the replacement text */
-	    current_x += strlen(last_replace);
+	    current_x += strlen(last_replace) - 1;
 
 	    edit_refresh();
 	    set_modified();