Mercurial > emacs

changeset 28050:79a67f9da183

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x_set_cursor_type): If ARG is nil, give frame no cursor.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 08 Mar 2000 14:48:16 +0000
parents 25ba68b7cbdb
children c60fdd764b01
files src/xfns.c
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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