Intern put-text-property just once

2 files changed, 2 insertions, 2 deletions

diff --git a/vterm-module.c b/vterm-module.c
index 0d32cbd..7f99fba 100644
--- a/vterm-module.c
+++ b/vterm-module.c
@@ -143,7 +143,6 @@ static emacs_value list(emacs_env *env, emacs_value *elements, ptrdiff_t len) {
 
 static void put_text_property(emacs_env *env, emacs_value string,
                               emacs_value property, emacs_value value) {
-  emacs_value Fput_text_property = env->intern(env, "put-text-property");
   emacs_value start = env->make_integer(env, 0);
   emacs_value end = string_length(env, string);
 
@@ -499,7 +498,7 @@ int emacs_module_init(struct emacs_runtime *ert) {
   Ferase_buffer = env->intern(env, "erase-buffer");
   Finsert = env->intern(env, "insert");
   Fgoto_char = env->intern(env, "goto-char");
-
+  Fput_text_property = env->intern(env, "put-text-property");
 
   // Exported functions
   emacs_value fun;
diff --git a/vterm-module.h b/vterm-module.h
index fb3320b..e6b0757 100644
--- a/vterm-module.h
+++ b/vterm-module.h
@@ -34,6 +34,7 @@ static emacs_value Flist;
 static emacs_value Ferase_buffer;
 static emacs_value Finsert;
 static emacs_value Fgoto_char;
+static emacs_value Fput_text_property;
 
 static size_t codepoint_to_utf8(const uint32_t codepoint,
                                 unsigned char buffer[4]);