]> code.delx.au - gnu-emacs/blobdiff - lisp/term/bobcat.el
Merge from emacs--rel--22
[gnu-emacs] / lisp / term / bobcat.el
index 85f211e39ffc616568c05e536b45ae33e676d230..974476f679862733c05ac3e79e033d517fc08dc8 100644 (file)
@@ -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