From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 29 May 2002 16:38:46 +0000 (+0000)
Subject: (batch-byte-compile-file): Delete the output file if we get a file-error.
X-Git-Tag: ttn-vms-21-2-B4~14826
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d09b1c02f517ec6a6129dd16ae95dae213975ca9;p=emacs.git

(batch-byte-compile-file): Delete the output file if we get a file-error.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 9ec39ff339b..be317ae672e 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -10,7 +10,7 @@
 
 ;;; This version incorporates changes up to version 2.10 of the
 ;;; Zawinski-Furuseth compiler.
-(defconst byte-compile-version "$Revision: 2.96 $")
+(defconst byte-compile-version "$Revision: 2.97 $")
 
 ;; This file is part of GNU Emacs.
 
@@ -3716,6 +3716,17 @@ already up-to-date."
 (defun batch-byte-compile-file (file)
   (condition-case err
       (byte-compile-file file)
+    (file-error
+     (message (if (cdr err)
+		  ">>Error occurred processing %s: %s (%s)"
+		  ">>Error occurred processing %s: %s")
+	      file
+	      (get (car err) 'error-message)
+	      (prin1-to-string (cdr err)))
+     (let ((destfile (byte-compile-dest-file file)))
+       (if (file-exists-p destfile)
+	   (delete-file destfile)))
+     nil)
     (error
      (message (if (cdr err)
 		  ">>Error occurred processing %s: %s (%s)"