diff options
| -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.") | |||
| 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))))))) |