mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Avoid stifling readline history when looking up options

Browse source 
With this patch, history is never stifled unless (readline-set!) is used.

* src/guile-readline/readline.c (scm_readline_options)
This commit is contained in:
Daniel Llorens 2015-07-28 09:42:25 +02:00 • committed by Andy Wingo
parent cab7167849
commit 395582b218
1 changed files with 29 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

2
guile-readline/readline.c
View file

@ -60,7 +60,9 @@ SCM_DEFINE (scm_readline_options, "readline-options-interface", 0, 1, 0,
SCM ans = scm_options (setting, SCM ans = scm_options (setting,
scm_readline_opts, scm_readline_opts,
FUNC_NAME); FUNC_NAME);
if (!SCM_UNBNDP (setting)) {
stifle_history (SCM_HISTORY_LENGTH); stifle_history (SCM_HISTORY_LENGTH);
}
return ans; return ans;
} }
#undef FUNC_NAME #undef FUNC_NAME