mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 11:10:32 +02:00
Code Activity

Fix else in init_bouncing_parens()

Browse source
This commit is contained in:
Daniel Llorens 2021-06-02 10:48:53 +02:00
parent c1fd55d174
commit 118ee0c50b
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
guile-readline/readline.c
View file

@ -433,12 +433,14 @@ init_bouncing_parens ()
{
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);
}
{
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);