(auto-save-list-file-prefix): For ms-dos, set the

default prefix to `~/_emacs.d/auto-save.list/_s'.
(normal-top-level): Create the directory for auto-save files, if
it doesn't already exist, in the ms-dos case only.

2 files changed, 25 insertions, 11 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 733a94f5b3d..9cdbf3b88e2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,12 @@
 2000-05-02  Eli Zaretskii  <eliz@is.elta.co.il>
 
+        * startup.el (auto-save-list-file-prefix): For ms-dos, set the
+        default prefix to `~/_emacs.d/auto-save.list/_s'.
+        (normal-top-level): Create the directory for auto-save files, if
+        it doesn't already exist (in the ms-dos case only).
+
+2000-05-02  Eli Zaretskii  <eliz@is.elta.co.il>
+
         * international/mule-cmds.el (set-language-environment): Don't
         concat an integer (dos-codepage), use format instead.
 
diff --git a/lisp/startup.el b/lisp/startup.el
index f410c5026cb..f7383b6881b 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -319,7 +319,7 @@ after your init file is read, in case it sets `mail-host-address'."
 (defcustom auto-save-list-file-prefix
   (cond ((eq system-type 'ms-dos)
          ;; MS-DOS cannot have initial dot, and allows only 8.3 names
-         "~/_s")
+         "~/_emacs.d/auto-save.list/_s")
         (t
          "~/.emacs.d/auto-save-list/.saves-"))
   "Prefix for generating `auto-save-list-file-name'.
@@ -444,16 +444,23 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
                  (setq auto-save-list-file-name
                        ;; Under MS-DOS our PID is almost always reused between
                        ;; Emacs invocations.  We need something more unique.
-                       (if (eq system-type 'ms-dos)
-                           (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)))))))
+                       (cond ((eq system-type 'ms-dos)
+                              ;; We are going to access the auto-save
+                              ;; directory, so make sure it exists.
+                              (make-directory
+                               (file-name-directory auto-save-list-file-prefix)
+                               t)
+                              (concat 
+                               (make-temp-name
+                                (expand-file-name
+                                 auto-save-list-file-prefix))
+                               "~"))
+                             (t
+                              (expand-file-name
+                               (format "%s%d-%s~"
+                                       auto-save-list-file-prefix
+                                       (emacs-pid)
+                                       (system-name))))))))
         (run-hooks 'emacs-startup-hook)
         (and term-setup-hook
              (run-hooks 'term-setup-hook))