mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +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 8707958e6c
commit 937bd9509c
1 changed files with 30 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

5
guile-readline/readline.c
View file

@ -1,6 +1,7 @@
/* readline.c --- line editing support for Guile */ /* readline.c --- line editing support for Guile */
/* Copyright (C) 1997,1999,2000,2001, 2002, 2003, 2006, 2007, 2008, 2009, 2010, 2013 Free Software Foundation, Inc. /* Copyright (C) 1997, 1999-2003, 2006-2010, 2013, 2016
* Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by
@ -59,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