[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el

[Richard M. Stallman]

Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.97 
emacs/lisp/emacs-lisp/bytecomp.el:2.98
*** emacs/lisp/emacs-lisp/bytecomp.el:2.97      Tue May 28 13:39:45 2002
--- emacs/lisp/emacs-lisp/bytecomp.el   Wed May 29 12:38:46 2002
***************
*** 10,16 ****
  
  ;;; This version incorporates changes up to version 2.10 of the
  ;;; Zawinski-Furuseth compiler.
! (defconst byte-compile-version "$Revision: 2.97 $")
  
  ;; This file is part of GNU Emacs.
  
--- 10,16 ----
  
  ;;; This version incorporates changes up to version 2.10 of the
  ;;; Zawinski-Furuseth compiler.
! (defconst byte-compile-version "$Revision: 2.98 $")
  
  ;; This file is part of GNU Emacs.
  
***************
*** 3716,3721 ****
--- 3716,3732 ----
  (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)"