From: Po Lu <luangruo@yahoo.com>
Date: Mon, 19 Sep 2022 01:39:21 +0000 (+0800)
Subject: Get rid of intern calls to static strings in xterm.c
X-Git-Tag: emacs-29.0.90~1856^2~385
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=202c416e2e829cfdfde83bc82705be4b7ad6799e;p=emacs.git

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.
---

diff --git a/src/xterm.c b/src/xterm.c
index 245306c67c8..59cde718d09 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");