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

Fix bug where lines split by typed newline didn't redisplay

Browse source
This commit is contained in:
John Lorentzson 2025-07-20 13:20:41 +02:00
parent dc59319900
commit c6ba4228b3
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
wip-duuqnd/editor/editor.lisp
View file

@ -318,7 +318,7 @@ serial connection the editor normally runs under.")
:start1 (1+ column))
(setf (char (line-content line) column) character))))
(when (line-in-view line (current-view *editor*))
(redisplay-line line :start column)))
(redisplay-line line :start column :addingp t)))
(defmethod delete-character-in-line ((line line) column)
(unless (< column (fill-pointer (line-content line)))
@ -368,12 +368,12 @@ serial connection the editor normally runs under.")
(cursor-column (cursor *editor*)) start)
(update-buffer-cursor (current-buffer *editor*))))))
(defmethod redisplay-line ((line line) &key (start 0))
(defmethod redisplay-line ((line line) &key (start 0) addingp)
;; TODO: save the cursor position
(with-editor-accessors *editor* (:current-line current
:current-buffer buffer)
(cond
((= start (1- (line-length line)))
((and addingp (= start (1- (line-length line))))
(let ((char-pos (1- (fill-pointer (line-content line)))))
(move-cursor (view-line-number (buffer-view buffer) line) char-pos)
(write-char (aref (line-content line) char-pos) *eio*)