# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738448412 0
# Node ID efdaaa695ad49f08d7b513b4c3bff37b1c1c9d80
# Parent  2c1553d7aad1a94dcc305b859958c3bae761f9c4
(x_set_cursor_type): If arg not recognized, use box cursor.

diff -r 2c1553d7aad1 -r efdaaa695ad4 src/xfns.c
--- a/src/xfns.c	Wed May 26 20:28:11 1993 +0000
+++ b/src/xfns.c	Wed May 26 20:33:32 1993 +0000
@@ -758,11 +758,18 @@
 {
   if (EQ (arg, Qbar))
     FRAME_DESIRED_CURSOR (f) = bar_cursor;
-  else if (EQ (arg, Qbox))
-    FRAME_DESIRED_CURSOR (f) = filled_box_cursor;
+  else
+#if 0
+    if (EQ (arg, Qbox))
+#endif
+      FRAME_DESIRED_CURSOR (f) = filled_box_cursor;
+  /* Error messages commented out because people have trouble fixing
+     .Xdefaults with Emacs, when it has something bad in it.  */
+#if 0
   else
     error
       ("the `cursor-type' frame parameter should be either `bar' or `box'");
+#endif
 
   /* Make sure the cursor gets redrawn.  This is overkill, but how
      often do people change cursor types?  */