# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738733447 0
# Node ID f1f4cab7f62139a420951c0909737169ea3b28a7
# Parent  f3c8ed7fcb45166a4b003c2871aec77963f7f6d5
Just load keyswap.el.

diff -r f3c8ed7fcb45 -r f1f4cab7f621 lisp/term/bobcat.el
--- a/lisp/term/bobcat.el	Sun May 30 03:42:55 1993 +0000
+++ b/lisp/term/bobcat.el	Sun May 30 03:44:07 1993 +0000
@@ -1,11 +1,2 @@
 ;;; 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))
+(load "term/keyswap" nil t)