3716 |
(defun batch-byte-compile-file (file) |
(defun batch-byte-compile-file (file) |
3717 |
(condition-case err |
(condition-case err |
3718 |
(byte-compile-file file) |
(byte-compile-file file) |
3719 |
|
(file-error |
3720 |
|
(message (if (cdr err) |
3721 |
|
">>Error occurred processing %s: %s (%s)" |
3722 |
|
">>Error occurred processing %s: %s") |
3723 |
|
file |
3724 |
|
(get (car err) 'error-message) |
3725 |
|
(prin1-to-string (cdr err))) |
3726 |
|
(let ((destfile (byte-compile-dest-file file))) |
3727 |
|
(if (file-exists-p destfile) |
3728 |
|
(delete-file destfile))) |
3729 |
|
nil) |
3730 |
(error |
(error |
3731 |
(message (if (cdr err) |
(message (if (cdr err) |
3732 |
">>Error occurred processing %s: %s (%s)" |
">>Error occurred processing %s: %s (%s)" |