method private location_in_buffer = let b = file#buffer in let iter = b#get_iter `INSERT in location_of_iter iter