mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(custom-make-dependencies): Don't give up

Browse Source 
on a whole file, the first time eval gets an error.
This commit is contained in:
Richard M. Stallman 1998-04-24 21:05:18 +00:00
parent aabf58d159
commit 06beea21ca
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/cus-dep.el
View File

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