(defun remap-del-key ()
  "Swap the C-h and C-? keys."
  (interactive)
  ;; First make a translate table that does the identity translation.
  (setq keyboard-translate-table (make-string 128 0))
  (let ((i 0))
    (while (< i 128)
      (aset keyboard-translate-table i i)
      (setq i (1+ i))))
  ;; Now alter translations of some characters.
  (aset keyboard-translate-table ?\C-? ?\C-h)
  (aset keyboard-translate-table ?\C-h ?\C-?))
;; End of swap-ctl-h-and-del