From a0deadc8d11db5d829e70309fc7b5660d83bf13f Mon Sep 17 00:00:00 2001 From: Mike Brumlow Date: Fri, 20 Mar 2020 00:23:54 -0700 Subject: Its late, I should not be doing this... Adding missing update. --- elisp.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/elisp.c b/elisp.c index be61b4a..61b7528 100644 --- a/elisp.c +++ b/elisp.c @@ -49,6 +49,16 @@ void put_text_property(emacs_env *env, emacs_value string, emacs_value property, (emacs_value[]){start, end, property, value, string}); } +void add_text_properties(emacs_env *env, emacs_value string, + emacs_value property) { + emacs_value start = env->make_integer(env, 0); + emacs_value end = length(env, string); + + env->funcall(env, Fadd_text_properties, 4, + (emacs_value[]){start, end, property, string}); +} + + void erase_buffer(emacs_env *env) { env->funcall(env, Ferase_buffer, 0, NULL); } void insert(emacs_env *env, emacs_value string) { -- cgit v1.0