mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

(x_set_cursor_type): Set cursor_width field.

Browse source 
Handle args of form (bar . WIDTH).
This commit is contained in:
Richard M. Stallman 1995-02-14 09:42:14 +00:00
parent e36a27114e
commit c32112069d
1 changed files with 14 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/xfns.c
View file

@ -1305,19 +1305,21 @@ x_set_cursor_type (f, arg, oldval)
Lisp_Object arg, oldval;
{
if (EQ (arg, Qbar))
FRAME_DESIRED_CURSOR (f) = bar_cursor;
{
FRAME_DESIRED_CURSOR (f) = bar_cursor;
f->display.x->cursor_width = 2;
}
else if (CONSP (arg) && EQ (XCONS (arg)->car, Qbar)
&& INTEGERP (XCONS (arg)->cdr))
{
FRAME_DESIRED_CURSOR (f) = bar_cursor;
f->display.x->cursor_width = XINT (XCONS (arg)->cdr);
}
else
#if 0
if (EQ (arg, Qbox))
#endif
FRAME_DESIRED_CURSOR (f) = filled_box_cursor;
/* Error messages commented out because people have trouble fixing
.Xdefaults with Emacs, when it has something bad in it. */
#if 0
else
error
("the `cursor-type' frame parameter should be either `bar' or `box'");
#endif
/* Treat anything unknown as "box cursor".
It was bad to signal an error; people have trouble fixing
.Xdefaults with Emacs, when it has something bad in it. */
FRAME_DESIRED_CURSOR (f) = filled_box_cursor;
/* Make sure the cursor gets redrawn. This is overkill, but how
often do people change cursor types? */