From 88100bed0af530f04cf56acca9f9d1bb12b45771 Mon Sep 17 00:00:00 2001 From: Philip Brown Date: Fri, 15 Jan 2021 00:35:36 -0800 Subject: [PATCH] * Set `backtrace-line-length' in async worker processes Philip Brown * 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 875f15aa75c..d127cea449e 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 -- 2.39.5