sfos/eql5
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tiny revisions

Browse source
This commit is contained in:
polos 2019-09-03 17:37:49 +02:00
parent a453239d14
commit a7a0af1e86
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
examples/9-simple-lisp-editor/settings.lisp
View file

@ -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))

2
lib/gui.lisp
View file

@ -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