Escape C1 control characters with Unicode escapes

lib/elixir/lib/code/identifier.ex

@@ -150,11 +150,16 @@ defmodule Code.Identifier do
     <<acc::binary, char::utf8>>
   end
 
-  defp escape_char(char, acc) when char < 0x100 do
+  defp escape_char(char, acc) when char < 0x80 do
     <<a::4, b::4>> = <<char::8>>
     <<acc::binary, ?\\, ?x, to_hex(a), to_hex(b)>>
   end
 
+  defp escape_char(char, acc) when char < 0x100 do
+    <<a::4, b::4>> = <<char::8>>
+    <<acc::binary, ?\\, ?u, ?0, ?0, to_hex(a), to_hex(b)>>
+  end
+
   defp escape_char(char, acc) when char < 0x10000 do
     <<a::4, b::4, c::4, d::4>> = <<char::16>>
     <<acc::binary, ?\\, ?x, ?{, to_hex(a), to_hex(b), to_hex(c), to_hex(d), ?}>>

lib/elixir/test/elixir/macro_test.exs

@@ -1081,6 +1081,14 @@ defmodule MacroTest do
       end
     end
 
+    test "escapes C1 control characters without changing their encoding" do
+      for codepoint <- 0x80..0x9F do
+        string = <<codepoint::utf8>>
+        source = Macro.to_string(string)
+        assert {^string, []} = Code.eval_string(source)
+      end
+    end
+
     test "converts invalid AST with inspect" do
       assert Macro.to_string(1..3) == "1..3"
     end