summaryrefslogtreecommitdiff
path: root/guile-readline/readline.c
diff options
context:
space:
mode:
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),