From 6a1706a62fb2442326cd37d84ff8b0d39bf0b7a6 Mon Sep 17 00:00:00 2001
From: nicm <nicm>
Date: Thu, 17 Mar 2022 13:39:13 +0000
Subject: [PATCH] Check scroll-on-clear for ED also.

---
 screen-write.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/screen-write.c b/screen-write.c
index aa898f78..6b6a750e 100644
--- a/screen-write.c
+++ b/screen-write.c
@@ -1479,7 +1479,9 @@ screen_write_clearscreen(struct screen_write_ctx *ctx, u_int bg)
 	ttyctx.bg = bg;
 
 	/* Scroll into history if it is enabled. */
-	if (s->grid->flags & GRID_HISTORY)
+	if ((s->grid->flags & GRID_HISTORY) &&
+	    ctx->wp != NULL &&
+	    options_get_number(ctx->wp->options, "scroll-on-clear"))
 		grid_view_clear_history(s->grid, bg);
 	else
 		grid_view_clear(s->grid, 0, 0, sx, sy, bg);