diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-05-02 20:09:21 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-05-02 20:09:21 +0000 |
| commit | 1d18bc3a67cfe076a2b32149f017e7860b12bc70 (patch) | |
| tree | ff249f630d4eb4aa201ba613b3c8b0de2668e3ee /lisp/files.el | |
| parent | 7c7ff7f5d18ebe74842db645eb6ff4b63e778f0b (diff) | |
| download | emacs-1d18bc3a67cfe076a2b32149f017e7860b12bc70.tar.gz | |
(recover-session): Make directories as necessary
if they don't exist yet.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/files.el b/lisp/files.el index 039f7fc5a22..f9fbc763097 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3011,6 +3011,9 @@ Then you'll be asked about a number of files to recover." (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"))) |