;;; HP terminals usually encourage using ^H as the rubout character(let ((the-table (make-string 128 0)))  (let ((i 0))    (while (< i 128)      (aset the-table i i)      (setq i (1+ i))))  ;; Swap ^H and DEL  (aset the-table ?\177 ?\^h)  (aset the-table ?\^h ?\177)  (setq keyboard-translate-table the-table))