Quote record field completions if necessary

Author: ampleyfly

src/org/intellij/erlang/completion/ErlangCompletionContributor.java

@@ -246,7 +246,10 @@ protected void addCompletions(@NotNull CompletionParameters parameters, @NotNull
   }
 
   private static LookupElement createFieldLookupElement(@NotNull Project project, @NotNull String text, boolean withoutEq) {
-    return LookupElementBuilder.create(text)
+    String maybeQuotedText = ErlangPsiImplUtil.needQuotation(text)
+                             ? "'" + text + "'"
+                             : text;
+    return LookupElementBuilder.create(maybeQuotedText)
                                .withIcon(ErlangIcons.FIELD)
                                .withInsertHandler(withoutEq ? null : equalsInsertHandler(project));
   }

tests/org/intellij/erlang/completion/ErlangCompletionTest.java

@@ -91,6 +91,13 @@ public void testRecordFields6() {
         "bar(A, B)-> A#foo{two = }");
   }
 
+  public void testRecordFields7() {
+    doTestInclude(
+      "-record(foo, {id, 'WeirdCase', 'strange-symbol'}).\n" +
+      "bar(A, B)-> A#foo{<caret>}",
+      "id", "'WeirdCase'", "'strange-symbol'");
+  }
+
   public void testMacros() {
     doTestInclude(
       "-define(foo, 1).\n" +