|
Lines 1240-1246
Link Here
|
| 1240 |
lappend ans "-global-$winstem" [eval set $winstem] |
1240 |
lappend ans "-global-$winstem" [eval set $winstem] |
| 1241 |
} |
1241 |
} |
| 1242 |
"Entry" { |
1242 |
"Entry" { |
| 1243 |
lappend ans "-entry-$winstem" [$win get] |
1243 |
# Do not put newlines in the reminder files |
|
|
1244 |
lappend ans "-entry-$winstem" [string map -nocase {"\n" " "} [$win get]] |
| 1244 |
} |
1245 |
} |
| 1245 |
} |
1246 |
} |
| 1246 |
} |
1247 |
} |
|
Lines 1519-1525
Link Here
|
| 1519 |
regsub -- {^-stdin-\([0-9]*\): } $err {} err |
1520 |
regsub -- {^-stdin-\([0-9]*\): } $err {} err |
| 1520 |
error "Error from Remind: $err" |
1521 |
error "Error from Remind: $err" |
| 1521 |
} |
1522 |
} |
| 1522 |
append rem " MSG $body" |
1523 |
# Do not include newline characters after MSG |
|
|
1524 |
append rem " MSG " [string map -nocase {"\n" " "} $body] |
| 1523 |
return $rem |
1525 |
return $rem |
| 1524 |
} |
1526 |
} |
| 1525 |
|
1527 |
|
