procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
the code loading subdirs.el.
This commit is contained in:
Gerd Moellmann 2000-04-29 19:28:46 +00:00
parent 906d41a775
commit bbfc759111
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/startup.el
View file

@ -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