Mercurial > emacs
changeset 3288:f1f4cab7f621
Just load keyswap.el.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 30 May 1993 03:44:07 +0000 |
| parents | f3c8ed7fcb45 |
| children | e010fc52b552 |
| files | lisp/term/bobcat.el |
| diffstat | 1 files changed, 1 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/bobcat.el Sun May 30 03:42:55 1993 +0000 +++ b/lisp/term/bobcat.el Sun May 30 03:44:07 1993 +0000 @@ -1,11 +1,2 @@ ;;; 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)) +(load "term/keyswap" nil t)