Mercurial > emacs
annotate lisp/term/bobcat.el @ 479:9a41f30a5e64
Initial revision
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Mon, 13 Jan 1992 06:37:58 +0000 |
parents | |
children | f1f4cab7f621 |
rev | line source |
---|---|
479 | 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)) |