From 06beea21caf9edf2cf992cff77988063fd848014 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 24 Apr 1998 21:05:18 +0000 Subject: [PATCH] (custom-make-dependencies): Don't give up on a whole file, the first time eval gets an error. --- lisp/cus-dep.el | 7 +++++-- 1 file 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...") -- 2.39.2