Commit b2c9579f authored by Jim Blandy's avatar Jim Blandy

Initial revision

parent bdd512ed
(load "term/vt100")
;;; 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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment