Commit a9653085 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(Qhbar): New variable.

(syms_of_xfns): intern and staticpro it.
(x_specified_cursor_type): Handle `hbar' cursor.
parent e7c9e445
......@@ -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");
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment