view console/libgnt/gntkeys.c @ 14851:036927fddcba

[gaim-migrate @ 17620] A couple patches from Lee Roach. -Delete the Perl loader link library when making clean. -Force the Tcl loader plugin to use the ActiveTcl installation. This will prevent 99.99% of the cygwin "hang on start" issues, at the cost of having the Tcl loader not work for some people - if you're one of the 5 or so people using the Tcl loader on win32, you can figure out how to fix it - maybe we'll add a faq entry. This should cut down on the frequent bug reports of gaim failing to start. committer: Tailor Script <[e-mail]>

#include "gntkeys.h"

#include <string.h>

void gnt_keys_refine(char *text)
{
	if (text[0] == 27)
	{
		/* These are for urxvt */
		if (strcmp(text + 1, "Oa") == 0)
		{
			strcpy(text + 1, GNT_KEY_CTRL_UP);
		}
		else if (strcmp(text + 1, "Ob") == 0)
		{
			strcpy(text + 1, GNT_KEY_CTRL_DOWN);
		}
	}
	else if ((unsigned char)text[0] == 195)
	{
		/* These for xterm */
		if (text[2] == 0)
		{
			text[0] = 27;
			text[1] -= 64;
		}
	}
}