From cf84d3ce7b2ed79e3486eb8b0af148617ad2328c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 3 Jul 2007 02:54:48 +0000 Subject: [PATCH] (command-line): Set buffer-offer-save in *scratch* and enable auto-save in it. --- lisp/ChangeLog | 11 +++++++++++ lisp/startup.el | 5 ++++- 2 files changed, 15 insertions(+), 1 deletion(-) 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 + + * files.el (make-directory): Doc fix. + (find-file-confirm-inexistent-file): Make it a defcustom. + Make nil the default. + +2007-07-02 Richard Stallman + + * startup.el (command-line): Set buffer-offer-save in *scratch* + and enable auto-save in it. + 2007-07-02 Carsten Dominik * 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. -- 2.39.2