diff options
| -rw-r--r-- | lisp/startup.el | 5 |
1 files changed, 3 insertions, 2 deletions
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'." | |||
| 412 | new) | 412 | new) |
| 413 | (while tail | 413 | (while tail |
| 414 | (setq new (cons (car tail) new)) | 414 | (setq new (cons (car tail) new)) |
| 415 | (let ((default-directory (car tail))) | 415 | (condition-case nil |
| 416 | (load (expand-file-name "subdirs.el" (car tail)) t t t)) | 416 | (let ((default-directory (car tail))) |
| 417 | (load (expand-file-name "subdirs.el" (car tail)) t t t))) | ||
| 417 | (setq tail (cdr tail)))) | 418 | (setq tail (cdr tail)))) |
| 418 | (if (not (eq system-type 'vax-vms)) | 419 | (if (not (eq system-type 'vax-vms)) |
| 419 | (progn | 420 | (progn |