[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master a95d614 2/4: Tweak how byte-compile-print-syms fill
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master a95d614 2/4: Tweak how byte-compile-print-syms fills |
Date: |
Sun, 16 Jun 2019 20:37:38 -0400 (EDT) |
branch: master
commit a95d614c96fbe224babc2a17d3f175ab26da003e
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
Tweak how byte-compile-print-syms fills
* lisp/emacs-lisp/bytecomp.el (byte-compile-print-syms):
Use fill-column from the compile log buffer.
---
lisp/emacs-lisp/bytecomp.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 13d563b..b917b71 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))))