Skip to content

GitLab

Commit 08ac8554 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(x_set_cursor_type): If ARG is nil, give frame no cursor.

parent 8256e31b
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 2 deletions
src/xfns.c
View file @ 08ac8554
...@@ -1695,12 +1695,16 @@ x_set_cursor_type (f, arg, oldval) ...@@ -1695,12 +1695,16 @@ x_set_cursor_type (f, arg, oldval)
FRAME_DESIRED_CURSOR (f) = BAR_CURSOR; FRAME_DESIRED_CURSOR (f) = BAR_CURSOR;
f->output_data.x->cursor_width = 2; f->output_data.x->cursor_width = 2;
} }
else if (CONSP (arg) && EQ (XCAR (arg), Qbar) else if (CONSP (arg)
&& INTEGERP (XCDR (arg))) && EQ (XCAR (arg), Qbar)
&& INTEGERP (XCDR (arg))
&& XINT (XCDR (arg)) >= 0)
{ {
FRAME_DESIRED_CURSOR (f) = BAR_CURSOR; FRAME_DESIRED_CURSOR (f) = BAR_CURSOR;
f->output_data.x->cursor_width = XINT (XCDR (arg)); f->output_data.x->cursor_width = XINT (XCDR (arg));
} }
else if (NILP (arg))
FRAME_DESIRED_CURSOR (f) = NO_CURSOR;
else else
/* Treat anything unknown as "box cursor". /* Treat anything unknown as "box cursor".
It was bad to signal an error; people have trouble fixing It was bad to signal an error; people have trouble fixing
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment