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 | |
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.
-rw-r--r-- | guile-readline/ChangeLog | 12 | ||||
-rw-r--r-- | 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 <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> * 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 |