mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 12:00:21 +02:00
Code Activity

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

Browse source 
than calling rl_redisplay.)
(scm_init_readline): Don't inititalize rl_redisplay_function.
This commit is contained in:
Mikael Djurfeldt 2003-04-05 15:34:17 +00:00
parent e2d0a64945
commit cdbb889adb
2 changed files with 13 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

10
guile-readline/readline.c
View file

@ -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