diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-04-30 19:50:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-04-30 19:50:00 +0000 |
| commit | 0b9d4cf065bccd1a0588a12c60cb935f3c9986ef (patch) | |
| tree | 261970b64657dcf74665504fd7dbdb91c5811841 /lisp/startup.el | |
| parent | 9aee5392730ff798eff16dd55fbc5180af64df08 (diff) | |
| download | emacs-0b9d4cf065bccd1a0588a12c60cb935f3c9986ef.tar.gz | |
(normal-top-level): Set auto-save-list-file-name.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index e059ff0fc0d..c12e3c893b3 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -224,6 +224,13 @@ specified by the LC_ALL, LC_CTYPE and LANG environment variables.") (setq user-mail-address (concat (user-login-name) "@" (or mail-host-address (system-name)))) + ;; Specify the file for recording all the auto save files of this session. + ;; This is used by multiple-recover. + (setq auto-save-list-file-name + (expand-file-name + (format "~/.saves-%d-%s" + (emacs-pid) + (or mail-host-address (system-name))))) (let ((menubar-bindings-done nil)) (unwind-protect (command-line) |