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) |