method backward_line =
      let (l,c) = my_location in
      self#set_location (l-1,c)