Mercurial > emacs
changeset 81692:5daa11039ff2
(command-line): Set buffer-offer-save in *scratch* and enable auto-save in it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 03 Jul 2007 02:54:42 +0000 |
| parents | 232b52537e60 |
| children | fbf7663bdb7c |
| files | lisp/startup.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Tue Jul 03 02:54:27 2007 +0000 +++ b/lisp/startup.el Tue Jul 03 02:54:42 2007 +0000 @@ -1055,7 +1055,10 @@ (if (get-buffer "*scratch*") (with-current-buffer "*scratch*" (if (eq major-mode 'fundamental-mode) - (funcall initial-major-mode)))) + (funcall initial-major-mode)) + ;; Don't lose text that users type in *scratch*. + (setq buffer-offer-save t) + (auto-save-mode 1))) ;; Load library for our terminal type. ;; User init file can set term-file-prefix to nil to prevent this.