Fix quoting of replacement text, avoiding "unmatched ]"
This commit is contained in:
parent
f5180dc144
commit
32ac3c8421
@ -103,13 +103,13 @@ proc ::js::_unescape {str} {
|
||||
proc ::js::escape {str} {
|
||||
return [subst -nobackslashes -novariables \
|
||||
[regsub -all -- {[^A-Za-z0-9@*_+-./]+} $str \
|
||||
{[::js::_escape "&"]}]]
|
||||
{[::js::_escape {&}]}]]
|
||||
}
|
||||
|
||||
proc ::js::unescape {str} {
|
||||
return [subst -nobackslashes -novariables \
|
||||
[regsub -all -- {%(u[[:xdigit:]]{2})?[[:xdigit:]]{2}} $str \
|
||||
{[::js::_unescape "&"]}]]
|
||||
{[::js::_unescape {&}]}]]
|
||||
}
|
||||
|
||||
alias jsescape ::js::escape
|
||||
|
Loading…
Reference in New Issue
Block a user