Mercurial > emacs
changeset 7683:be3423efbdce
(Vx_sensitive_text_pointer_shape):
Renamed from Vx_cross_pointer_shape.
(syms_of_xfns): Provide Lisp var x-sensitive-text-pointer-shape.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 25 May 1994 22:02:57 +0000 |
| parents | ce09b4fd6cc8 |
| children | ec7caebc4a1d |
| files | src/xfns.c |
| diffstat | 1 files changed, 21 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xfns.c Wed May 25 20:43:21 1994 +0000 +++ b/src/xfns.c Wed May 25 22:02:57 1994 +0000 @@ -103,7 +103,8 @@ /* The background and shape of the mouse pointer, and shape when not over text or in the modeline. */ Lisp_Object Vx_pointer_shape, Vx_nontext_pointer_shape, Vx_mode_pointer_shape; -Lisp_Object Vx_cross_pointer_shape; +/* The shape when over mouse-sensitive text. */ +Lisp_Object Vx_sensitive_text_pointer_shape; /* Color of chars displayed in cursor box. */ Lisp_Object Vx_cursor_fore_pixel; @@ -803,11 +804,12 @@ mode_cursor = XCreateFontCursor (x_current_display, XC_xterm); x_check_errors ("bad modeline pointer cursor: %s"); - if (!EQ (Qnil, Vx_cross_pointer_shape)) + if (!EQ (Qnil, Vx_sensitive_text_pointer_shape)) { - CHECK_NUMBER (Vx_cross_pointer_shape, 0); - cross_cursor = XCreateFontCursor (x_current_display, - XINT (Vx_cross_pointer_shape)); + CHECK_NUMBER (Vx_sensitive_text_pointer_shape, 0); + cross_cursor + = XCreateFontCursor (x_current_display, + XINT (Vx_sensitive_text_pointer_shape)); } else cross_cursor = XCreateFontCursor (x_current_display, XC_crosshair); @@ -4334,19 +4336,28 @@ switches, if present."); Vx_resource_name = Qnil; -#if 0 +#if 0 /* This doesn't really do anything. */ DEFVAR_INT ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape, - "The shape of the pointer when not over text."); + "The shape of the pointer when not over text.\n\ +This variable takes effect when you create a new frame\n\ +or when you set the mouse color."); #endif Vx_nontext_pointer_shape = Qnil; -#if 0 +#if 0 /* This doesn't really do anything. */ DEFVAR_INT ("x-mode-pointer-shape", &Vx_mode_pointer_shape, - "The shape of the pointer when over the mode line."); + "The shape of the pointer when over the mode line.\n\ +This variable takes effect when you create a new frame\n\ +or when you set the mouse color."); #endif Vx_mode_pointer_shape = Qnil; - Vx_cross_pointer_shape = Qnil; + DEFVAR_INT ("x-sensitive-text-pointer-shape", + &Vx_sensitive_text_pointer_shape, + "The shape of the pointer when over mouse-sensitive text.\n\ +This variable takes effect when you create a new frame\n\ +or when you set the mouse color."); + Vx_sensitive_text_pointer_shape = Qnil; DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel, "A string indicating the foreground color of the cursor box.");