mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +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

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-03-19 Rob Browning <rlb@defaultvalue.org> 2003-03-19 Rob Browning <rlb@defaultvalue.org>
* readline.c: add HAVE_CONFIG_H test guarding #include config.h. * readline.c: add HAVE_CONFIG_H test guarding #include config.h.

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, 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 * 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
@ -144,13 +144,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;
static SCM reentry_barrier_mutex; static SCM reentry_barrier_mutex;
@ -562,7 +555,6 @@ scm_init_readline ()
#ifndef __MINGW32__ #ifndef __MINGW32__
rl_getc_function = current_input_getc; rl_getc_function = current_input_getc;
#endif #endif
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