summaryrefslogtreecommitdiff
path: root/systems/unix/tex-fpc/ch.ch/mkuntrap
blob: 926b9663c262056bf9f23ed2b603e6ddb0a96463 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# undo some changes made for the trap test
# deactivate trap blocks
ed mf.ch <<'END'
g/^@x trap/.,/^@z/s/^/	/\
?^	@x?,.p
w
q
END
# activate part blocks
test $? = 0 \
&& ed mf.ch <<'END'
g/^	@x part/.,/^	@z/s/^	//\
?^@x?,.p
w
q
END
test $? = 0 || (echo $0 failed ; exit 1)