+ #$ah->interp->set_escape( 'h' => sub { ${$_[0]}; } );
+ $ah->interp->set_escape( 'h' => sub {} );
+
+ $ah->interp->set_escape( 'js_string' => sub {
+ #${$_[0]} =~ s/(['\\\n])/'\\'.($1 eq "\n" ? 'n' : $1)/ge;
+ ${$_[0]} =~ s/(['\\])/\\$1/g;
+ ${$_[0]} =~ s/\n/\\n/g;
+ ${$_[0]} = "'". ${$_[0]}. "'";
+ } );