Mercurial > hg > xemacs-beta

comparison src/redisplay-tty.c @ 193:f53b5ca2e663 r20-3b23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b23
author cvs
date Mon, 13 Aug 2007 09:58:30 +0200
parents 3d6bfa290dbd
children 41ff10fd062f
comparison
equal deleted inserted replaced
192:9d35321dd38c 193:f53b5ca2e663
1418 { 1418 {
1419 int i; 1419 int i;
1420 1420
1421 char **address = term_get_fkeys_arg; 1421 char **address = term_get_fkeys_arg;
1422 1422
1423 for (i = 0; i < (sizeof (keys)/sizeof (keys[0])); i++) 1423 for (i = 0; i < countof (keys); i++)
1424 { 1424 {
1425 char *sequence = tgetstr (keys[i].cap, address); 1425 char *sequence = tgetstr (keys[i].cap, address);
1426 if (sequence) 1426 if (sequence)
1427 Fdefine_key (function_key_map, 1427 Fdefine_key (function_key_map,
1428 build_string (sequence), 1428 build_ext_string (sequence, FORMAT_BINARY),
1429 vector1 (intern (keys[i].name))); 1429 vector1 (intern (keys[i].name)));
1430 } 1430 }
1431 1431
1432 /* The uses of the "k0" capability are inconsistent; sometimes it 1432 /* The uses of the "k0" capability are inconsistent; sometimes it
1433 describes F10, whereas othertimes it describes F0 and "k;" describes F10. 1433 describes F10, whereas othertimes it describes F0 and "k;" describes F10.
1439 char *k0 = tgetstr ("k0", address); 1439 char *k0 = tgetstr ("k0", address);
1440 CONST char *k0_name = "f10"; 1440 CONST char *k0_name = "f10";
1441 1441
1442 if (k_semi) 1442 if (k_semi)
1443 { 1443 {
1444 Fdefine_key (function_key_map, build_string (k_semi), 1444 Fdefine_key (function_key_map, build_ext_string (k_semi, FORMAT_BINARY),
1445 vector1 (intern ("f10"))); 1445 vector1 (intern ("f10")));
1446 k0_name = "f0"; 1446 k0_name = "f0";
1447 } 1447 }
1448 1448
1449 if (k0) 1449 if (k0)
1450 Fdefine_key (function_key_map, build_string (k0), 1450 Fdefine_key (function_key_map, build_ext_string (k0, FORMAT_BINARY),
1451 vector1 (intern (k0_name))); 1451 vector1 (intern (k0_name)));
1452 } 1452 }
1453 1453
1454 /* Set up cookies for numbered function keys above f10. */ 1454 /* Set up cookies for numbered function keys above f10. */
1455 { 1455 {
1469 char *sequence = tgetstr (fcap, address); 1469 char *sequence = tgetstr (fcap, address);
1470 if (sequence) 1470 if (sequence)
1471 { 1471 {
1472 sprintf (fkey, "f%d", i); 1472 sprintf (fkey, "f%d", i);
1473 Fdefine_key (function_key_map, 1473 Fdefine_key (function_key_map,
1474 build_string (sequence), 1474 build_ext_string (sequence, FORMAT_BINARY),
1475 vector1 (intern (fkey))); 1475 vector1 (intern (fkey)));
1476 } 1476 }
1477 } 1477 }
1478 } 1478 }
1479 } 1479 }
1486 if (!tgetstr (cap1, address)) \ 1486 if (!tgetstr (cap1, address)) \
1487 { \ 1487 { \
1488 char *sequence = tgetstr (cap2, address); \ 1488 char *sequence = tgetstr (cap2, address); \
1489 if (sequence) \ 1489 if (sequence) \
1490 Fdefine_key (function_key_map, \ 1490 Fdefine_key (function_key_map, \
1491 build_string (sequence), \ 1491 build_ext_string (sequence, FORMAT_BINARY), \
1492 vector1 (intern (sym))); \ 1492 vector1 (intern (sym))); \
1493 } 1493 }
1494 1494
1495 /* if there's no key_next keycap, map key_npage to `next' keysym */ 1495 /* if there's no key_next keycap, map key_npage to `next' keysym */
1496 CONDITIONAL_REASSIGN ("%5", "kN", "next"); 1496 CONDITIONAL_REASSIGN ("%5", "kN", "next");