procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix truncation of long lines in compilation buffers

Browse source 
* lisp/progmodes/compile.el
(compilation--insert-abbreviated-line): Handle long lines that end
in a newline.  (Bug#70236)
This commit is contained in:
Eli Zaretskii 2024-04-07 12:08:18 +03:00
parent 03b23302bd
commit 8f93cba324
1 changed files with 23 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
lisp/progmodes/compile.el
View file

@ -2644,24 +2644,29 @@ and runs `compilation-filter-hook'."
(text-properties-at (1- beg))))
(insert string)
;; If we exceeded the limit, hide the last portion of the line.
(when (> (current-column) width)
(let ((start (save-excursion
(move-to-column width)
(point))))
(buttonize-region
start (point)
(lambda (start)
(let ((inhibit-read-only t))
(remove-text-properties start (save-excursion
(goto-char start)
(line-end-position))
(text-properties-at start)))))
(put-text-property
start (if (= (aref string (1- (length string))) ?\n)
;; Don't hide the final newline.
(1- (point))
(point))
'display (if (char-displayable-p ?…) "[…]" "[...]"))))))
(let* ((ends-in-nl (= (aref string (1- (length string))) ?\n))
(curcol (if ends-in-nl
(progn (backward-char) (current-column))
(current-column))))
(when (> curcol width)
(let ((start (save-excursion
(move-to-column width)
(point))))
(buttonize-region
start (point)
(lambda (start)
(let ((inhibit-read-only t))
(remove-text-properties start (save-excursion
(goto-char start)
(line-end-position))
(text-properties-at start)))))
(put-text-property
start (if ends-in-nl
;; Don't hide the final newline.
(1- (point))
(point))
'display (if (char-displayable-p ?…) "[…]" "[...]"))))
(if ends-in-nl (forward-char)))))
(defsubst compilation-buffer-internal-p ()
"Test if inside a compilation buffer."