[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/guile-readline readline.c read...
From: |
Marius Vollmer |
Subject: |
guile/guile-core/guile-readline readline.c read... |
Date: |
Tue, 10 Apr 2001 16:48:30 -0700 |
CVSROOT: /cvs
Module name: guile
Changes by: 01/04/10 16:48:27
Modified files:
guile-core/guile-readline: readline.c readline.scm
Log message:
* readline.c (scm_clear_history): New function.
* readline.scm (readline-port): Call clear-history on exit.
Thanks to Utz-Uwe Haus.
CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/guile-readline/readline.c.diff?tr1=1.30&tr2=1.31r1=text&r2=text
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/guile-readline/readline.scm.diff?tr1=1.12&tr2=1.13r1=text&r2=text
Patches:
Index: guile/guile-core/guile-readline/readline.c
diff -u guile/guile-core/guile-readline/readline.c:1.30
guile/guile-core/guile-readline/readline.c:1.31
--- guile/guile-core/guile-readline/readline.c:1.30 Fri Mar 9 15:31:55 2001
+++ guile/guile-core/guile-readline/readline.c Tue Apr 10 16:48:27 2001
@@ -360,6 +360,16 @@
}
#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),
Index: guile/guile-core/guile-readline/readline.scm
diff -u guile/guile-core/guile-readline/readline.scm:1.12
guile/guile-core/guile-readline/readline.scm:1.13
--- guile/guile-core/guile-readline/readline.scm:1.12 Mon Mar 5 15:12:57 2001
+++ guile/guile-core/guile-readline/readline.scm Tue Apr 10 16:48:27 2001
@@ -110,7 +110,9 @@
(begin
(do read-history)
(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 user might try to use readline in his programs. It then
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/guile-readline readline.c read...,
Marius Vollmer <=