guile/guile-core/guile-readline readline.c read...

[Marius Vollmer]

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