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

Allow inserting characters into a line without redisplay

Browse source
This commit is contained in:
John Lorentzson 2025-07-31 12:03:34 +02:00
parent 5af2ed3f2a
commit 13715859ef
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
editor/editor.lisp
View file

@ -327,7 +327,7 @@ serial connection the editor normally runs under.")
(defmethod line-length ((line line))
(length (line-content line)))
(defmethod insert-character-into-line ((line line) column character)
(defmethod insert-character-into-line ((line line) column character &key (try-redisplay-p t))
(unless (line-has-room-p line)
(error "No room on line."))
(cond ((= column (fill-pointer (line-content line)))
@ -339,7 +339,7 @@ serial connection the editor normally runs under.")
(replace (line-content line) to-shove
:start1 (1+ column))
(setf (char (line-content line) column) character))))
(when (line-in-view line (current-view *editor*))
(when (and try-redisplay-p (line-in-view line (current-view *editor*)))
(redisplay-line line :start column :addingp t)))
(defmethod delete-character-in-line ((line line) column)