Mercurial > emacs
comparison lisp/startup.el @ 11631:f9170a6c2e6f
(normal-top-level): Set auto-save-list-file-name.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 30 Apr 1995 19:50:00 +0000 |
| parents | 927b52de7ed2 |
| children | e068b3b7b232 |
comparison
equal
deleted
inserted
replaced
| 11630:d18ae33bb3b6 | 11631:f9170a6c2e6f |
|---|---|
| 222 process-environment))))))) | 222 process-environment))))))) |
| 223 (setq default-directory (abbreviate-file-name default-directory)) | 223 (setq default-directory (abbreviate-file-name default-directory)) |
| 224 (setq user-mail-address (concat (user-login-name) "@" | 224 (setq user-mail-address (concat (user-login-name) "@" |
| 225 (or mail-host-address | 225 (or mail-host-address |
| 226 (system-name)))) | 226 (system-name)))) |
| 227 ;; Specify the file for recording all the auto save files of this session. | |
| 228 ;; This is used by multiple-recover. | |
| 229 (setq auto-save-list-file-name | |
| 230 (expand-file-name | |
| 231 (format "~/.saves-%d-%s" | |
| 232 (emacs-pid) | |
| 233 (or mail-host-address (system-name))))) | |
| 227 (let ((menubar-bindings-done nil)) | 234 (let ((menubar-bindings-done nil)) |
| 228 (unwind-protect | 235 (unwind-protect |
| 229 (command-line) | 236 (command-line) |
| 230 ;; Do this again, in case .emacs defined more abbreviations. | 237 ;; Do this again, in case .emacs defined more abbreviations. |
| 231 (setq default-directory (abbreviate-file-name default-directory)) | 238 (setq default-directory (abbreviate-file-name default-directory)) |