From 0d5331ac3940af82538c2bf53204d16bf55c6a17 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 18 May 1991 03:25:34 +0000
Subject: [PATCH] Eliminate last vestiges of "*" convention in variable
 documentation.

---
 v7/src/edwin/bufwin.scm |  4 ++--
 v7/src/edwin/editor.scm |  4 ++--
 v7/src/edwin/modwin.scm |  7 ++++---
 v7/src/edwin/wincom.scm | 28 +++++++++++++++++-----------
 4 files changed, 25 insertions(+), 18 deletions(-)

diff --git a/v7/src/edwin/bufwin.scm b/v7/src/edwin/bufwin.scm
index feb8d077e..64a7a3168 100644
--- a/v7/src/edwin/bufwin.scm
+++ b/v7/src/edwin/bufwin.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/bufwin.scm,v 1.294 1991/04/03 04:36:24 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/bufwin.scm,v 1.295 1991/05/18 03:25:34 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -1036,7 +1036,7 @@
 				       (fix:- y scroll-step)))))))))))))))
 
 (define-variable scroll-step
-  "*The number of lines to try scrolling a window by when point moves out.
+  "The number of lines to try scrolling a window by when point moves out.
 If that fails to bring point back on screen, point is centered instead.
 If this is zero, point is always centered after it moves off screen."
   0
diff --git a/v7/src/edwin/editor.scm b/v7/src/edwin/editor.scm
index 2469c7230..0f33de28f 100644
--- a/v7/src/edwin/editor.scm
+++ b/v7/src/edwin/editor.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/editor.scm,v 1.204 1991/05/17 20:04:12 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/editor.scm,v 1.205 1991/05/18 03:25:12 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -184,7 +184,7 @@
 (define init-file-loaded? false)
 
 (define-variable inhibit-startup-message
-  "*True inhibits the initial startup messages.
+  "True inhibits the initial startup messages.
 This is for use in your personal init file, once you are familiar
 with the contents of the startup message."
   false)
diff --git a/v7/src/edwin/modwin.scm b/v7/src/edwin/modwin.scm
index 5d00ee0f6..ea4faa903 100644
--- a/v7/src/edwin/modwin.scm
+++ b/v7/src/edwin/modwin.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modwin.scm,v 1.36 1991/04/01 10:07:42 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modwin.scm,v 1.37 1991/05/18 03:23:25 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989, 1990 Massachusetts Institute of Technology
 ;;;
@@ -73,8 +73,9 @@
   modeline-window:update-display!)
 
 (define-variable mode-line-inverse-video
-  "*True means use inverse video, or other suitable display mode, for the mode line."
-  true)
+  "True means use inverse video, or other suitable display mode, for the mode line."
+  true
+  boolean?)
 
 (define-method modeline-window (:event! window type)
   type					;ignored
diff --git a/v7/src/edwin/wincom.scm b/v7/src/edwin/wincom.scm
index 29a7e32cd..3841c9ed0 100644
--- a/v7/src/edwin/wincom.scm
+++ b/v7/src/edwin/wincom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/wincom.scm,v 1.103 1991/05/18 03:13:48 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/wincom.scm,v 1.104 1991/05/18 03:23:44 cph Exp $
 ;;;
 ;;;	Copyright (c) 1987, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -49,41 +49,47 @@
 (define-variable window-min-width
   "Delete any window less than this wide.
 Do not set this variable below 2."
-  2)
+  2
+  (lambda (object) (and (exact-integer? object) (>= object 2))))
 
 (define-variable window-min-height
   "Delete any window less than this high.
 The modeline is not included in this figure.
 Do not set this variable below 1."
-  1)
+  1
+  (lambda (object) (and (exact-integer? object) (>= object 1))))
 
 (define-variable next-screen-context-lines
-  "*Number of lines of continuity when scrolling by screenfuls."
-  2)
+  "Number of lines of continuity when scrolling by screenfuls."
+  2
+  exact-nonnegative-integer?)
 
 (define-variable use-multiple-screens
   "If true, commands try to use multiple screens rather than multiple windows.
 Has no effect unless multiple-screen support is available."
-  false)
+  false
+  boolean?)
 
 (define-variable pop-up-windows
   "True enables the use of pop-up windows."
-  true)
+  true
+  boolean?)
 
 (define-variable preserve-window-arrangement
   "True means commands that normally change the window arrangement do not."
-  false)
+  false
+  boolean?)
 
 (define-variable split-height-threshold
   "Pop-up windows would prefer to split the largest window if this large.
 If there is only one window, it is split regardless of this value."
-  500)
+  500
+  exact-nonnegative-integer?)
 
 (define-command redraw-display
   "Redraws the entire display from scratch."
   ()
-  (lambda ()
-    (update-screens! true)))
+  (lambda () (update-screens! true)))
 
 (define-command recenter
   "Choose new window putting point at center, top or bottom.
-- 
2.25.1