Mercurial > emacs
comparison src/xfns.c @ 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 | 880fcef68f73 |
children | 2b4e4a76468b |
comparison
equal
deleted
inserted
replaced
7682:ce09b4fd6cc8 | 7683:be3423efbdce |
---|---|
101 extern char *x_id_name; | 101 extern char *x_id_name; |
102 | 102 |
103 /* The background and shape of the mouse pointer, and shape when not | 103 /* The background and shape of the mouse pointer, and shape when not |
104 over text or in the modeline. */ | 104 over text or in the modeline. */ |
105 Lisp_Object Vx_pointer_shape, Vx_nontext_pointer_shape, Vx_mode_pointer_shape; | 105 Lisp_Object Vx_pointer_shape, Vx_nontext_pointer_shape, Vx_mode_pointer_shape; |
106 Lisp_Object Vx_cross_pointer_shape; | 106 /* The shape when over mouse-sensitive text. */ |
107 Lisp_Object Vx_sensitive_text_pointer_shape; | |
107 | 108 |
108 /* Color of chars displayed in cursor box. */ | 109 /* Color of chars displayed in cursor box. */ |
109 Lisp_Object Vx_cursor_fore_pixel; | 110 Lisp_Object Vx_cursor_fore_pixel; |
110 | 111 |
111 /* The screen being used. */ | 112 /* The screen being used. */ |
801 } | 802 } |
802 else | 803 else |
803 mode_cursor = XCreateFontCursor (x_current_display, XC_xterm); | 804 mode_cursor = XCreateFontCursor (x_current_display, XC_xterm); |
804 x_check_errors ("bad modeline pointer cursor: %s"); | 805 x_check_errors ("bad modeline pointer cursor: %s"); |
805 | 806 |
806 if (!EQ (Qnil, Vx_cross_pointer_shape)) | 807 if (!EQ (Qnil, Vx_sensitive_text_pointer_shape)) |
807 { | 808 { |
808 CHECK_NUMBER (Vx_cross_pointer_shape, 0); | 809 CHECK_NUMBER (Vx_sensitive_text_pointer_shape, 0); |
809 cross_cursor = XCreateFontCursor (x_current_display, | 810 cross_cursor |
810 XINT (Vx_cross_pointer_shape)); | 811 = XCreateFontCursor (x_current_display, |
812 XINT (Vx_sensitive_text_pointer_shape)); | |
811 } | 813 } |
812 else | 814 else |
813 cross_cursor = XCreateFontCursor (x_current_display, XC_crosshair); | 815 cross_cursor = XCreateFontCursor (x_current_display, XC_crosshair); |
814 | 816 |
815 /* Check and report errors with the above calls. */ | 817 /* Check and report errors with the above calls. */ |
4332 Emacs initially sets `x-resource-name' to the name under which Emacs\n\ | 4334 Emacs initially sets `x-resource-name' to the name under which Emacs\n\ |
4333 was invoked, or to the value specified with the `-name' or `-rn'\n\ | 4335 was invoked, or to the value specified with the `-name' or `-rn'\n\ |
4334 switches, if present."); | 4336 switches, if present."); |
4335 Vx_resource_name = Qnil; | 4337 Vx_resource_name = Qnil; |
4336 | 4338 |
4337 #if 0 | 4339 #if 0 /* This doesn't really do anything. */ |
4338 DEFVAR_INT ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape, | 4340 DEFVAR_INT ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape, |
4339 "The shape of the pointer when not over text."); | 4341 "The shape of the pointer when not over text.\n\ |
4342 This variable takes effect when you create a new frame\n\ | |
4343 or when you set the mouse color."); | |
4340 #endif | 4344 #endif |
4341 Vx_nontext_pointer_shape = Qnil; | 4345 Vx_nontext_pointer_shape = Qnil; |
4342 | 4346 |
4343 #if 0 | 4347 #if 0 /* This doesn't really do anything. */ |
4344 DEFVAR_INT ("x-mode-pointer-shape", &Vx_mode_pointer_shape, | 4348 DEFVAR_INT ("x-mode-pointer-shape", &Vx_mode_pointer_shape, |
4345 "The shape of the pointer when over the mode line."); | 4349 "The shape of the pointer when over the mode line.\n\ |
4350 This variable takes effect when you create a new frame\n\ | |
4351 or when you set the mouse color."); | |
4346 #endif | 4352 #endif |
4347 Vx_mode_pointer_shape = Qnil; | 4353 Vx_mode_pointer_shape = Qnil; |
4348 | 4354 |
4349 Vx_cross_pointer_shape = Qnil; | 4355 DEFVAR_INT ("x-sensitive-text-pointer-shape", |
4356 &Vx_sensitive_text_pointer_shape, | |
4357 "The shape of the pointer when over mouse-sensitive text.\n\ | |
4358 This variable takes effect when you create a new frame\n\ | |
4359 or when you set the mouse color."); | |
4360 Vx_sensitive_text_pointer_shape = Qnil; | |
4350 | 4361 |
4351 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel, | 4362 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel, |
4352 "A string indicating the foreground color of the cursor box."); | 4363 "A string indicating the foreground color of the cursor box."); |
4353 Vx_cursor_fore_pixel = Qnil; | 4364 Vx_cursor_fore_pixel = Qnil; |
4354 | 4365 |