mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +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:50:48 +00:00
parent f7ae99e97b
commit e6e2c4fa10
2 changed files with 13 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

12
guile-readline/ChangeLog
View file

@ -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-01-08 Neil Jerram <neil@ossau.uklinux.net> 2003-01-08 Neil Jerram <neil@ossau.uklinux.net>
* readline.c (scm_readline): Check that scm_cur_outp is an output * readline.c (scm_readline): Check that scm_cur_outp is an output

10
guile-readline/readline.c
View file

@ -1,6 +1,6 @@
/* readline.c --- line editing support for Guile */ /* readline.c --- line editing support for Guile */
/* Copyright (C) 1997,1999,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1997,1999,2000,2001, 2003 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * 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 * it under the terms of the GNU General Public License as published by
@ -136,13 +136,6 @@ current_input_getc (FILE *in SCM_UNUSED)
return scm_getc (input_port); return scm_getc (input_port);
} }
static void
redisplay ()
{
rl_redisplay ();
/* promptp = 1; */
}
static int in_readline = 0; static int in_readline = 0;
#ifdef USE_THREADS #ifdef USE_THREADS
static scm_t_mutex reentry_barrier_mutex; static scm_t_mutex reentry_barrier_mutex;
@ -546,7 +539,6 @@ scm_init_readline ()
scm_readline_completion_function_var scm_readline_completion_function_var
= scm_c_define ("*readline-completion-function*", SCM_BOOL_F); = scm_c_define ("*readline-completion-function*", SCM_BOOL_F);
rl_getc_function = current_input_getc; rl_getc_function = current_input_getc;
rl_redisplay_function = redisplay;
#if defined (_RL_FUNCTION_TYPEDEF) #if defined (_RL_FUNCTION_TYPEDEF)
rl_completion_entry_function = (rl_compentry_func_t*) completion_function; rl_completion_entry_function = (rl_compentry_func_t*) completion_function;
#else #else