Mercurial > emacs
changeset 17236:c0fa9ba95c05
(command-line-1): Initialize *scratch* with
text saying not to use it for creating a file.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 23 Mar 1997 20:51:17 +0000 |
| parents | 5905b103d7ea |
| children | d3f5f14d1de4 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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.