mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

* Make the readline port input-only.

Browse source
This commit is contained in:
Neil Jerram 2001-01-19 09:00:05 +00:00
parent 10288a0948
commit 6c29a390fa
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
guile-readline/ChangeLog
View file

@ -1,3 +1,8 @@
2001-01-18 Neil Jerram <neil@ossau.uklinux.net>
* readline.scm (make-readline-port): Make readline port
input-only.
2000-12-12 Dirk Herrmann <D.Herrmann@tu-bs.de> 2000-12-12 Dirk Herrmann <D.Herrmann@tu-bs.de>
* readline.scm (activate-readline): Lookup 'use-emacs-interface * readline.scm (activate-readline): Lookup 'use-emacs-interface

4
guile-readline/readline.scm
View file

@ -83,8 +83,8 @@
(set! string-index (+ 1 string-index)) (set! string-index (+ 1 string-index))
res)))))) res))))))
(make-soft-port (make-soft-port
(vector write-char display #f get-character #f) (vector #f #f #f get-character #f)
"rw")))) "r"))))
;;; We only create one readline port. There's no point in having ;;; We only create one readline port. There's no point in having
;;; more, since they would all share the tty and history --- ;;; more, since they would all share the tty and history ---