Merged revisions 223 via svnmerge from

/trunk

git-svn-id: branches/fixes_2_0@349 -

packages/base/regexpr/regexpr.pp

@@ -181,9 +181,11 @@ unit regexpr;
                               readchars:=cs_nonwordchars;
                            end;
                          else
-                           begin
-                              error:=true;
-                              exit;
+                           begin //Some basic escaping...
+                              readchars := [currentpos^];
+                              inc (currentpos);
+                              {error:=true;
+                              exit;}
                            end;
                      end;
                   end;