summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guile-readline/ChangeLog12
-rw-r--r--guile-readline/readline.c10
2 files changed, 13 insertions, 9 deletions
diff --git a/guile-readline/ChangeLog b/guile-readline/ChangeLog
index f2c8157a6..62a49f63a 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-03-19 Rob Browning <rlb@defaultvalue.org>
* readline.c: add HAVE_CONFIG_H test guarding #include config.h.
diff --git a/guile-readline/readline.c b/guile-readline/readline.c
index 55e0a0dcf..c47f82438 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, 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