diff options
Diffstat (limited to 'lisp/term/bobcat.el')
| -rw-r--r-- | lisp/term/bobcat.el | 11 |
1 files changed, 11 insertions, 0 deletions
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)) |