From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 23 Mar 1997 20:51:17 +0000 (+0000)
Subject: (command-line-1): Initialize *scratch* with
X-Git-Tag: emacs-20.1~2709
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6f6e0bcd514d86f53da8ccb066df9757c93c48e0;p=emacs.git

(command-line-1): Initialize *scratch* with
text saying not to use it for creating a file.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 68f857cde74..4c9e9bce7c0 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -778,11 +778,15 @@ Type \\[describe-distribution] for information on getting the latest version."))
 
 		   (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.