(custom-make-dependencies): Don't give up

on a whole file, the first time eval gets an error.

1 files changed, 5 insertions, 2 deletions

diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el
index 286d4830fa8..006197aa3ab 100644
--- a/lisp/cus-dep.el
+++ b/lisp/cus-dep.el
@@ -56,8 +56,11 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
                                             nil t)
                     (beginning-of-line)
                     (let ((expr (read (current-buffer))))
-                      (eval expr)
-                      (put (nth 1 expr) 'custom-where name)))
+                      (condition-case nil
+                          (progn
+                            (eval expr)
+                            (put (nth 1 expr) 'custom-where name))
+                        (error nil))))
                 (error nil)))))
         (setq all-subdirs (cdr all-subdirs)))))
   (message "Generating cus-load.el...")