Initial revision

b2c9579f · Jim Blandy · bdd512ed · b2c9579f · b2c9579f
Commit b2c9579f authored Jan 13, 1992 by Jim Blandy
Hide whitespace changes
Inline Side-by-side

Showing with 12 additions and 0 deletions

lisp/term/apollo.el lisp/term/apollo.el +1 -0

lisp/term/bobcat.el lisp/term/bobcat.el +11 -0

No files found.
--- a/lisp/term/apollo.el
+++ b/lisp/term/apollo.el
+(load "term/vt100")
--- a/lisp/term/bobcat.el
+++ b/lisp/term/bobcat.el
+;;; 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))