Mercurial > emacs
diff lisp/cus-dep.el @ 21755:44c9237d9e52
(custom-make-dependencies): Don't give up
on a whole file, the first time eval gets an error.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 24 Apr 1998 21:05:18 +0000 |
parents | bbad6a02f725 |
children | 2649d061d370 |
line wrap: on
line diff
--- 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...")