Eliminate last vestiges of "*" convention in variable documentation.

diff --git a/v7/src/edwin/bufwin.scm b/v7/src/edwin/bufwin.scm
index feb8d077eb09f47df3f8233d2f64532bcda1f64a..64a7a3168b67c5b18923376df6ee7ec9800411a4 100644 (file)
--- 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 2469c72302f504a6dffe2193aea2212c3c64fe05..0f33de28fb76586703e2d804d8560bec85e7f29d 100644 (file)
--- 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 5d00ee0f692954c313d610b28c80528440a20513..ea4faa903772b468d801fa6f34783b95cbe357da 100644 (file)
--- 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 29a7e32cd392e71ede5ee8f429734e3abafc8851..3841c9ed047c9108f5094782ef9a91b3e307fad1 100644 (file)
--- 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?)
 \f
 (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.