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.

diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 2d96f4b4a5455df8a6063540b8db5fa6a24a5e95..b38e38487803d2e9f99ec5e3b62091aa0885f977 100644 (file)
--- 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 7a4fc9aa218ca3bd73439d9277dbadfa2e7bd67c..69d9f2c52c8f69ec3c0b4512290f52de9c787c41 100644 (file)
--- 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 1c17573907288eaa70628c35201cd6d9c2a8b7a6..e64dc250fd2ad8fba8901b07cf932452f839fca1 100644 (file)
--- 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