bind window_body_height

3 files changed, 8 insertions, 0 deletions

diff --git a/elisp.c b/elisp.c
index 1a6021a..be61b4a 100644
--- a/elisp.c
+++ b/elisp.c
@@ -86,6 +86,9 @@ emacs_value point(emacs_env *env) { return env->funcall(env, Fpoint, 0, NULL); }
 void set_window_point(emacs_env *env, emacs_value win, emacs_value point) {
   env->funcall(env, Fset_window_point, 2, (emacs_value[]){win, point});
 }
+emacs_value window_body_height(emacs_env *env, emacs_value win) {
+  return env->funcall(env, Fwindow_body_height, 1, (emacs_value[]){win});
+}
 
 bool eq(emacs_env *env, emacs_value e1, emacs_value e2) {
   emacs_value Qeq = env->funcall(env, Feq, 2, (emacs_value[]){e1, e2});
diff --git a/elisp.h b/elisp.h
index efee3d3..2f8b2b2 100644
--- a/elisp.h
+++ b/elisp.h
@@ -37,6 +37,7 @@ emacs_value Fgoto_line;
 emacs_value Fdelete_lines;
 emacs_value Frecenter;
 emacs_value Fset_window_point;
+emacs_value Fwindow_body_height;
 emacs_value Fpoint;
 
 emacs_value Fput_text_property;
@@ -70,6 +71,7 @@ void set_cursor_type(emacs_env *env, emacs_value cursor_type);
 void delete_lines(emacs_env *env, int linenum, int count, bool del_whole_line);
 void recenter(emacs_env *env, emacs_value pos);
 void set_window_point(emacs_env *env, emacs_value win, emacs_value point);
+emacs_value window_body_height(emacs_env *env, emacs_value win);
 emacs_value point(emacs_env *env);
 bool eq(emacs_env *env, emacs_value e1, emacs_value e2);
 void forward_char(emacs_env *env, emacs_value n);
diff --git a/vterm-module.c b/vterm-module.c
index e0f36a5..623e255 100644
--- a/vterm-module.c
+++ b/vterm-module.c
@@ -1129,6 +1129,9 @@ int emacs_module_init(struct emacs_runtime *ert) {
   Frecenter = env->make_global_ref(env, env->intern(env, "recenter"));
   Fset_window_point =
       env->make_global_ref(env, env->intern(env, "set-window-point"));
+  Fwindow_body_height =
+      env->make_global_ref(env, env->intern(env, "window-body-height"));
+
   Fpoint = env->make_global_ref(env, env->intern(env, "point"));
   Fforward_char = env->make_global_ref(env, env->intern(env, "forward-char"));
   Fget_buffer_window_list =