diff options
| author | Glenn Morris <rgm@gnu.org> | 2019-06-16 17:34:27 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2019-06-16 17:37:21 -0700 |
| commit | a95d614c96fbe224babc2a17d3f175ab26da003e (patch) | |
| tree | 2cdcbe1a3b2b058e71ab6bb8662fe212dcbac816 /lisp/emacs-lisp | |
| parent | 9d702b4cd8da1c1907b02869067a50933716631b (diff) | |
| download | emacs-a95d614c96fbe224babc2a17d3f175ab26da003e.tar.gz emacs-a95d614c96fbe224babc2a17d3f175ab26da003e.tar.bz2 emacs-a95d614c96fbe224babc2a17d3f175ab26da003e.zip | |
Tweak how byte-compile-print-syms fills
* lisp/emacs-lisp/bytecomp.el (byte-compile-print-syms):
Use fill-column from the compile log buffer.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 5 |
1 files changed, 4 insertions, 1 deletions
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)))) |