Mercurial > emacs

changeset 44689:63f15e84eed7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Qhbar): New variable. (syms_of_xfns): intern and staticpro it. (x_specified_cursor_type): Handle `hbar' cursor.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 19 Apr 2002 11:45:27 +0000
parents 67adf2527156
children 8826cd76618a
files src/xfns.c
diffstat 1 files changed, 16 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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");