diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-03-23 20:51:17 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-03-23 20:51:17 +0000 |
commit | f7b8c6939e88374d69c38bad0d45eac8b3cb4b4e (patch) | |
tree | 432507cebb5579d9c4565e1f2d136434a3843eec | |
parent | b02305082a0069bf8f7ad7b4e584154ea1c65d8b (diff) | |
download | emacs-f7b8c6939e88374d69c38bad0d45eac8b3cb4b4e.tar.gz |
(command-line-1): Initialize *scratch* with
text saying not to use it for creating a file.
-rw-r--r-- | lisp/startup.el | 12 |
1 files changed, 8 insertions, 4 deletions
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. |