aboutsummaryrefslogtreecommitdiff
path: root/elisp.c
diff options
context:
space:
mode:
Diffstat (limited to 'elisp.c')
-rw-r--r--elisp.c6
1 files changed, 2 insertions, 4 deletions
diff --git a/elisp.c b/elisp.c
index 7cf0eef..30e8a52 100644
--- a/elisp.c
+++ b/elisp.c
@@ -98,13 +98,11 @@ 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) {
- blinking = false;
emacs_value Qfalse = env->make_integer(env, -1);
emacs_value Qblinking = blinking ? Qt : Qfalse;
env->funcall(env, Fblink_cursor_mode, 1, (emacs_value[]){Qblinking});