/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/
/*                                                                     */
/*        P�l Hedne 1990                                               */
/*                                                                     */
/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/
/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;					 */
/* 																		  ;					 */
/*  Macro for � bytte ut norske tegn med LATEX kommandoer  ;					 */
/* 																		  ;					 */
/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;					 */

nor_to_tex (...)
{
	int line, col;

 	message("Oversetter norske tegn til TEX ");
	drop_bookmark (10, "Y");
	move_abs (1, 1);
	translate ("�", "{\\ae}", 1, 0, 1);
	move_abs (1, 1);
	translate ("�", "{\\o}", 1, 0, 1);
	move_abs (1, 1);
	translate ("�", "{\\aa}", 1, 0, 1);
	move_abs (1, 1);
	translate ("�", "{\\AE}", 1, 0, 1);
	move_abs (1, 1);
	translate ("�", "{\\O}", 1, 0, 1);
	move_abs (1, 1);
	translate ("�", "{\\AA}", 1, 0, 1);
	goto_bookmark (10);
 	message(" ");
}
/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;					 */
tex_to_nor (...)
{
	int line, col;

 	message("Oversetter TEX til norske tegn");
	drop_bookmark (10, "Y");
	move_abs (1, 1);
	translate ("{\\ae}", "�", 1, 0, 1);
	move_abs (1, 1);
	translate ("{\\o}", "�", 1, 0, 1);
	move_abs (1, 1);
	translate ("{\\aa}", "�", 1, 0, 1);
	move_abs (1, 1);
	translate ("{\\AE}", "�", 1, 0, 1);
	move_abs (1, 1);
	translate ("{\\O}", "�", 1, 0, 1);
	move_abs (1, 1);
	translate ("{\\AA}", "�", 1, 0, 1);
	goto_bookmark (10);
 	message(" ");
}
/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;					 */
NormKeys (...)
{
	assign_to_key ("�", "self_insert");
	assign_to_key ("�", "self_insert");
	assign_to_key ("�", "self_insert");
	assign_to_key ("�", "self_insert");
	assign_to_key ("�", "self_insert");
	assign_to_key ("�", "self_insert");
}

/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;					 */
TexKeys (...)
{
	assign_to_key ("�", "AA");
	assign_to_key ("�", "aa");
	assign_to_key ("�", "AE");
	assign_to_key ("�", "ae");
	assign_to_key ("�", "OE");
	assign_to_key ("�", "oe");
}

/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;					 */
aa (...)
{
	insert ("{\\aa}");
}

AA (...)
{
	insert ("{\\AA}");
}
OE (...)
{
	insert ("{\\O}");
}

oe (...)
{
	insert ("{\\o}");
}

AE (...)
{
	insert ("{\\AE}");
}
ae (...)
{
	insert ("{\\ae}");
}

/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;					 */
mailnor (...)
{
	int line, col;

 	message("Oversetter norske tegn til mail norsk ");
	drop_bookmark (10, "Y");
	move_abs (1, 1);
	translate ("�", "ae", 1, 0, 1);
	move_abs (1, 1);
	translate ("�", "o", 1, 0, 1);
	move_abs (1, 1);
	translate ("�", "aa", 1, 0, 1);
	move_abs (1, 1);
	translate ("�", "AE", 1, 0, 1);
	move_abs (1, 1);
	translate ("�", "O", 1, 0, 1);
	move_abs (1, 1);
	translate ("�", "AA", 1, 0, 1);
	goto_bookmark (10);
 	message(" ");
}
/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;					 */