diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-10-23 16:59:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-10-23 16:59:47 +0000 |
| commit | b3c7c12c1b6c58cff8427b4e20b4a18412c0e131 (patch) | |
| tree | afc3d7f241e87e28b563efc726d52452bab2f1ef /lisp/startup.el | |
| parent | 5e1515a85dc9e81c6ecbb90539c035da2f4f6efa (diff) | |
| download | emacs-b3c7c12c1b6c58cff8427b4e20b4a18412c0e131.tar.gz | |
(normal-top-level): Set auto-save-list-file-name later,
after calling command-line.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 987bb8b7814..d02593d61e0 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -275,19 +275,19 @@ this prefix to create a unique file name.") (delete (concat "PWD=" pwd) process-environment))))))) (setq default-directory (abbreviate-file-name default-directory)) - ;; Specify the file for recording all the auto save files of this session. - ;; This is used by recover-session. - (setq auto-save-list-file-name - (expand-file-name - (format "%s%d-%s" - auto-save-list-file-prefix - (emacs-pid) - (system-name)))) (let ((menubar-bindings-done nil)) (unwind-protect (command-line) ;; Do this again, in case .emacs defined more abbreviations. (setq default-directory (abbreviate-file-name default-directory)) + ;; Specify the file for recording all the auto save files of this session. + ;; This is used by recover-session. + (setq auto-save-list-file-name + (expand-file-name + (format "%s%d-%s" + auto-save-list-file-prefix + (emacs-pid) + (system-name)))) (run-hooks 'emacs-startup-hook) (and term-setup-hook (run-hooks 'term-setup-hook)) |