Mercurial > emacs
view lisp/term/bobcat.el @ 994:5b2a1922c4d5
*** empty log message ***
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Fri, 14 Aug 1992 22:36:42 +0000 |
parents | 9a41f30a5e64 |
children | f1f4cab7f621 |
line wrap: on
line source
;;; 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))