Mercurial > emacs
comparison lisp/term/bobcat.el @ 3288:f1f4cab7f621
Just load keyswap.el.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 30 May 1993 03:44:07 +0000 |
parents | 9a41f30a5e64 |
children | 67b464da13ec |
comparison
equal
deleted
inserted
replaced
3287:f3c8ed7fcb45 | 3288:f1f4cab7f621 |
---|---|
1 ;;; HP terminals usually encourage using ^H as the rubout character | 1 ;;; HP terminals usually encourage using ^H as the rubout character |
2 | 2 (load "term/keyswap" nil t) |
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)) |