(menu-bar-files-menu [recover-session]): Make sure auto save directory

exists before calling directory-files.

2 files changed, 13 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0b8b70abc1d..73d6cbe24fb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-07-23  Noah Friedman  <friedman@splode.com>
+
+        * menu-bar.el (menu-bar-files-menu [recover-session]): Make sure
+        auto save directory exists before calling directory-files.
+
 2000-07-23  Dave Love  <fx@gnu.org>
 
         * international/iso-transl.el (iso-transl-char-map): Fix ^e, ^i,
@@ -31,7 +36,7 @@
 
         * timer.el (run-with-idle-timer): Doc fix.
 
-        * mail/mail-utils.el (mail-strip-quoted-names): 
+        * mail/mail-utils.el (mail-strip-quoted-names):
         Handle case where <...> appears inside "...".
         Use replace-match to edit the string more simply.
         (rmail-dont-reply-to): Cope with an unmatched ".
@@ -59,8 +64,8 @@
         * gnus/parse-time.el: Correct author's mail address.
 
 2000-07-19  Colin Walters <walters@cis.ohio-state.edu>
-        
-        * comint.el (comint-highlight-input, comint-highlight-face): 
+
+        * comint.el (comint-highlight-input, comint-highlight-face):
         New user options.
         (comint-input-ring-file-name): Change custom type.
         (comint-mode-map): Bind mouse-2.
@@ -81,7 +86,7 @@
 
         * faces.el (face-font-selection-order)
         (face-font-family-alternatives): Add custom type.
-        
+
 2000-07-18  Dave Love  <fx@gnu.org>
 
         * cus-edit.el (custom-variable-reset-saved)
@@ -111,7 +116,7 @@
         * recentf.el: Update from author.
 
         * info.el (Info-title-face-alist): Removed.
-        
+
 2000-07-18  Eli Zaretskii  <eliz@is.elta.co.il>
 
         * eshell/eshell.el (eshell): Replace links to eshell.info with
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index b28b5ef4a37..9bde22e593c 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -124,7 +124,9 @@ A large number or nil slows down menu responsiveness."
 (define-key menu-bar-files-menu [recover-session]
   '(menu-item "Recover Crashed Session..." recover-session
               :enable (and auto-save-list-file-prefix
-                           (directory-files
+                           (file-directory-p
+                            (file-name-directory auto-save-list-file-prefix))
+                           (directory-files
                             (file-name-directory auto-save-list-file-prefix)
                             nil
                             (concat "\\`"