diff options
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index d8d432c279c..8610f56a2b6 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -353,9 +353,12 @@ from being initialized.") ;; Under MS-DOS our PID is almost always reused between ;; Emacs invocations. We need something more unique. (if (eq system-type 'ms-dos) - (make-temp-name - (expand-file-name auto-save-list-file-prefix)) - (expand-file-name (format "%s%d-%s" + (concat + (make-temp-name + (expand-file-name auto-save-list-file-prefix)) + "~") + + (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix (emacs-pid) (system-name))))))) |