    [nil "]"] :paredit-close-square
    [nil "{"] :paredit-open-curly
    [nil "}"] :paredit-close-curly
+   [nil "Backspace"] :paredit-backward-delete
+   [nil "Delete"] :paredit-forward-delete
    [nil "\""] :paredit-doublequote
    ["C" "9"] :paredit-backward-slurp-sexp
    ["C" "0"] :paredit-forward-slurp-sexp

(def ^:const special-chars
  #{"(" ")" "[" "]" "{" "}" "\""})

(defn exec-paredit!
  [k w buffer enable-default? enable-advanced?]
  (when-let [cmd (or (and enable-default?

                          (or (advanced-keymap k)
                              (advanced-alternative-keymap k)
                              (foreign-keymap k))))]
    (when-not (and (.getSelectedText w)
                   (contains? ignore-during-selection cmd))
      (insert-result! w (exec-command! cmd w buffer))
      cmd)))

(defn convert-key-event
  [event]
