(normal-top-level): Put a condition-case around

the code loading subdirs.el.

diff --git a/lisp/startup.el b/lisp/startup.el
index e2b227c7bfe7f3bc11ac2b3ee800102b82cede0a..f410c5026cbdef603df95c77ea36041c283d1c91 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -412,8 +412,9 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
          new)
       (while tail
        (setq new (cons (car tail) new))
-       (let ((default-directory (car tail)))
-         (load (expand-file-name "subdirs.el" (car tail)) t t t))
+       (condition-case nil
+           (let ((default-directory (car tail)))
+             (load (expand-file-name "subdirs.el" (car tail)) t t t)))
        (setq tail (cdr tail))))
     (if (not (eq system-type 'vax-vms))
        (progn