* readline.c (redisplay): Removed. (It didn't do anything other

[bpt/guile.git] / guile-readline / readline.c

diff --git a/guile-readline/readline.c b/guile-readline/readline.c
index 55e0a0d..c47f824 100644 (file)
--- 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, 2002 Free Software Foundation, Inc.
+/* Copyright (C) 1997,1999,2000,2001, 2002, 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
@@ -144,13 +144,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;
 static SCM reentry_barrier_mutex;
 
@@ -562,7 +555,6 @@ scm_init_readline ()
 #ifndef __MINGW32__
   rl_getc_function = current_input_getc;
 #endif
-  rl_redisplay_function = redisplay;
 #if defined (_RL_FUNCTION_TYPEDEF)
   rl_completion_entry_function = (rl_compentry_func_t*) completion_function;
 #else