# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1183431282 0
# Node ID 5daa11039ff230200f4140aa73623038b88ff487
# Parent  232b52537e609680089c71e07f2b1e67964b74c5
(command-line): Set buffer-offer-save in *scratch* and enable auto-save in it.

diff -r 232b52537e60 -r 5daa11039ff2 lisp/startup.el
--- 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.