summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guile-readline/readline.c17
1 files changed, 11 insertions, 6 deletions
diff --git a/guile-readline/readline.c b/guile-readline/readline.c
index 469d6ec7d..408ca55d7 100644
--- a/guile-readline/readline.c
+++ b/guile-readline/readline.c
@@ -431,12 +431,17 @@ static void init_bouncing_parens ();
static void
init_bouncing_parens ()
{
- if (strncmp (rl_get_keymap_name (rl_get_keymap ()), "vi", 2))
- {
- rl_bind_key (')', match_paren);
- rl_bind_key (']', match_paren);
- rl_bind_key ('}', match_paren);
- }
+ Keymap km = rl_get_keymap ();
+ if (km)
+ if (strncmp (rl_get_keymap_name (km), "vi", 2))
+ {
+ rl_bind_key (')', match_paren);
+ rl_bind_key (']', match_paren);
+ rl_bind_key ('}', match_paren);
+ }
+ else
+ scm_error (scm_misc_error_key, "", "readline has not been properly initialized",
+ SCM_EOL, SCM_EOL);
}
static int