From a7a0af1e869c88960b80f4a405e0a875d4d7d0b0 Mon Sep 17 00:00:00 2001 From: polos Date: Tue, 3 Sep 2019 17:37:49 +0200 Subject: [PATCH] tiny revisions --- examples/9-simple-lisp-editor/settings.lisp | 2 +- lib/gui.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/examples/9-simple-lisp-editor/settings.lisp b/examples/9-simple-lisp-editor/settings.lisp index 8ff23b7..3e40a4d 100644 --- a/examples/9-simple-lisp-editor/settings.lisp +++ b/examples/9-simple-lisp-editor/settings.lisp @@ -2,5 +2,5 @@ (defvar eql::*code-font* (eql:qnew "QFont(QString,int)" #+darwin "Monaco" #+darwin 12 - #+linux "Monospace" #+linux 9 + #+linux "Monospace" #+linux 12 #+windows "Courier New" #+windows 10)) diff --git a/lib/gui.lisp b/lib/gui.lisp index 60a6c1c..798c92d 100644 --- a/lib/gui.lisp +++ b/lib/gui.lisp @@ -417,7 +417,7 @@ (string/= line (aref *history* (1- len)))) (vector-push-extend line *history*) (write-line line out) - (force-output out))) + (finish-output out))) (setf *history-index* (length *history*))) ; 1 after last (defun history-move (dir) (unless out