/[emacs]/emacs/lisp/emacs-lisp/bytecomp.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/bytecomp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.97 by walters, Tue May 28 17:39:45 2002 UTC revision 2.98 by rms, Wed May 29 16:38:46 2002 UTC
# Line 3716  already up-to-date." Line 3716  already up-to-date."
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)"

Legend:
Removed from v.2.97  
changed lines
  Added in v.2.98

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26