aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1995-08-29 16:22:25 +0000
committerRichard M. Stallman1995-08-29 16:22:25 +0000
commitd5b876efa88da30edf8bf8e8887d90d1c723b0cc (patch)
treec023ced723ef8827bd33b75908a7812ad2bbfda0
parentd70fbccad6f3f087f703c5c6b7c937cd6de1008f (diff)
downloademacs-d5b876efa88da30edf8bf8e8887d90d1c723b0cc.tar.gz
emacs-d5b876efa88da30edf8bf8e8887d90d1c723b0cc.zip
(dired-byte-compile): Report failure if output file is not created.
-rw-r--r--lisp/dired-aux.el2
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)