# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 859150277 0
# Node ID c0fa9ba95c05563ec0b0ffaa505d1cf4daa3da70
# Parent  5905b103d7eabb93dc7a72c7e587428a92d04514
(command-line-1): Initialize *scratch* with
text saying not to use it for creating a file.

diff -r 5905b103d7ea -r c0fa9ba95c05 lisp/startup.el
--- a/lisp/startup.el	Sun Mar 23 20:49:24 1997 +0000
+++ b/lisp/startup.el	Sun Mar 23 20:51:17 1997 +0000
@@ -778,11 +778,15 @@
 
 		   (set-buffer-modified-p nil)
 		   (sit-for 120))
-	       (save-excursion
-		 ;; In case the Emacs server has already selected
-		 ;; another buffer, erase the one our message is in.
-		 (set-buffer (get-buffer "*scratch*"))
+	       (with-current-buffer (get-buffer "*scratch*")
 		 (erase-buffer)
+		 (insert "\
+If you want to create a file, don't type the text in this buffer.
+This buffer is for notes you don't want to save, and for Lisp evaluation.
+If you want to create a file, first visit that file with C-x C-f,
+then enter the text in that file's own buffer.
+
+")
 		 (set-buffer-modified-p nil)))))
     ;; Delay 2 seconds after the init file error message
     ;; was displayed, so user can read it.