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.");