From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 14 Oct 1994 02:43:58 +0000 (+0000)
Subject: (term_get_fkeys_1): Workaround for IBM's dialect of terminfo.
X-Git-Tag: emacs-19.34~6330
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a7f697a8d20b2c72b89975882680565a308345a;p=emacs.git

(term_get_fkeys_1): Workaround for IBM's dialect of terminfo.
---

diff --git a/src/term.c b/src/term.c
index 5b1d8118cae..7d9ba353340 100644
--- a/src/term.c
+++ b/src/term.c
@@ -1351,6 +1351,18 @@ term_get_fkeys_1 ()
       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
   }
 }