From 202c416e2e829cfdfde83bc82705be4b7ad6799e Mon Sep 17 00:00:00 2001 From: Po Lu Date: Mon, 19 Sep 2022 09:39:21 +0800 Subject: [PATCH] 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 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"); -- 2.39.2