(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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 733a94f5b3d131f67b55244083b029a5e0174e32..9cdbf3b88e29c5a5ed25e8bdf8226000377ad8fe 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+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

diff --git a/lisp/startup.el b/lisp/startup.el
index f410c5026cbdef603df95c77ea36041c283d1c91..f7383b6881be9e7f03035e061c7c4b4b59500baa 100644 (file)
--- 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))