diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-10-04 19:41:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-10-04 19:41:15 +0000 |
| commit | 3455c7711b7afdfba8c0c32571724103e617f96b (patch) | |
| tree | eca15a8ac095be75bff257c198bb88fb241261c8 /lisp/startup.el | |
| parent | adeee15cfe1865dfe9cbfb9a1818a470b240b8a8 (diff) | |
| download | emacs-3455c7711b7afdfba8c0c32571724103e617f96b.tar.gz | |
(auto-save-list-file-prefix): New variable.
(normal-top-level): Use it.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index d7f7f55b5cb..772d619f889 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -225,6 +225,11 @@ specified by the LC_ALL, LC_CTYPE and LANG environment variables.") (defvar user-mail-address nil "*Full mailing address of this user.") +(defvar auto-save-list-file-prefix "~/.saves-" + "Prefix for generating auto-save-list-file-name. +Emacs's pid and the system name will be appended to +this prefix to create a unique file name.") + (defvar init-file-debug nil) (defvar init-file-had-error nil) @@ -274,10 +279,11 @@ specified by the LC_ALL, LC_CTYPE and LANG environment variables.") (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. + ;; This is used by recover-session. (setq auto-save-list-file-name (expand-file-name - (format "~/.saves-%d-%s" + (format "%s%d-%s" + auto-save-list-file-prefix (emacs-pid) (system-name)))) (let ((menubar-bindings-done nil)) |