Fixed issue with paste

This commit is contained in:
Devine Lu Linvega 2023-04-28 10:06:07 -07:00
parent df5930f114
commit a658ac408e
5 changed files with 5 additions and 5 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -391,7 +391,7 @@ JMP2r
STH2kr .File/length DEO2 STH2kr .File/length DEO2
( erase when selection length ) ( erase when selection length )
.selection/length LDZ2 #0000 EQU2 ?&no-selection .selection/length LDZ2 #0000 EQU2 ?&no-selection
erase-selection get-from get-eof .selection/length LDZ2 msfl
&no-selection &no-selection
( push right ) get-from #0001 SUB2 ( push right ) get-from #0001 SUB2
get-eof STH2kr msfr get-eof STH2kr msfr
@ -406,8 +406,9 @@ JMP2r
edit-copy edit-copy
erase-selection erase-selection
select-reset
!select-reset !file-save
@edit-copy ( -- ) @edit-copy ( -- )
@ -421,10 +422,9 @@ JMP2r
@edit-paste ( -- ) @edit-paste ( -- )
;snarf-txt ;snarf-txt file-inject
!file-inject
!file-save
@snarf-txt ".snarf $1 @snarf-txt ".snarf $1
( (