mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

* readline.c (scm_clear_history): New function.

Browse source 
* readline.scm (readline-port): Call clear-history on exit.
Thanks to Utz-Uwe Haus.
This commit is contained in:
Marius Vollmer 2001-04-10 23:48:27 +00:00
parent 19aad96c76
commit 8ed35a15e8
2 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
guile-readline/readline.c
View file

@ -360,6 +360,16 @@ SCM_DEFINE (scm_write_history, "write-history", 1, 0, 0,
} }
#undef FUNC_NAME #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_DEFINE (scm_filename_completion_function, "filename-completion-function", 2, 0, 0,
(SCM text, SCM continuep), (SCM text, SCM continuep),

4
guile-readline/readline.scm
View file

@ -110,7 +110,9 @@
(begin (begin
(do read-history) (do read-history)
(set! the-readline-port (make-readline-port)) (set! the-readline-port (make-readline-port))
(add-hook! exit-hook (lambda () (do write-history))))) (add-hook! exit-hook (lambda ()
(do write-history)
(clear-history)))))
the-readline-port))) the-readline-port)))
;;; The user might try to use readline in his programs. It then ;;; The user might try to use readline in his programs. It then