From cdbb889adb8a3ab2241a60540b549c49d599c7cc Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sat, 5 Apr 2003 15:34:17 +0000 Subject: [PATCH] * readline.c (redisplay): Removed. (It didn't do anything other than calling rl_redisplay.) (scm_init_readline): Don't inititalize rl_redisplay_function. --- guile-readline/ChangeLog | 12 ++++++++++++ guile-readline/readline.c | 10 +--------- 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 + + 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 * 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 -- 2.20.1