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

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Branch:         mvo-vcell-cleanup-1-branch
Changes by:     Marius Vollmer <address@hidden> 01/05/15 07:09:27

Modified files:
        guile-core/guile-readline: readline.c 

Log message:
        (scm_init_readline): Use scm_c_define instead of scm_sysintern to
        create scm_readline_completion_function_var.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/guile-readline/readline.c.diff?cvsroot=OldCVS&only_with_tag=mvo-vcell-cleanup-1-branch&tr1=1.31.2.1&tr2=1.31.2.2&r1=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),