From 2e05d0632539ec68e9e2139158cb1b6c91a94a5e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 4 Oct 1995 19:41:15 +0000 Subject: [PATCH] (auto-save-list-file-prefix): New variable. (normal-top-level): Use it. --- lisp/startup.el | 10 ++++++++-- 1 file 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)) -- 2.39.2