/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/
/*                                                                     */
/*        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(" ");
}
/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;					 */