X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/0a10297a064822f10484f3c08d03f18b3fd5a3e4..56388398e7a1251497f002072c061002ec9d9e81:/lisp/term/bobcat.el

diff --git a/lisp/term/bobcat.el b/lisp/term/bobcat.el
index 85f211e39f..974476f679 100644
--- a/lisp/term/bobcat.el
+++ b/lisp/term/bobcat.el
@@ -1,5 +1,10 @@
 ;; -*- no-byte-compile: t -*-
-;;; HP terminals usually encourage using ^H as the rubout character
-(load "term/keyswap" nil t)
 
+(defun terminal-init-bobcat ()
+  "Terminal initialization function for bobcat."
+  ;; HP terminals usually encourage using ^H as the rubout character
+  (keyboard-translate ?\177 ?\^h)
+  (keyboard-translate ?\^h ?\177))
+
+;;; arch-tag: 754e4520-0a3e-4e6e-8ca5-9481b1f85cf7
 ;;; bobcat.el ends here