Print message reminding user to dump doc strings.

diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index 9310a4a58db20e85b85d003127c4f1038568d244..699e3e1f659fecefcf006a6504c6591f2509de4f 100644 (file)
--- a/v7/src/edwin/edwin.ldr
+++ b/v7/src/edwin/edwin.ldr
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.ldr,v 1.42 1993/08/22 04:48:26 gjr Exp $
+$Id: edwin.ldr,v 1.43 1993/09/01 18:12:01 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -105,6 +105,8 @@ MIT in each case. |#
        (load "search" environment)
        (load "image" environment)
        (load "comman" environment)
+       (if (not (memq (lookup 'os-type) '(dos nt)))
+           (set! (access *external-doc-strings?* environment) false))
        (load "comtab" (->environment '(EDWIN COMTAB)))
        (load "modes" environment)
        (load "buffer" environment)
@@ -227,4 +229,8 @@ MIT in each case. |#
        (load-set-and-initialize! '("bochser" "bochsmod")
                                  (->environment '(EDWIN BOCHSER)))
        |#
-       (load "notify" environment)))))
\ No newline at end of file
+       (load "notify" environment)
+       (if (access *external-doc-strings?* environment)
+           (begin
+             (set! (access *external-doc-strings?* environment) false)
+             (warn "Remember to use ``dump-doc-strings''!")))))))
\ No newline at end of file