(command-line-1): Don't signal an error if the

directory for auto-save-list files does not yet exist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 83e692ec2381d3c7f6b47e0c8fed5b2e649728a7..189f91aa8954ef18c9913a57a703d0cb1a9f22d3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-05-17  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * startup.el (command-line-1): Don't signal an error if the
+       directory for auto-save-list files does not yet exist.
+
 2000-05-17  Kenichi Handa  <handa@etl.go.jp>
 
        * international/mule-conf.el (arabic-iso8859-6): Fix typo.

diff --git a/lisp/startup.el b/lisp/startup.el
index 75559d1d9557c8bfe5291a5690ce7250ed54e17d..510a529581eb1393d8bcb2ca570b67fd8b1a9067 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -939,6 +939,11 @@ Mode-specific menu   C-mouse-3 (third button, with CTRL)"))
 \(`C-' means use the CTRL key.  `M-' means use the Meta (or Alt) key.
 If you have no Meta key, you may instead type ESC followed by the character.)")
                         (and auto-save-list-file-prefix
+                             ;; Don't signal an error if the
+                             ;; directory for auto-save-list files
+                             ;; does not yet exist.
+                             (file-directory-p (file-name-directory
+                                                auto-save-list-file-prefix))
                              (directory-files
                               (file-name-directory auto-save-list-file-prefix)
                               nil