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