undo/redo-edit ( edit document string-quot to-quot -- )

Vocabulary

documents.private

Inputs

edit	an object
document	an object
string-quot	an object
to-quot	an object

Outputs

None

Definition

USING: accessors documents kernel ;

IN: documents.private

: undo/redo-edit ( edit document string-quot to-quot -- )
    [ [ [ from>> ] ] curry ] dip [ tri ] curry compose
    [ dip set-doc-range ] curry with-undo ; inline