--- rxvt-unicode/src/perl/eval	2014/05/23 20:54:42	1.1
+++ rxvt-unicode/src/perl/eval	2021/07/12 15:08:46	1.2
@@ -43,22 +43,22 @@
 
 sub scroll_up ($) {
     my $lines = $_[0];
-    $self->view_start ($self->view_start - $lines);
+    $self->view_start (List::Util::min 0, $self->view_start - $lines);
 }
 
 sub scroll_up_pages ($) {
     my $lines = $_[0] * ($self->nrow - 1);
-    $self->view_start ($self->view_start - $lines);
+    $self->view_start (List::Util::min 0, $self->view_start - $lines);
 }
 
 sub scroll_down ($) {
     my $lines = $_[0];
-    $self->view_start ($self->view_start + $lines);
+    $self->view_start (List::Util::min 0, $self->view_start + $lines);
 }
 
 sub scroll_down_pages ($) {
     my $lines = $_[0] * ($self->nrow - 1);
-    $self->view_start ($self->view_start + $lines);
+    $self->view_start (List::Util::min 0, $self->view_start + $lines);
 }
 
 =item scroll_to_top