diff --git a/guile-readline/ChangeLog b/guile-readline/ChangeLog
index 7b02403fd..e4b4c1cff 100644
--- a/guile-readline/ChangeLog
+++ b/guile-readline/ChangeLog
@@ -1,3 +1,15 @@
+2003-04-05  Mikael Djurfeldt  <djurfeldt@nada.kth.se>
+
+	The intended side-effect of the following change is to make the
+	prompt appear properly when debugging or running Guile in an Emacs
+	buffer.  (The readline library has some prompt magic which we were
+	expected to do ourselves when we were bold enough to provide our
+	own redisplay function---but we don't need to do that.)
+	
+	* readline.c (redisplay): Removed. (It didn't do anything other
+	than calling rl_redisplay.)
+	(scm_init_readline): Don't inititalize rl_redisplay_function.
+
 2003-01-08  Neil Jerram  <neil@ossau.uklinux.net>
 
 	* readline.c (scm_readline): Check that scm_cur_outp is an output
diff --git a/guile-readline/readline.c b/guile-readline/readline.c
index 2088a6a9a..f02b73eb4 100644
--- a/guile-readline/readline.c
+++ b/guile-readline/readline.c
@@ -1,6 +1,6 @@
 /* readline.c --- line editing support for Guile */
 
-/* Copyright (C) 1997,1999,2000,2001 Free Software Foundation, Inc.
+/* Copyright (C) 1997,1999,2000,2001, 2003 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -136,13 +136,6 @@ current_input_getc (FILE *in SCM_UNUSED)
   return scm_getc (input_port);
 }
 
-static void
-redisplay ()
-{
-  rl_redisplay ();
-  /* promptp = 1; */
-}
-
 static int in_readline = 0;
 #ifdef USE_THREADS
 static scm_t_mutex reentry_barrier_mutex;
@@ -546,7 +539,6 @@ scm_init_readline ()
   scm_readline_completion_function_var
     = scm_c_define ("*readline-completion-function*", SCM_BOOL_F);
   rl_getc_function = current_input_getc;
-  rl_redisplay_function = redisplay;
 #if defined (_RL_FUNCTION_TYPEDEF)
   rl_completion_entry_function = (rl_compentry_func_t*) completion_function;
 #else