Permalink
Browse files

(command-line-1): Initialize *scratch* with

text saying not to use it for creating a file.
  • Loading branch information...
Richard M. Stallman
Richard M. Stallman committed Mar 23, 1997
1 parent 214b321 commit 6f6e0bcd514d86f53da8ccb066df9757c93c48e0
Showing with 8 additions and 4 deletions.
  1. +8 −4 lisp/startup.el
View
@@ -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.

0 comments on commit 6f6e0bc

Please sign in to comment.