Mercurial > emacs
view lisp/term/bobcat.el @ 1642:340feb030df1
*** empty log message ***
author | David J. MacKenzie <djm@gnu.org> |
---|---|
date | Thu, 26 Nov 1992 04:42:40 +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))