feature/native-comp 88100be 2/2: * Set `backtrace-line-length' in async worker processes

[Andrea Corallo]

branch: feature/native-comp
commit 88100bed0af530f04cf56acca9f9d1bb12b45771
Author: Philip Brown <pdbrown.git@gmail.com>
Commit: Andrea Corallo <akrl@sdf.org>

    * Set `backtrace-line-length' in async worker processes
    
    Philip Brown <pdbrown.git@gmail.com>
    
        * lisp/emacs-lisp/comp.el (comp-run-async-workers): Set
        backtrace-line-length in async worker processes.
    
    Copyright-paperwork-exempt: yes
---
 lisp/emacs-lisp/comp.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 875f15a..d127cea 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -3802,6 +3802,8 @@ display a message."
                    source-file (comp-el-to-eln-filename source-file)))
          do (let* ((expr `(progn
                             (require 'comp)
+                            ,(when (boundp 'backtrace-line-length)
+                               `(setf backtrace-line-length 
,backtrace-line-length))
                             (setf comp-speed ,comp-speed
                                   comp-debug ,comp-debug
                                   comp-verbose ,comp-verbose