From: Gerd Moellmann <gerd@gnu.org>
Date: Sat, 29 Apr 2000 19:28:46 +0000 (+0000)
Subject: (normal-top-level): Put a condition-case around
X-Git-Tag: emacs-pretest-21.0.90~4095
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bbfc759111c34cd455f6ff0d3c2a6c0173e9ee58;p=emacs.git

(normal-top-level): Put a condition-case around
the code loading subdirs.el.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index e2b227c7bfe..f410c5026cb 100644
--- 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