summaryrefslogtreecommitdiff
path: root/guile-readline/readline.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2001-04-10 23:48:27 +0000
committerMarius Vollmer <mvo@zagadka.de>2001-04-10 23:48:27 +0000
commit8ed35a15e890d0317361815c9be45e0480270517 (patch)
tree2c02b56dd666f596afd37719cccf8102ad7d42db /guile-readline/readline.c
parent19aad96c76ca85e32109266100ccf052a4ec44b8 (diff)
downloadguile-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.c10
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),