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

This commit is contained in:
Stefan Monnier 2004-04-14 20:43:45 +00:00
parent 58e7eb2a3e
commit a080ff233c

View file

@ -3966,6 +3966,8 @@ already up-to-date."
(kill-emacs (if error 1 0))))
(defun batch-byte-compile-file (file)
(if debug-on-error
(byte-compile-file file)
(condition-case err
(byte-compile-file file)
(file-error
@ -3986,7 +3988,7 @@ already up-to-date."
file
(get (car err) 'error-message)
(prin1-to-string (cdr err)))
nil)))
nil))))
;;;###autoload
(defun batch-byte-recompile-directory ()