diff options
| author | Richard M. Stallman | 1995-08-29 16:22:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-08-29 16:22:25 +0000 |
| commit | d5b876efa88da30edf8bf8e8887d90d1c723b0cc (patch) | |
| tree | c023ced723ef8827bd33b75908a7812ad2bbfda0 | |
| parent | d70fbccad6f3f087f703c5c6b7c937cd6de1008f (diff) | |
| download | emacs-d5b876efa88da30edf8bf8e8887d90d1c723b0cc.tar.gz emacs-d5b876efa88da30edf8bf8e8887d90d1c723b0cc.zip | |
(dired-byte-compile): Report failure if output file is not created.
| -rw-r--r-- | lisp/dired-aux.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index e08094ff2da..27ef4397d74 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el | |||
| @@ -649,6 +649,8 @@ and use this command with a prefix argument (the value does not matter)." | |||
| 649 | (error | 649 | (error |
| 650 | (setq failure err))) | 650 | (setq failure err))) |
| 651 | (setq elc-file (byte-compile-dest-file filename)) | 651 | (setq elc-file (byte-compile-dest-file filename)) |
| 652 | (or (file-exists-p elc-file) | ||
| 653 | (setq failure t)) | ||
| 652 | (if failure | 654 | (if failure |
| 653 | (progn | 655 | (progn |
| 654 | (dired-log "Byte compile error for %s:\n%s\n" filename failure) | 656 | (dired-log "Byte compile error for %s:\n%s\n" filename failure) |