Mercurial > emacs

annotate lisp/term/bobcat.el @ 982:595f9517f205

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
entered into RCS
author Richard M. Stallman <rms@gnu.org>
date Fri, 14 Aug 1992 00:14:17 +0000
parents 9a41f30a5e64
children f1f4cab7f621
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
479
9a41f30a5e64 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1 ;;; HP terminals usually encourage using ^H as the rubout character
9a41f30a5e64 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2
9a41f30a5e64 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3 (let ((the-table (make-string 128 0)))
9a41f30a5e64 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4 (let ((i 0))
9a41f30a5e64 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5 (while (< i 128)
9a41f30a5e64 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 (aset the-table i i)
9a41f30a5e64 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7 (setq i (1+ i))))
9a41f30a5e64 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8 ;; Swap ^H and DEL
9a41f30a5e64 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 (aset the-table ?\177 ?\^h)
9a41f30a5e64 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10 (aset the-table ?\^h ?\177)
9a41f30a5e64 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 (setq keyboard-translate-table the-table))