changeset 47140:9ef4bf7492cb

(Vblink_cursor_alist): Removed. (Qbar, Qhbar, Qbox, Qhollow): Removed. (syms_of_w32fns): Don't intern, staticpro, or define them. (x_specified_cursor_type): Removed. (x_set_cursor_type): Use set_frame_cursor_types.
author Kim F. Storm <storm@cua.dk>
date Fri, 30 Aug 2002 12:03:01 +0000
parents 9cedf65c8ff2
children ec27e2ead3e8
files src/w32fns.c
diffstat 1 files changed, 1 insertions(+), 94 deletions(-) [+]
line wrap: on
line diff
--- a/src/w32fns.c	Fri Aug 30 12:02:32 2002 +0000
+++ b/src/w32fns.c	Fri Aug 30 12:03:01 2002 +0000
@@ -202,12 +202,8 @@
 #define VIETNAMESE_CHARSET 163
 #endif
 
-/* How to blink the cursor off.  */
-Lisp_Object Vblink_cursor_alist;
-
 Lisp_Object Qauto_raise;
 Lisp_Object Qauto_lower;
-Lisp_Object Qbar, Qhbar, Qbox, Qhollow;
 Lisp_Object Qborder_color;
 Lisp_Object Qborder_width;
 Lisp_Object Qbox;
@@ -2350,90 +2346,17 @@
   update_face_from_frame_parameter (f, Qborder_color, arg);
 }
 
-/* Value is the internal representation of the specified cursor type
-   ARG.  If type is BAR_CURSOR, return in *WIDTH the specified width
-   of the bar cursor.  */
-
-enum text_cursor_kinds
-x_specified_cursor_type (arg, width)
-     Lisp_Object arg;
-     int *width;
-{
-  enum text_cursor_kinds type;
-  
-  if (EQ (arg, Qbar))
-    {
-      type = BAR_CURSOR;
-      *width = 2;
-    }
-  else if (CONSP (arg)
-	   && EQ (XCAR (arg), Qbar)
-	   && INTEGERP (XCDR (arg))
-	   && XINT (XCDR (arg)) >= 0)
-    {
-      type = BAR_CURSOR;
-      *width = XINT (XCDR (arg));
-    }
-  else if (EQ (arg, Qhbar))
-    {
-      type = HBAR_CURSOR;
-      *width = 2;
-    }
-  else if (CONSP (arg)
-	   && EQ (XCAR (arg), Qhbar)
-	   && INTEGERP (XCDR (arg))
-	   && XINT (XCDR (arg)) >= 0)
-    {
-      type = HBAR_CURSOR;
-      *width = XINT (XCDR (arg));
-    }
-  else if (NILP (arg))
-    type = NO_CURSOR;
-  else if (EQ (arg, Qbox))
-    type = FILLED_BOX_CURSOR;
-  else
-    /* Treat anything unknown as "hollow box cursor".
-       It was bad to signal an error; people have trouble fixing
-       .Xdefaults with Emacs, when it has something bad in it.  */
-    type = HOLLOW_BOX_CURSOR;
-
-  return type;
-}
 
 void
 x_set_cursor_type (f, arg, oldval)
      FRAME_PTR f;
      Lisp_Object arg, oldval;
 {
-  int width;
-  Lisp_Object tem;
-
-  FRAME_DESIRED_CURSOR (f) = x_specified_cursor_type (arg, &width);
-  f->output_data.w32->cursor_width = width;
+  set_frame_cursor_types (f, arg);
 
   /* Make sure the cursor gets redrawn.  This is overkill, but how
      often do people change cursor types?  */
   update_mode_lines++;
-
-  /* By default, set up the blink-off state depending on the on-state.  */
-
-  if (FRAME_DESIRED_CURSOR (f) == FILLED_BOX_CURSOR)
-    FRAME_BLINK_OFF_CURSOR (f) = HOLLOW_BOX_CURSOR;
-  else if (FRAME_DESIRED_CURSOR (f) == BAR_CURSOR && FRAME_CURSOR_WIDTH (f) > 1)
-    {
-      FRAME_BLINK_OFF_CURSOR (f) = BAR_CURSOR;
-      FRAME_BLINK_OFF_CURSOR_WIDTH (f) = 1;
-    }
-  else
-    FRAME_BLINK_OFF_CURSOR (f) = NO_CURSOR;
-
-  tem = Fassoc (arg, Vblink_cursor_alist);
-  if (!NILP (tem))
-    {
-      FRAME_BLINK_OFF_CURSOR (f)
-	= x_specified_cursor_type (XCDR (tem), &width);
-      f->output_data.w32->blink_off_cursor_width = width;
-    }
 }
 
 void
@@ -14892,14 +14815,6 @@
   staticpro (&Qauto_raise);
   Qauto_lower = intern ("auto-lower");
   staticpro (&Qauto_lower);
-  Qbar = intern ("bar");
-  staticpro (&Qbar);
-  Qhbar = intern ("hbar");
-  staticpro (&Qhbar);
-  Qbox = intern ("box");
-  staticpro (&Qbox);
-  Qhollow = intern ("hollow");
-  staticpro (&Qhollow);
   Qborder_color = intern ("border-color");
   staticpro (&Qborder_color);
   Qborder_width = intern ("border-width");
@@ -15140,14 +15055,6 @@
 
   init_x_parm_symbols ();
 
-  DEFVAR_LISP ("blink-cursor-alist", &Vblink_cursor_alist,
-    doc: /* Alist specifying how to blink the cursor off.
-Each element has the form (ON-STATE . OFF-STATE).  Whenever the
-`cursor-type' frame-parameter or variable equals ON-STATE,
-comparing using `equal', Emacs uses OFF-STATE to specify
-how to blink it off.  */);
-  Vblink_cursor_alist = Qnil;
-
   DEFVAR_LISP ("x-bitmap-file-path", &Vx_bitmap_file_path,
 	       doc: /* List of directories to search for bitmap files for w32.  */);
   Vx_bitmap_file_path = decode_env_path ((char *) 0, "PATH");