diff options
| -rw-r--r-- | acinclude.m4 | 10 | ||||
| -rw-r--r-- | guile-readline/readline.c | 6 |
2 files changed, 9 insertions, 7 deletions
diff --git a/acinclude.m4 b/acinclude.m4 index 70cb247aa..3004f2fb1 100644 --- a/acinclude.m4 +++ b/acinclude.m4 @@ -427,10 +427,12 @@ AC_DEFUN([GUILE_READLINE], [ [[#include <stdio.h>] [#include <readline/readline.h>]]) - dnl Check for rl_get_keymap. We only use this for deciding whether to - dnl install paren matching on the Guile command line (when using - dnl readline for input), so it's completely optional. - AC_CHECK_FUNCS([rl_get_keymap]) + dnl Check rl_get_keymap_name instead of rl_get_keymap because some + dnl systems only have the latter and the feature needs both. + dnl We only use this for deciding whether to install paren matching on + dnl the Guile command line (when using readline for input), so it's + dnl completely optional. + AC_CHECK_FUNCS([rl_get_keymap_name]) AC_CACHE_CHECK([for rl_getc_function pointer in readline], ac_cv_var_rl_getc_function, diff --git a/guile-readline/readline.c b/guile-readline/readline.c index c15275dd3..b80b49545 100644 --- a/guile-readline/readline.c +++ b/guile-readline/readline.c @@ -420,7 +420,7 @@ completion_function (char *text, int continuep) } } -#if HAVE_RL_GET_KEYMAP +#if HAVE_RL_GET_KEYMAP_NAME /*Bouncing parenthesis (reimplemented by GH, 11/23/98, since readline is strict gpl)*/ static int match_paren (int x, int k); @@ -515,7 +515,7 @@ match_paren (int x, int k) } return 0; } -#endif /* HAVE_RL_GET_KEYMAP */ +#endif /* HAVE_RL_GET_KEYMAP_NAME */ #endif /* HAVE_RL_GETC_FUNCTION */ @@ -551,7 +551,7 @@ scm_init_readline () rl_variable_bind ("enable-bracketed-paste", SCM_READLINE_BRACKETED_PASTE ? "on" : "off"); -#if HAVE_RL_GET_KEYMAP +#if HAVE_RL_GET_KEYMAP_NAME init_bouncing_parens(); #endif scm_add_feature ("readline"); |