Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
21754:14ad51433254 | 21755:44c9237d9e52 |
---|---|
54 (condition-case nil | 54 (condition-case nil |
55 (while (re-search-forward "^(defcustom\\|^(defface\\|^(defgroup" | 55 (while (re-search-forward "^(defcustom\\|^(defface\\|^(defgroup" |
56 nil t) | 56 nil t) |
57 (beginning-of-line) | 57 (beginning-of-line) |
58 (let ((expr (read (current-buffer)))) | 58 (let ((expr (read (current-buffer)))) |
59 (eval expr) | 59 (condition-case nil |
60 (put (nth 1 expr) 'custom-where name))) | 60 (progn |
61 (eval expr) | |
62 (put (nth 1 expr) 'custom-where name)) | |
63 (error nil)))) | |
61 (error nil))))) | 64 (error nil))))) |
62 (setq all-subdirs (cdr all-subdirs))))) | 65 (setq all-subdirs (cdr all-subdirs))))) |
63 (message "Generating cus-load.el...") | 66 (message "Generating cus-load.el...") |
64 (find-file "cus-load.el") | 67 (find-file "cus-load.el") |
65 (erase-buffer) | 68 (erase-buffer) |