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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 863e17198254600d762c62eb8e13f016e0c608b9..27ec4a9f83a207f04a352e2dee2b527a63dcf88b 100644 (file)
--- 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 1943367dfc8241d0bd2f94835addb55a76e70aeb..4e43b39bfd4bcf3d3cecd441a4442739e16fa05c 100644 (file)
--- 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.