🚀 go-pugleaf

Here is a bugfix for version 17 of the Rand editor (e17).

Index: e/e/term/tcap.c

Description: vt100-type scrolling of part of the screen is incorrectly
handled by tcap.c. The routine implementing the scrolling first sets
a scroll region. It then scrolls the screen (up or down). When it is finished
it should set the scroll region to the entire screen, this is not done.

Fix:
	*** tcap.cOld   Tue Jun 19 20:54:48 1984
	--- tcap.c      Wed Jun 27 13:54:24 1984
	***************
	*** 51,56
	  cle_tcap () { tputs(CE, 1, pch); return 1; }
	  vsc_tcap (top, bottom, num)
	  {
	      tputs(tgoto (CS, bottom, top), 1, pch);
	      if (num > 0) {
		tputs(tgoto (CM, 0, top), 1, pch);

	--- 51,58 -----
	  cle_tcap () { tputs(CE, 1, pch); return 1; }
	  vsc_tcap (top, bottom, num)
	  {
	+     extern S_term t_tcap;
	+
	      tputs(tgoto (CS, bottom, top), 1, pch);
	      if (num > 0) {
		tputs(tgoto (CM, 0, top), 1, pch);
	***************
	*** 63,68
		    tputs(DO, 1, pch);
		} while (++num);
	      }
	      return NO;      /* i.e. can't be sure where the cursor is */
	  }


	--- 65,71 -----
		    tputs(DO, 1, pch);
		} while (++num);
	      }
	+     tputs(tgoto (CS, t_tcap.tt_height - 1, 0), 1, pch);
	      return NO;      /* i.e. can't be sure where the cursor is */
	  }

{decvax,philabs}!mcvax!enea!ttds!johanw         Johan Widen