diff options
| author | Richard M. Stallman | 1993-05-30 03:44:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-30 03:44:07 +0000 |
| commit | 4595014a199435ac28cb7a282060b833d84f724a (patch) | |
| tree | 46c72c3a51eded80bf532a9a075f99331a5b5f3f | |
| parent | cbc336a24f1fc34f5ef3e21bc0e2e65dacb74214 (diff) | |
| download | emacs-4595014a199435ac28cb7a282060b833d84f724a.tar.gz emacs-4595014a199435ac28cb7a282060b833d84f724a.zip | |
Just load keyswap.el.
| -rw-r--r-- | lisp/term/bobcat.el | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/lisp/term/bobcat.el b/lisp/term/bobcat.el index 7abe538ef77..f106b8b75c2 100644 --- a/lisp/term/bobcat.el +++ b/lisp/term/bobcat.el | |||
| @@ -1,11 +1,2 @@ | |||
| 1 | ;;; HP terminals usually encourage using ^H as the rubout character | 1 | ;;; HP terminals usually encourage using ^H as the rubout character |
| 2 | 2 | (load "term/keyswap" nil t) | |
| 3 | (let ((the-table (make-string 128 0))) | ||
| 4 | (let ((i 0)) | ||
| 5 | (while (< i 128) | ||
| 6 | (aset the-table i i) | ||
| 7 | (setq i (1+ i)))) | ||
| 8 | ;; Swap ^H and DEL | ||
| 9 | (aset the-table ?\177 ?\^h) | ||
| 10 | (aset the-table ?\^h ?\177) | ||
| 11 | (setq keyboard-translate-table the-table)) | ||