Stacken/c64-livecoding
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add failsafe to REDISPLAY-LINE for when the editor fucks it up

Browse source 
Occasionally the editor will try to redisplay lines that are
off-screen, even though that shouldn't happen. Ignoring it is
seemingly harmless, so it now signals a warning.
This commit is contained in:
John Lorentzson 2025-07-31 13:22:59 +02:00
parent f3cbadfa54
commit 1f52377b2b
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
editor/editor.lisp
View file

@ -424,7 +424,7 @@ serial connection the editor normally runs under.")
(move-cursor (view-line-number (buffer-view buffer) line) char-pos) (move-cursor (view-line-number (buffer-view buffer) line) char-pos)
(write-char (aref (line-content line) char-pos) *eio*) (write-char (aref (line-content line) char-pos) *eio*)
(update-buffer-cursor buffer))) (update-buffer-cursor buffer)))
(t ((line-in-view line (buffer-view buffer))
(hide-cursor) (hide-cursor)
(move-cursor (view-line-number (buffer-view buffer) line) start) (move-cursor (view-line-number (buffer-view buffer) line) start)
(write-byte #x1B *eio*) (write-byte #x1B *eio*)
@ -432,7 +432,9 @@ serial connection the editor normally runs under.")
(write-char #\K *eio*) (write-char #\K *eio*)
(write-string (line-content line) *eio* :start start) (write-string (line-content line) *eio* :start start)
(update-buffer-cursor buffer) (update-buffer-cursor buffer)
(show-cursor)))) (show-cursor))
(t
(warn "Tried to redisplay an off-screen line."))))
(force-output *eio*)) (force-output *eio*))