Mercurial > emacs
changeset 479:9a41f30a5e64
Initial revision
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Mon, 13 Jan 1992 06:37:58 +0000 |
| parents | 84799f3f3488 |
| children | ab7a4fcac960 |
| files | lisp/term/apollo.el lisp/term/bobcat.el |
| diffstat | 2 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/term/apollo.el Mon Jan 13 06:37:58 1992 +0000 @@ -0,0 +1,1 @@ +(load "term/vt100")
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/term/bobcat.el Mon Jan 13 06:37:58 1992 +0000 @@ -0,0 +1,11 @@ +;;; 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))