OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/xterm?expand=0&rev=1

Backarrow2Delete

@@ -0,0 +1,42 @@
+#!/bin/bash
+#
+# Backarrow2Delete:	Switch Backarrow key to Delete
+#
+# Copyright (c) 1998 S.u.S.E. GmbH Fuerth, Germany.
+# please send bugfixes or comments to feedback@suse.de.
+#
+# Author:  Werner Fink,  <werner@suse.de>
+
+#
+# Some checks
+#
+case "$TERM" in
+    xterm*) ;;
+    *)	echo "${0##*/}: TERM=$TERM is not for an xterm!" 1>&2
+	exit 1
+esac
+tty -s || { echo "{0##*/}: Not a tty!" 1>&2 ; exit 1; }
+
+#
+# Restore default X key mapping for standard PC keyboards
+#
+case "$(uname -s)" in
+    Linux)
+	xmodmap -e 'keycode  22 = BackSpace BackSpace 3270_DeleteWord'
+	xmodmap -e 'keycode 107 = Delete'
+	;;
+    *)
+	# Don't know
+esac
+
+#
+# Switch to Ctrl-? (ASCII Delete) for Backarrow key
+#
+echo -en '\033[?67l' > /dev/tty
+
+#
+# Change terminal settings accordingly
+#
+stty  erase '^?'     < /dev/tty
+
+exit 0