summaryrefslogtreecommitdiff
path: root/guile-readline/readline.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2017-05-17 22:09:26 +0200
committerAndy Wingo <wingo@pobox.com>2017-05-17 22:29:08 +0200
commit96c9af4ab1490766fb1e2229ff3cf565cf7f10d1 (patch)
treeb46ad651eae3b76a61fac4046ad2e776e75f0723 /guile-readline/readline.c
parent7ac3d17ceaffc5f068e500c30b1728eae12ae0f0 (diff)
downloadguile-96c9af4ab1490766fb1e2229ff3cf565cf7f10d1.tar.gz
readline: Avoid interpreting control characters in pastes.
* NEWS: Update. * doc/ref/repl-modules.texi (Readline Options): Update for bracketed-paste. * guile-readline/readline.h (SCM_READLINE_BRACKETED_PASTE): Add bracketed-paste option. * guile-readline/readline.c (scm_readline_opts): Add bracketed-paste. (scm_init_readline): Wire up the logic.
Diffstat (limited to 'guile-readline/readline.c')
-rw-r--r--guile-readline/readline.c7
1 files changed, 6 insertions, 1 deletions
diff --git a/guile-readline/readline.c b/guile-readline/readline.c
index a3e890346..c15275dd3 100644
--- a/guile-readline/readline.c
+++ b/guile-readline/readline.c
@@ -47,6 +47,8 @@ scm_t_option scm_readline_opts[] = {
"History length." },
{ SCM_OPTION_INTEGER, "bounce-parens", 500,
"Time (ms) to show matching opening parenthesis (0 = off)."},
+ { SCM_OPTION_BOOLEAN, "bracketed-paste", 1,
+ "Disable interpretation of control characters in pastes." },
{ 0 }
};
@@ -545,7 +547,10 @@ scm_init_readline ()
reentry_barrier_mutex = scm_make_mutex ();
scm_init_opts (scm_readline_options,
- scm_readline_opts);
+ scm_readline_opts);
+ rl_variable_bind ("enable-bracketed-paste",
+ SCM_READLINE_BRACKETED_PASTE ? "on" : "off");
+
#if HAVE_RL_GET_KEYMAP
init_bouncing_parens();
#endif