12 lines
321 B
EmacsLisp
12 lines
321 B
EmacsLisp
;;; 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))
|