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)) |