branch: elpa/gnuplot
commit 07a80272b86c081b40602ec0b080571f3269749d
Author: Maxime Tréca <[email protected]>
Commit: GitHub <[email protected]>
Do not add lines to kill-ring when trimming the gnuplot buffer (#72)
I noticed that when the number of lines in the gnuplot comint buffer
exceeds the maximum amount of lines, the extra lines are killed using
kill-line, which causes the kill-ring to be polluted with those lines.
This commit replaces kill-ring by delete-region, which does not have
this side effect. The while loop also has been replaced by dotimes for
clarity.
---
gnuplot.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/gnuplot.el b/gnuplot.el
index 5345b26..b74a91b 100644
--- a/gnuplot.el
+++ b/gnuplot.el
@@ -1357,13 +1357,12 @@ This keeps that buffer from growing excessively in
size. Normally,
this function is attached to `gnuplot-after-plot-hook'"
(if (> gnuplot-buffer-max-size 0)
(with-current-buffer gnuplot-buffer
- (let ((nlines (count-lines (point-min) (point-max)))
- (kill-whole-line t))
- (while (> nlines gnuplot-buffer-max-size)
+ (let (gnuplot-lines (count-lines (point-min) (point-max)))
+ (dotimes (tmp (- gnuplot-lines gnuplot-buffer-max-size))
(goto-char (point-min))
- (kill-line)
- (setq nlines (1- nlines)))
+ (delete-region (line-beginning-position) (1+ (line-end-position))))
(goto-char (point-max))))))
+
(add-hook 'gnuplot-after-plot-hook 'gnuplot-trim-gnuplot-buffer nil nil)
