[Emacs-diffs] Changes to emacs/src/xfns.c

[Eli Zaretskii]

Index: emacs/src/xfns.c
diff -c emacs/src/xfns.c:1.544 emacs/src/xfns.c:1.545
*** emacs/src/xfns.c:1.544      Thu Mar 21 07:21:37 2002
--- emacs/src/xfns.c    Fri Apr 19 07:45:27 2002
***************
*** 185,191 ****
  
  Lisp_Object Qauto_raise;
  Lisp_Object Qauto_lower;
! Lisp_Object Qbar;
  Lisp_Object Qborder_color;
  Lisp_Object Qborder_width;
  Lisp_Object Qbox;
--- 185,191 ----
  
  Lisp_Object Qauto_raise;
  Lisp_Object Qauto_lower;
! Lisp_Object Qbar, Qhbar;
  Lisp_Object Qborder_color;
  Lisp_Object Qborder_width;
  Lisp_Object Qbox;
***************
*** 1863,1868 ****
--- 1863,1881 ----
        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,11836 ****
--- 11844,11851 ----
    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");