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

diff --git a/lisp/term/bobcat.el b/lisp/term/bobcat.el
index 85f816570e..974476f679 100644
--- a/lisp/term/bobcat.el
+++ b/lisp/term/bobcat.el
@@ -1,6 +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