anchor.diff:  %% \X - familiar escape sequences
   sub_scan_escape([C | Cs], [Fun | Stack], Toks,
   		{Line, Col}, State, Errors, TabWidth,FileFormat) ->
  -    Val = escape_char(C),
  -    Fun([Val | Cs], Stack, Toks, {Line, Col}, State,
  +   %% Val = escape_char(C),
  +    Fun([C | Cs], Stack, Toks, {Line, Col}, State,
   	Errors, TabWidth,FileFormat);
   %%
   sub_scan_escape([], Stack, Toks, {Line, Col}, State,
  
positive.code: name_char(_) -> false.
  
  scan_char([$\\ | Cs], Stack, Toks, {Line, Col}, State, Errors, TabWidth,FileFormat) ->
      sub_scan_escape(Cs, [fun scan_char_escape/8 | Stack], Toks, {Line, Col}, State, Errors, TabWidth,FileFormat);
  scan_char([$\n | Cs], Stack, Toks, {Line, Col}, State,  Errors, TabWidth,FileFormat) ->
      scan(Cs, Stack, [{char, {Line, Col}, $\n} | Toks], {Line + 1, Col}, State, Errors, TabWidth,FileFormat);
  scan_char([], Stack, Toks, {Line, Col}, State, Errors, TabWidth,FileFormat) ->
  
negative.code: scan_string_escape([nl | Cs], Stack, Toks, {Line, _Col}, State, Errors, TabWidth,FileFormat) ->
      scan_string(Cs, [$\n | Stack], Toks, {Line + 1, 1}, State, Errors, TabWidth,FileFormat);
  scan_string_escape([C | Cs], Stack, Toks, {Line, Col}, State, Errors, TabWidth,FileFormat) ->
      scan_string(Cs, [C| Stack], Toks, {Line, Col+1}, State, Errors, TabWidth,FileFormat);
  scan_string_escape(Eof, Stack, _Toks, {Line, Col},State, Errors, TabWidth,FileFormat) ->
      [StartPos, $" | S] = reverse(Stack),
      SS = string:substr(S, 1, 16),
  