From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 24 Apr 1998 21:05:18 +0000 (+0000)
Subject: (custom-make-dependencies): Don't give up
X-Git-Tag: emacs-20.3~1321
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=06beea21caf9edf2cf992cff77988063fd848014;p=emacs.git

(custom-make-dependencies): Don't give up
on a whole file, the first time eval gets an error.
---

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...")