From 038aa0220a3333ee49b19dcca9d084499d5a75e6 Mon Sep 17 00:00:00 2001 From: rsc Date: Fri, 11 Jun 2004 04:13:03 +0000 Subject: scrolling --- src/cmd/acme/text.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/cmd/acme/text.c') diff --git a/src/cmd/acme/text.c b/src/cmd/acme/text.c index a69b46fe..6dc24bb7 100644 --- a/src/cmd/acme/text.c +++ b/src/cmd/acme/text.c @@ -659,7 +659,9 @@ texttype(Text *t, Rune r) n = t->fr.maxlines/3; goto case_Down; case Kscrollonedown: - n = 1; + n = mousescrollsize(t->fr.maxlines)-1; /* -1 counters a bug somewhere else */ + if(n <= 0) + n = 1; goto case_Down; case Kpgdown: n = 2*t->fr.maxlines/3; @@ -671,7 +673,7 @@ texttype(Text *t, Rune r) n = t->fr.maxlines/3; goto case_Up; case Kscrolloneup: - n = 2; /* feels like this should be n=1, but that does nothing */ + n = mousescrollsize(t->fr.maxlines)+1; /* +1 counters a bug somewhere else */ goto case_Up; case Kpgup: n = 2*t->fr.maxlines/3; -- cgit v1.2.3