# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1019216727 0
# Node ID 63f15e84eed7dca7390172648f17e97dcd38a545
# Parent  67adf25271565b220e665cd7c8777fb71eb0af12
(Qhbar): New variable.
(syms_of_xfns): intern and staticpro it.
(x_specified_cursor_type): Handle `hbar' cursor.

diff -r 67adf2527156 -r 63f15e84eed7 src/xfns.c
--- a/src/xfns.c	Fri Apr 19 11:39:17 2002 +0000
+++ b/src/xfns.c	Fri Apr 19 11:45:27 2002 +0000
@@ -185,7 +185,7 @@
 
 Lisp_Object Qauto_raise;
 Lisp_Object Qauto_lower;
-Lisp_Object Qbar;
+Lisp_Object Qbar, Qhbar;
 Lisp_Object Qborder_color;
 Lisp_Object Qborder_width;
 Lisp_Object Qbox;
@@ -1863,6 +1863,19 @@
       type = BAR_CURSOR;
       *width = XINT (XCDR (arg));
     }
+  else if (EQ (arg, Qhbar))
+    {
+      type = HBAR_CURSOR;
+      *width = 2;
+    }
+  else if (CONSP (arg)
+	   && EQ (XCAR (arg), Qhbar)
+	   && INTEGERP (XCDR (arg))
+	   && XINT (XCDR (arg)) >= 0)
+    {
+      type = HBAR_CURSOR;
+      *width = XINT (XCDR (arg));
+    }
   else if (NILP (arg))
     type = NO_CURSOR;
   else
@@ -11831,6 +11844,8 @@
   staticpro (&Qauto_lower);
   Qbar = intern ("bar");
   staticpro (&Qbar);
+  Qhbar = intern ("hbar");
+  staticpro (&Qhbar);
   Qborder_color = intern ("border-color");
   staticpro (&Qborder_color);
   Qborder_width = intern ("border-width");