From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 14 Feb 1995 09:42:14 +0000 (+0000)
Subject: (x_set_cursor_type): Set cursor_width field.
X-Git-Tag: emacs-19.34~5116
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c32112069d0291f615d649cb4d0500bcfc170aab;p=emacs.git

(x_set_cursor_type): Set cursor_width field.
Handle args of form (bar . WIDTH).
---

diff --git a/src/xfns.c b/src/xfns.c
index 993194283f7..c62bdd4a090 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1305,19 +1305,21 @@ x_set_cursor_type (f, arg, oldval)
      Lisp_Object arg, oldval;
 {
   if (EQ (arg, Qbar))
-    FRAME_DESIRED_CURSOR (f) = bar_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
+    {
+      FRAME_DESIRED_CURSOR (f) = bar_cursor;
+      f->display.x->cursor_width = 2;
+    }
+  else if (CONSP (arg) && EQ (XCONS (arg)->car, Qbar)
+	   && INTEGERP (XCONS (arg)->cdr))
+    {
+      FRAME_DESIRED_CURSOR (f) = bar_cursor;
+      f->display.x->cursor_width = XINT (XCONS (arg)->cdr);
+    }
   else
-    error
-      ("the `cursor-type' frame parameter should be either `bar' or `box'");
-#endif
+    /* Treat anything unknown as "box cursor".
+       It was bad to signal an error; people have trouble fixing
+       .Xdefaults with Emacs, when it has something bad in it.  */
+    FRAME_DESIRED_CURSOR (f) = filled_box_cursor;
 
   /* Make sure the cursor gets redrawn.  This is overkill, but how
      often do people change cursor types?  */