aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/startup.el9
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.")
353 ;; Under MS-DOS our PID is almost always reused between 353 ;; Under MS-DOS our PID is almost always reused between
354 ;; Emacs invocations. We need something more unique. 354 ;; Emacs invocations. We need something more unique.
355 (if (eq system-type 'ms-dos) 355 (if (eq system-type 'ms-dos)
356 (make-temp-name 356 (concat
357 (expand-file-name auto-save-list-file-prefix)) 357 (make-temp-name
358 (expand-file-name (format "%s%d-%s" 358 (expand-file-name auto-save-list-file-prefix))
359 "~")
360
361 (expand-file-name (format "%s%d-%s~"
359 auto-save-list-file-prefix 362 auto-save-list-file-prefix
360 (emacs-pid) 363 (emacs-pid)
361 (system-name))))))) 364 (system-name)))))))