From 3063624cdf386091c6353edfdbe410ebaefe2607 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 7 Oct 1990 13:34:49 +0000
Subject: [PATCH] Change `xterm-erase-cursor' and `xterm-draw-cursor'
 primitives to be direct calls to do exactly that.  Add new primitive
 `xterm-enable-cursor' which enables or disables the drawing of the cursor.

---
 v7/src/microcode/version.h |  4 ++--
 v7/src/microcode/x11term.c | 17 ++++++++++-------
 v8/src/microcode/version.h |  4 ++--
 3 files changed, 14 insertions(+), 11 deletions(-)

diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 2d96f4b4a..b38e38487 100644
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.47 1990/10/05 19:00:09 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.48 1990/10/07 13:34:49 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION		11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	47
+#define SUBVERSION	48
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
diff --git a/v7/src/microcode/x11term.c b/v7/src/microcode/x11term.c
index 7a4fc9aa2..69d9f2c52 100644
--- a/v7/src/microcode/x11term.c
+++ b/v7/src/microcode/x11term.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11term.c,v 1.10 1990/10/02 22:52:40 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11term.c,v 1.11 1990/10/07 13:34:08 cph Exp $
 
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
@@ -519,21 +519,24 @@ DEFINE_PRIMITIVE ("XTERM-SET-SIZE", Prim_xterm_set_size, 3, 3, 0)
   PRIMITIVE_RETURN (UNSPECIFIC);
 }
 
+DEFINE_PRIMITIVE ("XTERM-ENABLE-CURSOR", Prim_xterm_enable_cursor, 2, 2, 0)
+{
+  PRIMITIVE_HEADER (2);
+  (XW_CURSOR_ENABLED_P (x_window_arg (1))) = (BOOLEAN_ARG (2));
+  PRIMITIVE_RETURN (UNSPECIFIC);
+}
+
 DEFINE_PRIMITIVE ("XTERM-ERASE-CURSOR", Prim_xterm_erase_cursor, 1, 1, 0)
 {
   PRIMITIVE_HEADER (1);
-  (XW_CURSOR_ENABLED_P (x_window_arg (1))) = 0;
+  xterm_erase_cursor (x_window_arg (1));
   PRIMITIVE_RETURN (UNSPECIFIC);
 }
 
 DEFINE_PRIMITIVE ("XTERM-DRAW-CURSOR", Prim_xterm_draw_cursor, 1, 1, 0)
 {
   PRIMITIVE_HEADER (1);
-  {
-    struct xwindow * xw = (x_window_arg (1));
-    (XW_CURSOR_ENABLED_P (xw)) = 1;
-    xterm_draw_cursor (xw);
-  }
+  xterm_draw_cursor (x_window_arg (1));
   PRIMITIVE_RETURN (UNSPECIFIC);
 }
 
diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index 1c1757390..e64dc250f 100644
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.47 1990/10/05 19:00:09 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.48 1990/10/07 13:34:49 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION		11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	47
+#define SUBVERSION	48
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
-- 
2.25.1