       else if delta.delete?
         selection = new Selection position, (position + delta.delete), @
         @deleteSel selection
+        selection.unbind()
+        @removeSel selection
 
       else if delta.insert?
         @insert position, delta.insert

  #
  # @param [Selection] selection the selection to compare to this
  atLeftOf: (selection) ->
     @gt(selection.left, selection.leftPos, "right") and
     @lt(selection.right, selection.rightPos, "left")

  # Set the style to style
  #

    if not selection.isValid()
      throw new Error "Invalid selection, got", selection

    selection.setStyle (style or {})

    # Link the boundary words to selection
    leftWord = selection.left or {right: []}
    rightWord = selection.right or {left: []}

    # Merge left…
    for tmpSelection in leftWord.right when tmpSelection and tmpSelection != selection
      selection.merge tmpSelection
    # …and right (only happens when selections are contiguous or overlapping
    # and have same style)
    for tmpSelection in rightWord.left when tmpSelection and tmpSelection != selection
      selection.merge tmpSelection

  # Apply a delta to the object
  # @see http://quilljs.com/docs/deltas/
