# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 957298161 0
# Node ID b4439d3505f363b505a05244d47455a79eddd4d1
# Parent  90e5b2abbd10458946a459dbd8af1a4747c3f9ae
(recover-session): Make directories as necessary
if they don't exist yet.

diff -r 90e5b2abbd10 -r b4439d3505f3 lisp/files.el
--- a/lisp/files.el	Tue May 02 20:03:32 2000 +0000
+++ b/lisp/files.el	Tue May 02 20:09:21 2000 +0000
@@ -3011,6 +3011,9 @@
   (interactive)
   (if (null auto-save-list-file-prefix)
       (error "You set `auto-save-list-file-prefix' to disable making session files"))
+  (let ((dir (file-name-directory auto-save-list-file-prefix)))
+    (unless (file-directory-p dir)
+      (make-directory dir t)))
   (let ((ls-lisp-support-shell-wildcards t))
     (dired (concat auto-save-list-file-prefix "*")
 	   (concat dired-listing-switches "t")))