diff options
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), |