(command-line): Set buffer-offer-save in *scratch* and enable auto-save in it.

2 files changed, 15 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 863e1719825..27ec4a9f83a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2007-07-03  Richard Stallman  <rms@gnu.org>
+
+        * files.el (make-directory): Doc fix.
+        (find-file-confirm-inexistent-file): Make it a defcustom.
+        Make nil the default.
+
+2007-07-02  Richard Stallman  <rms@gnu.org>
+
+        * startup.el (command-line): Set buffer-offer-save in *scratch*
+        and enable auto-save in it.
+
 2007-07-02  Carsten Dominik  <dominik@science.uva.nl>
 
         * textmodes/org.el (orgstruct-mode-map): New variable.
diff --git a/lisp/startup.el b/lisp/startup.el
index 1943367dfc8..4e43b39bfd4 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1055,7 +1055,10 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
   (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.