diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-01-13 06:37:58 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-01-13 06:37:58 +0000 |
| commit | b2c9579f172da05112f29b664de6d8da98c1e813 (patch) | |
| tree | 265b853d4bcc909da28e58c06fbe49b6bcdf01b0 | |
| parent | bdd512ede433dbb12b64cccbe4897223c006b5a6 (diff) | |
| download | emacs-b2c9579f172da05112f29b664de6d8da98c1e813.tar.gz | |
Initial revision
| -rw-r--r-- | lisp/term/apollo.el | 1 | ||||
| -rw-r--r-- | lisp/term/bobcat.el | 11 |
2 files changed, 12 insertions, 0 deletions
diff --git a/lisp/term/apollo.el b/lisp/term/apollo.el new file mode 100644 index 00000000000..3b75d654c50 --- /dev/null +++ b/lisp/term/apollo.el @@ -0,0 +1 @@ +(load "term/vt100") diff --git a/lisp/term/bobcat.el b/lisp/term/bobcat.el new file mode 100644 index 00000000000..7abe538ef77 --- /dev/null +++ b/lisp/term/bobcat.el @@ -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)) |