'L_EngPrt.mac / Process file for printing / by Kabuneko 99/08/03

proc main
    if @hwnd = 0 then exit proc
    @@Redraw = 0
    @UndoBlock = 1
    @@FindRegExp = 1
    @@FindRegExp = -2
    @MoveFileTop
    @ReplaceString2 "\\", "¥", 1
    @MoveFileTop
    @ReplaceString2 "_\([^_]+\)_", "{\\ut}\1{/}", 1
    @MoveFileTop
    @ReplaceString2 "\([^-]\)--\([^-]\)", "\1—\2", 1
    @MoveFileTop
    @ReplaceString2 "\([A-Za-z]+\)'", "\1’", 1
    @MoveFileTop
    @ReplaceString2 """\([^""]+\)""", "“\1”", 1
    @MoveFileTop
    @ReplaceString2 "'\([^']+\)'", "‘\1’", 1
    @MoveFileTop
    @ReplaceString2 "'", "’", 1
    @MoveFileTop
    @ReplaceString2 "^   ", "     ", 1
    @UndoBlock = 0
    @@Redraw = 1
end proc