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

small fix to command history

Browse source
This commit is contained in:
polos 2017-10-12 13:20:40 +02:00
parent 5d78c081e1
commit f78f8d166d
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/gui.lisp
View file

@ -416,9 +416,9 @@
(when (or (zerop len)
(string/= line (aref *history* (1- len))))
(vector-push-extend line *history*)
(setf *history-index* (length *history*)) ; 1 after last
(write-line line out)
(force-output out))))
(force-output out)))
(setf *history-index* (length *history*))) ; 1 after last
(defun history-move (dir)
(unless out
(history-ini))