# HG changeset patch # User Richard M. Stallman # Date 893451918 0 # Node ID 44c9237d9e521c6b865f81fcb62a3fd5ad8aad5d # Parent 14ad51433254ae6730f857d951b8ff1d66d44103 (custom-make-dependencies): Don't give up on a whole file, the first time eval gets an error. diff -r 14ad51433254 -r 44c9237d9e52 lisp/cus-dep.el --- a/lisp/cus-dep.el Fri Apr 24 20:58:03 1998 +0000 +++ b/lisp/cus-dep.el Fri Apr 24 21:05:18 1998 +0000 @@ -56,8 +56,11 @@ 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...")