diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-04-05 15:34:17 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-04-05 15:34:17 +0000 |
commit | cdbb889adb8a3ab2241a60540b549c49d599c7cc (patch) | |
tree | 072a62ae48c2a057a6d20c2c20b0d8f1948dc54e /guile-readline/readline.c | |
parent | e2d0a64945ded692f10a15aa758e2f24af8c424d (diff) | |
download | guile-cdbb889adb8a3ab2241a60540b549c49d599c7cc.tar.gz |
* readline.c (redisplay): Removed. (It didn't do anything other
than calling rl_redisplay.)
(scm_init_readline): Don't inititalize rl_redisplay_function.
Diffstat (limited to 'guile-readline/readline.c')
-rw-r--r-- | guile-readline/readline.c | 10 |
1 files changed, 1 insertions, 9 deletions
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 |