diff options
author | Philip Brown <pdbrown.git@gmail.com> | 2021-01-15 00:35:36 -0800 |
---|---|---|
committer | Andrea Corallo <akrl@sdf.org> | 2021-01-16 13:32:04 +0100 |
commit | 88100bed0af530f04cf56acca9f9d1bb12b45771 (patch) | |
tree | a710c779d8244fb3c342e3d48a9aa843b5255403 /lisp/emacs-lisp | |
parent | 0a7ac0b5504e75275699a3d8d2d5d94bcfda8708 (diff) | |
download | emacs-88100bed0af530f04cf56acca9f9d1bb12b45771.tar.gz emacs-88100bed0af530f04cf56acca9f9d1bb12b45771.tar.bz2 emacs-88100bed0af530f04cf56acca9f9d1bb12b45771.zip |
* 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
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/comp.el | 2 |
1 files changed, 2 insertions, 0 deletions
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 |