Commit bbfc7591 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

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

the code loading subdirs.el.
parent 906d41a7
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment