summaryrefslogtreecommitdiff
path: root/guile-readline/readline.c
diff options
context:
space:
mode:
authorNeil Jerram <neil@ossau.uklinux.net>2008-01-29 23:02:18 +0000
committerNeil Jerram <neil@ossau.uklinux.net>2008-01-29 23:02:18 +0000
commit6a945c34cfc7e44dfadea85b08e0a8bbd4dbc0e8 (patch)
tree76c9b796613b930254c8a81f0e67e703a14d44c4 /guile-readline/readline.c
parent5e42b8e7546d599653f00be07ce1f2c29233aa2f (diff)
downloadguile-6a945c34cfc7e44dfadea85b08e0a8bbd4dbc0e8.tar.gz
* readline.c (scm_init_readline): Only do init_bouncing_parens ()
if HAVE_RL_GET_KEYMAP. (init_bouncing_parens, find_matching_paren, match_paren): Compile out if ! HAVE_RL_GET_KEYMAP. * configure.in: Add check for rl_get_keymap.
Diffstat (limited to 'guile-readline/readline.c')
-rw-r--r--guile-readline/readline.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/guile-readline/readline.c b/guile-readline/readline.c
index 5a8ced64a..aa14e3967 100644
--- a/guile-readline/readline.c
+++ b/guile-readline/readline.c
@@ -425,6 +425,7 @@ completion_function (char *text, int continuep)
}
}
+#if HAVE_RL_GET_KEYMAP
/*Bouncing parenthesis (reimplemented by GH, 11/23/98, since readline is strict gpl)*/
static int match_paren (int x, int k);
@@ -528,6 +529,7 @@ match_paren (int x, int k)
}
return 0;
}
+#endif /* HAVE_RL_GET_KEYMAP */
#if defined (HAVE_RL_PRE_INPUT_HOOK) && defined (GUILE_SIGWINCH_SA_RESTART_CLEARED)
/* Readline disables SA_RESTART on SIGWINCH.
@@ -575,7 +577,9 @@ scm_init_readline ()
reentry_barrier_mutex = scm_permanent_object (scm_make_mutex ());
scm_init_opts (scm_readline_options,
scm_readline_opts);
+#if HAVE_RL_GET_KEYMAP
init_bouncing_parens();
+#endif
scm_add_feature ("readline");
#endif /* HAVE_RL_GETC_FUNCTION */
}