From 6c29a390fab934c0e37e459d2e03449dc1a8920c Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Fri, 19 Jan 2001 09:00:05 +0000 Subject: [PATCH] * Make the readline port input-only. --- guile-readline/ChangeLog | 5 +++++ guile-readline/readline.scm | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/guile-readline/ChangeLog b/guile-readline/ChangeLog index 1fad43605..4c227c692 100644 --- a/guile-readline/ChangeLog +++ b/guile-readline/ChangeLog @@ -1,3 +1,8 @@ +2001-01-18 Neil Jerram + + * readline.scm (make-readline-port): Make readline port + input-only. + 2000-12-12 Dirk Herrmann * readline.scm (activate-readline): Lookup 'use-emacs-interface diff --git a/guile-readline/readline.scm b/guile-readline/readline.scm index 23adf4387..cbb0c4308 100644 --- a/guile-readline/readline.scm +++ b/guile-readline/readline.scm @@ -83,8 +83,8 @@ (set! string-index (+ 1 string-index)) res)))))) (make-soft-port - (vector write-char display #f get-character #f) - "rw")))) + (vector #f #f #f get-character #f) + "r")))) ;;; We only create one readline port. There's no point in having ;;; more, since they would all share the tty and history ---