method private _remove_index_from_store = fun name ->
let rref = ref None in
index_model#foreach
(fun path iter ->
let idx = index_model#get_data ~row:iter in
if idx.SQL_db.idx_name = name then begin
rref := Some (index_model#get_row_reference path);
true
end else
false);
match !rref with
| None -> ()
| Some rref ->
let _idx = index_model#get_data ~row:rref#iter in
(* Index is already unlinked from database *)
self#_document_changed ();
i_bool (index_model#remove rref#iter)