procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(batch-byte-compile-file): Give a backtrace if requested.

Browse source
This commit is contained in:
Stefan Monnier 2004-04-14 20:43:45 +00:00
parent 58e7eb2a3e
commit a080ff233c
1 changed files with 20 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

38
lisp/emacs-lisp/bytecomp.el
View file

@ -3966,27 +3966,29 @@ already up-to-date."
(kill-emacs (if error 1 0)))) (kill-emacs (if error 1 0))))
(defun batch-byte-compile-file (file) (defun batch-byte-compile-file (file)
(condition-case err (if debug-on-error
(byte-compile-file file) (byte-compile-file file)
(file-error (condition-case err
(message (if (cdr err) (byte-compile-file file)
">>Error occurred processing %s: %s (%s)" (file-error
(message (if (cdr err)
">>Error occurred processing %s: %s (%s)"
">>Error occurred processing %s: %s") ">>Error occurred processing %s: %s")
file file
(get (car err) 'error-message) (get (car err) 'error-message)
(prin1-to-string (cdr err))) (prin1-to-string (cdr err)))
(let ((destfile (byte-compile-dest-file file))) (let ((destfile (byte-compile-dest-file file)))
(if (file-exists-p destfile) (if (file-exists-p destfile)
(delete-file destfile))) (delete-file destfile)))
nil) nil)
(error (error
(message (if (cdr err) (message (if (cdr err)
">>Error occurred processing %s: %s (%s)" ">>Error occurred processing %s: %s (%s)"
">>Error occurred processing %s: %s") ">>Error occurred processing %s: %s")
file file
(get (car err) 'error-message) (get (car err) 'error-message)
(prin1-to-string (cdr err))) (prin1-to-string (cdr err)))
nil))) nil))))
;;;###autoload ;;;###autoload
(defun batch-byte-recompile-directory () (defun batch-byte-recompile-directory ()