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

diff --git a/src/xfns.c b/src/xfns.c
index 7f88e227034ebd5cda052dcd20e4c79678c6106a..0282f651d0e4e5b4db3d8e8119ccc6ca1a820239 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1695,12 +1695,16 @@ x_set_cursor_type (f, arg, oldval)
       FRAME_DESIRED_CURSOR (f) = BAR_CURSOR;
       f->output_data.x->cursor_width = 2;
     }
-  else if (CONSP (arg) && EQ (XCAR (arg), Qbar)
-          && INTEGERP (XCDR (arg)))
+  else if (CONSP (arg)
+          && EQ (XCAR (arg), Qbar)
+          && INTEGERP (XCDR (arg))
+          && XINT (XCDR (arg)) >= 0)
     {
       FRAME_DESIRED_CURSOR (f) = BAR_CURSOR;
       f->output_data.x->cursor_width = XINT (XCDR (arg));
     }
+  else if (NILP (arg))
+    FRAME_DESIRED_CURSOR (f) = NO_CURSOR;
   else
     /* Treat anything unknown as "box cursor".
        It was bad to signal an error; people have trouble fixing