From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 19 Apr 2002 11:45:27 +0000 (+0000)
Subject: (Qhbar): New variable.
X-Git-Tag: ttn-vms-21-2-B4~15530
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a9653085d80e5e111ff77faeb1fb05f4c0083047;p=emacs.git

(Qhbar): New variable.
(syms_of_xfns): intern and staticpro it.
(x_specified_cursor_type): Handle `hbar' cursor.
---

diff --git a/src/xfns.c b/src/xfns.c
index 1f22f007ba5..e435d5500d9 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -185,7 +185,7 @@ Lisp_Object Vx_pixel_size_width_font_regexp;
 
 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 @@ x_specified_cursor_type (arg, width)
       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 @@ syms_of_xfns ()
   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");