Mercurial > emacs
comparison lisp/startup.el @ 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 | 0e3f82f9067d |
| children | 55013a02cac0 0ece58f6e0aa 988f1edc9674 |
comparison
equal
deleted
inserted
replaced
| 81691:232b52537e60 | 81692:5daa11039ff2 |
|---|---|
| 1053 | 1053 |
| 1054 ;; If *scratch* exists and init file didn't change its mode, initialize it. | 1054 ;; If *scratch* exists and init file didn't change its mode, initialize it. |
| 1055 (if (get-buffer "*scratch*") | 1055 (if (get-buffer "*scratch*") |
| 1056 (with-current-buffer "*scratch*" | 1056 (with-current-buffer "*scratch*" |
| 1057 (if (eq major-mode 'fundamental-mode) | 1057 (if (eq major-mode 'fundamental-mode) |
| 1058 (funcall initial-major-mode)))) | 1058 (funcall initial-major-mode)) |
| 1059 ;; Don't lose text that users type in *scratch*. | |
| 1060 (setq buffer-offer-save t) | |
| 1061 (auto-save-mode 1))) | |
| 1059 | 1062 |
| 1060 ;; Load library for our terminal type. | 1063 ;; Load library for our terminal type. |
| 1061 ;; User init file can set term-file-prefix to nil to prevent this. | 1064 ;; User init file can set term-file-prefix to nil to prevent this. |
| 1062 (unless (or noninteractive | 1065 (unless (or noninteractive |
| 1063 window-system | 1066 window-system |