(batch-byte-compile-file): Give a backtrace if requested.
This commit is contained in:
parent
58e7eb2a3e
commit
a080ff233c
1 changed files with 20 additions and 18 deletions
|
@ -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 ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue