[Emacs-diffs] Changes to emacs/lisp/files.el

[John Paul Wallington]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.642 emacs/lisp/files.el:1.643
*** emacs/lisp/files.el:1.642   Wed Mar 12 03:02:32 2003
--- emacs/lisp/files.el Fri Mar 14 17:36:57 2003
***************
*** 3467,3473 ****
        (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")))
--- 3467,3479 ----
        (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))
!     (unless (directory-files dir nil
!                            (concat "\\`" (regexp-quote
!                                           (file-name-nondirectory
!                                            auto-save-list-file-prefix)))
!                            t)
!       (error "No previous sessions to recover")))
    (let ((ls-lisp-support-shell-wildcards t))
      (dired (concat auto-save-list-file-prefix "*")
           (concat dired-listing-switches "t")))