Humza Shahid
6b91d64fc3
git-subtree-dir: shf git-subtree-mainline:401408448fgit-subtree-split:b6c5a95b66
15 lines
314 B
Standard ML
15 lines
314 B
Standard ML
structure NormalYankDelete =
|
|
MakeNormalDelete
|
|
(struct
|
|
open DrawMsg
|
|
open MailboxType
|
|
|
|
fun initMsgs (low, length, buffer) =
|
|
let
|
|
val str = LineGap.substring (low, length + 1, buffer)
|
|
val msg = YANK str
|
|
in
|
|
[DRAW msg]
|
|
end
|
|
end)
|