let re_query_replace = query_replace_gen ~mes: " regexp" (Printf.sprintf "%s_query_replace_re" factory_name) re_search_buffer re_replace