Allow test string to begin with two back slashes.
Showing
1 changed file
with
1 additions
and
1 deletions
... | @@ -29,7 +29,7 @@ for {gets $chan line} {![eof $chan]} {gets $chan line} { | ... | @@ -29,7 +29,7 @@ for {gets $chan line} {![eof $chan]} {gets $chan line} { |
29 | "-message.*" { | 29 | "-message.*" { |
30 | regexp -- "-message (.*)" $line dummy message | 30 | regexp -- "-message (.*)" $line dummy message |
31 | } | 31 | } |
32 | "\\\\" { | 32 | "^\\\\\[^\\\\\]" { |
33 | mu_command $line | 33 | mu_command $line |
34 | } | 34 | } |
35 | "^[^ \t].*=>.*" { | 35 | "^[^ \t].*=>.*" { | ... | ... |
-
Please register or sign in to post a comment