Fixed issue with paste
This commit is contained in:
parent
df5930f114
commit
a658ac408e
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
@ -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
|
||||||
|
|
||||||
(
|
(
|
||||||
|
|
Loading…
Reference in New Issue