From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 2 May 2000 12:03:43 +0000 (+0000)
Subject: (auto-save-list-file-prefix): For ms-dos, set the
X-Git-Tag: emacs-pretest-21.0.90~4080
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b33deaa565f66f28f62b7567f6377ca485446fe;p=emacs.git

(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 733a94f5b3d..9cdbf3b88e2 100644
--- 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 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))