Mercurial > emacs

changeset 47137:cecbc6fb52f0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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:01:27 +0000
parents 09135ba45a40
children 4a0541418bc5
files src/macfns.c
diffstat 1 files changed, 1 insertions(+), 39 deletions(-) [+]
line wrap: on
line diff
--- a/src/macfns.c	Fri Aug 30 12:01:01 2002 +0000
+++ b/src/macfns.c	Fri Aug 30 12:01:27 2002 +0000
@@ -2389,50 +2389,12 @@
   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 (NILP (arg))
-    type = NO_CURSOR;
-  else
-    /* 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.  */
-    type = FILLED_BOX_CURSOR;
-
-  return type;
-}
-
 void
 x_set_cursor_type (f, arg, oldval)
      FRAME_PTR f;
      Lisp_Object arg, oldval;
 {
-  int width;
-  
-  FRAME_DESIRED_CURSOR (f) = x_specified_cursor_type (arg, &width);
-  f->output_data.mac->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?  */