code.delx.au - gnu-emacs/blob - lisp/term/bobcat.el

   1 ;;; HP terminals usually encourage using ^H as the rubout character
   2
   3 (let ((the-table (make-string 128 0)))
   4   (let ((i 0))
   5     (while (< i 128)
   6       (aset the-table i i)
   7       (setq i (1+ i))))
   8   ;; Swap ^H and DEL
   9   (aset the-table ?\177 ?\^h)
  10   (aset the-table ?\^h ?\177)
  11   (setq keyboard-translate-table the-table))