Mercurial > emacs

diff lisp/files.el @ 50136:ad28e7a35442

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* files.el (recover-session): Error if there are no previous sessions to recover. * subr.el (posn-col-row): Simplify. * arc-mode.el (archive-subtype, archive-file-list-start) (archive-file-list-end, archive-proper-file-start) (archive-read-only, archive-local-name, archive-mode-map) (archive-file-name-indent, archive-remote) (archive-alternate-display, archive-superior-buffer) (archive-subfile-mode): Doc fixes.
author John Paul Wallington <jpw@pobox.com>
date Fri, 14 Mar 2003 22:36:57 +0000
parents d3fb3e2b1782
children 994336ed195e
line wrap: on
line diff
--- a/lisp/files.el	Fri Mar 14 22:29:13 2003 +0000
+++ b/lisp/files.el	Fri Mar 14 22:36:57 2003 +0000
@@ -3467,7 +3467,13 @@
       (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)))
+      (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")))