diff options
| -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 0000000000..3b75d654c5 --- /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 0000000000..7abe538ef7 --- /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)) |