support set cursor type

1 files changed, 2 insertions, 3 deletions

diff --git a/elisp.c b/elisp.c
index edfe22b..30e8a52 100644
--- a/elisp.c
+++ b/elisp.c
@@ -98,9 +98,8 @@ emacs_value selected_window(emacs_env *env) {
   return env->funcall(env, Fselected_window, 0, (emacs_value[]){});
 }
 
-void toggle_cursor(emacs_env *env, bool visible) {
-  emacs_value Qvisible = visible ? Qt : Qnil;
-  env->funcall(env, Fset, 2, (emacs_value[]){Qcursor_type, Qvisible});
+void set_cursor_type(emacs_env *env, emacs_value QCursorType) {
+  env->funcall(env, Fset, 2, (emacs_value[]){Qcursor_type, QCursorType});
 }
 
 void toggle_cursor_blinking(emacs_env *env, bool blinking) {