Use ^A as the split character rather than \

This commit is contained in:
Dianne Skoll
2023-02-27 12:13:19 -05:00
parent 395bad96a7
commit 929866a770

View File

@@ -3635,9 +3635,9 @@ proc DoShadeSpecial { n r g b } {
#***********************************************************************
proc DoMoonSpecial { n stuff fntag day } {
set msg ""
# Yes, this is gross, but the odds of "\" appearing
# Yes, this is gross, but the odds of ctrl-A appearing
# in the text associated with a MOON are small.
set num [scan $stuff {%d %d %d %[^\]} phase junk1 junk2 msg]
set num [scan $stuff {%d %d %d %[^]} phase junk1 junk2 msg]
if {$num < 1} {
return
}