Mercurial > emacs

comparison src/xfns.c @ 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 85388a495f68
children e21e4c449a60
comparison
equal deleted inserted replaced
44688:67adf2527156 44689:63f15e84eed7
183 183
184 Lisp_Object Vx_pixel_size_width_font_regexp; 184 Lisp_Object Vx_pixel_size_width_font_regexp;
185 185
186 Lisp_Object Qauto_raise; 186 Lisp_Object Qauto_raise;
187 Lisp_Object Qauto_lower; 187 Lisp_Object Qauto_lower;
188 Lisp_Object Qbar; 188 Lisp_Object Qbar, Qhbar;
189 Lisp_Object Qborder_color; 189 Lisp_Object Qborder_color;
190 Lisp_Object Qborder_width; 190 Lisp_Object Qborder_width;
191 Lisp_Object Qbox; 191 Lisp_Object Qbox;
192 Lisp_Object Qcursor_color; 192 Lisp_Object Qcursor_color;
193 Lisp_Object Qcursor_type; 193 Lisp_Object Qcursor_type;
1859 && EQ (XCAR (arg), Qbar) 1859 && EQ (XCAR (arg), Qbar)
1860 && INTEGERP (XCDR (arg)) 1860 && INTEGERP (XCDR (arg))
1861 && XINT (XCDR (arg)) >= 0) 1861 && XINT (XCDR (arg)) >= 0)
1862 { 1862 {
1863 type = BAR_CURSOR; 1863 type = BAR_CURSOR;
1864 *width = XINT (XCDR (arg));
1865 }
1866 else if (EQ (arg, Qhbar))
1867 {
1868 type = HBAR_CURSOR;
1869 *width = 2;
1870 }
1871 else if (CONSP (arg)
1872 && EQ (XCAR (arg), Qhbar)
1873 && INTEGERP (XCDR (arg))
1874 && XINT (XCDR (arg)) >= 0)
1875 {
1876 type = HBAR_CURSOR;
1864 *width = XINT (XCDR (arg)); 1877 *width = XINT (XCDR (arg));
1865 } 1878 }
1866 else if (NILP (arg)) 1879 else if (NILP (arg))
1867 type = NO_CURSOR; 1880 type = NO_CURSOR;
1868 else 1881 else
11829 staticpro (&Qauto_raise); 11842 staticpro (&Qauto_raise);
11830 Qauto_lower = intern ("auto-lower"); 11843 Qauto_lower = intern ("auto-lower");
11831 staticpro (&Qauto_lower); 11844 staticpro (&Qauto_lower);
11832 Qbar = intern ("bar"); 11845 Qbar = intern ("bar");
11833 staticpro (&Qbar); 11846 staticpro (&Qbar);
11847 Qhbar = intern ("hbar");
11848 staticpro (&Qhbar);
11834 Qborder_color = intern ("border-color"); 11849 Qborder_color = intern ("border-color");
11835 staticpro (&Qborder_color); 11850 staticpro (&Qborder_color);
11836 Qborder_width = intern ("border-width"); 11851 Qborder_width = intern ("border-width");
11837 staticpro (&Qborder_width); 11852 staticpro (&Qborder_width);
11838 Qbox = intern ("box"); 11853 Qbox = intern ("box");