diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-04-24 21:05:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-04-24 21:05:18 +0000 |
| commit | 06beea21caf9edf2cf992cff77988063fd848014 (patch) | |
| tree | 4b582dd4ad16bc4972c11d4de98ef50b9f88a7a5 /lisp/cus-dep.el | |
| parent | aabf58d159fabda9dd81580c0bb7e2cf1e5f64a9 (diff) | |
| download | emacs-06beea21caf9edf2cf992cff77988063fd848014.tar.gz | |
(custom-make-dependencies): Don't give up
on a whole file, the first time eval gets an error.
Diffstat (limited to 'lisp/cus-dep.el')
| -rw-r--r-- | lisp/cus-dep.el | 7 |
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...") |