# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 782102638 0
# Node ID f42e5fd15f6f953d576e57718e0607629a3cebb9
# Parent  f9cba4810d7bb54ea6bf90e17b92fc592a9a10ad
(term_get_fkeys_1): Workaround for IBM's dialect of terminfo.

diff -r f9cba4810d7b -r f42e5fd15f6f src/term.c
--- a/src/term.c	Thu Oct 13 23:34:38 1994 +0000
+++ b/src/term.c	Fri Oct 14 02:43:58 1994 +0000
@@ -1351,6 +1351,18 @@
       CONDITIONAL_REASSIGN ("%8", "kP", "prior");
       /* if there's no key_dc keycap, map key_ic to `insert' keysym */
       CONDITIONAL_REASSIGN ("kD", "kI", "insert");
+
+      /* IBM has their own non-standard dialect of terminfo.
+	 If the standard name isn't found, try the IBM name.  */
+      CONDITIONAL_REASSIGN ("kB", "KO", "backtab");
+      CONDITIONAL_REASSIGN ("@4", "kJ", "execute"); /* actually "action" */
+      CONDITIONAL_REASSIGN ("@4", "kc", "execute"); /* actually "command" */
+      CONDITIONAL_REASSIGN ("%7", "ki", "menu");
+      CONDITIONAL_REASSIGN ("@7", "kw", "end");
+      CONDITIONAL_REASSIGN ("F1", "k<", "f11");
+      CONDITIONAL_REASSIGN ("F2", "k>", "f12");
+      CONDITIONAL_REASSIGN ("%1", "kq", "help");
+      CONDITIONAL_REASSIGN ("*6", "kU", "select");
 #undef CONDITIONAL_REASSIGN
   }
 }