--- rpl/src/sequenceur.c	2011/09/14 17:56:00	1.44
+++ rpl/src/sequenceur.c	2012/04/13 14:13:04	1.52
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.3
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.8
+  Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -66,6 +66,9 @@ sequenceur(struct_processus *s_etat_proc
 	unsigned long				niveau;
 	unsigned long				position_courante;
 
+	Keymap						ancien_keymap;
+	Keymap						nouveau_keymap;
+
 	(*s_etat_processus).retour_routine_evaluation = 'N';
 
 	if ((*s_etat_processus).debug == d_vrai)
@@ -177,8 +180,20 @@ sequenceur(struct_processus *s_etat_proc
 				flockfile(stdin);
 				flockfile(stdout);
 
+				ancien_keymap = rl_get_keymap();
+				nouveau_keymap = rl_copy_keymap(ancien_keymap);
+				rl_set_keymap(nouveau_keymap);
+
+				rl_bind_key(NEWLINE, readline_analyse_syntaxique);
+				rl_bind_key(RETURN, readline_analyse_syntaxique);
+				rl_bind_key(CTRL('g'), readline_effacement);
+				rl_done = 0;
+
 				ligne = readline("RPL/2> ");
 
+				rl_set_keymap(ancien_keymap);
+				rl_free(nouveau_keymap);
+
 				funlockfile(stdin);
 				funlockfile(stdout);