From: Glenn Morris <rgm@gnu.org>
Date: Mon, 17 Jun 2019 00:34:27 +0000 (-0700)
Subject: Tweak how byte-compile-print-syms fills
X-Git-Tag: emacs-27.0.90~2460
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a95d614c96fbe224babc2a17d3f175ab26da003e;p=emacs.git

Tweak how byte-compile-print-syms fills

* lisp/emacs-lisp/bytecomp.el (byte-compile-print-syms):
Use fill-column from the compile log buffer.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 13d563bde91..b917b713c06 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1601,7 +1601,10 @@ extra args."
 	   (while syms
 	     (setq s (symbol-name (pop syms))
 		   L (+ L (length s) 2))
-	     (if (< L (1- fill-column))
+	     (if (< L (1- (buffer-local-value 'fill-column
+                                              (or (get-buffer
+                                                   byte-compile-log-buffer)
+                                                  (current-buffer)))))
 		 (setq str (concat str " " s (and syms ",")))
 	       (setq str (concat str "\n    " s (and syms ","))
 		     L (+ (length s) 4))))