master 202c416e2e 1/2: Get rid of intern calls to static strings in xterm.c

[Po Lu]

branch: master
commit 202c416e2e829cfdfde83bc82705be4b7ad6799e
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    Get rid of intern calls to static strings in xterm.c
    
    * src/xterm.c (x_cr_export_frames): Use Qconcat instead of
    interning concat.
    (syms_of_xterm): New defsym Qconcat.
---
 src/xterm.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/xterm.c b/src/xterm.c
index 245306c67c..59cde718d0 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -6131,7 +6131,7 @@ x_cr_export_frames (Lisp_Object frames, 
cairo_surface_type_t surface_type)
 
   unbind_to (count, Qnil);
 
-  return CALLN (Fapply, intern ("concat"), Fnreverse (acc));
+  return CALLN (Fapply, Qconcat, Fnreverse (acc));
 }
 
 #endif /* USE_CAIRO */
@@ -29834,6 +29834,9 @@ syms_of_xterm (void)
   x_dnd_unsupported_drop_data = Qnil;
   staticpro (&x_dnd_unsupported_drop_data);
 
+  /* Used by x_cr_export_frames.  */
+  DEFSYM (Qconcat, "concat");
+
   DEFSYM (Qvendor_specific_keysyms, "vendor-specific-keysyms");
   DEFSYM (Qlatin_1, "latin-1");
   DEFSYM (Qnow, "now");