Mercurial > emacs
changeset 28788:b4439d3505f3
(recover-session): Make directories as necessary
if they don't exist yet.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 02 May 2000 20:09:21 +0000 |
| parents | 90e5b2abbd10 |
| children | b69d5f20b837 |
| files | lisp/files.el |
| diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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")))