diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-04-10 23:48:27 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-04-10 23:48:27 +0000 |
commit | 8ed35a15e890d0317361815c9be45e0480270517 (patch) | |
tree | 2c02b56dd666f596afd37719cccf8102ad7d42db /guile-readline/readline.c | |
parent | 19aad96c76ca85e32109266100ccf052a4ec44b8 (diff) | |
download | guile-8ed35a15e890d0317361815c9be45e0480270517.tar.gz |
* readline.c (scm_clear_history): New function.
* readline.scm (readline-port): Call clear-history on exit.
Thanks to Utz-Uwe Haus.
Diffstat (limited to 'guile-readline/readline.c')
-rw-r--r-- | guile-readline/readline.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/guile-readline/readline.c b/guile-readline/readline.c index 068c453e6..565c264ad 100644 --- a/guile-readline/readline.c +++ b/guile-readline/readline.c @@ -360,6 +360,16 @@ SCM_DEFINE (scm_write_history, "write-history", 1, 0, 0, } #undef FUNC_NAME +SCM_DEFINE (scm_clear_history, "clear-history", 0, 0, 0, + (), + "Clear the history buffer of the readline machinery.") +#define FUNC_NAME s_scm_clear_history +{ + clear_history(); + return SCM_UNSPECIFIED; +} +#undef FUNC_NAME + SCM_DEFINE (scm_filename_completion_function, "filename-completion-function", 2, 0, 0, (SCM text, SCM continuep), |