# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 952526896 0
# Node ID 79a67f9da183fc76c8bdd8c0a350f2931dc951ee
# Parent  25ba68b7cbdb9fbbc032e6fee64d32e5c6489996
(x_set_cursor_type): If ARG is nil, give frame no cursor.

diff -r 25ba68b7cbdb -r 79a67f9da183 src/xfns.c
--- a/src/xfns.c	Wed Mar 08 13:56:00 2000 +0000
+++ b/src/xfns.c	Wed Mar 08 14:48:16 2000 +0000
@@ -1695,12 +1695,16 @@
       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