EditTypeScript.tip
Copyright Ó 1986, 1987, 1988, 1989, 1990, 1991, 1992 by Xerox Corporation. All rights reserved.
Last Edited by Paxton, November 8, 1982 10:30 am
Michael Plass, May 25, 1989 2:53:43 pm PDT
Tim Diebert: April 29, 1988 9:38:11 am PDT
Doug Wyatt, March 4, 1992 10:50 am PST
[DEF,CTRL,(Ctrl Down | Spare3 Down)]
[DEF,IfCaretAtEnd,(~1 Down WHILE CaretAtEndOfTypescript => Char)]
[
DEF,CtrlChar,(~1 Down
WHILE Ctrl Down
WHILE CaretAtEndOfTypescript => Char)]
Note that Spare3 does not work as a CTRL key in this context.
SELECT TRIGGER FROM
[IfCaretAtEnd,ESC];
[IfCaretAtEnd,LF];
Return Down WHILE CaretAtEndOfTypescript => "\012";
[CtrlChar,A];
[CtrlChar,B];
[CtrlChar,C];
[CtrlChar,D];
[CtrlChar,E]; -- want expand to work at end of typescript
[CtrlChar,F];
[CtrlChar,G];
[CtrlChar,H];
[CtrlChar,I];
[CtrlChar,J];
[CtrlChar,K];
[CtrlChar,L];
[CtrlChar,M];
[CtrlChar,N];
[CtrlChar,O];
[CtrlChar,P]; -- want paste to work at end of typescript
[CtrlChar,Q];
[CtrlChar,R];
[CtrlChar,S];
[CtrlChar,T];
[CtrlChar,U];
[CtrlChar,V];
[CtrlChar,W];
[CtrlChar,X];
[CtrlChar,Y];
[CtrlChar,Z];
A Down WHILE Ctrl WHILE CaretAtEndOfTypescript => BackSpace; -- see who gripes
Help Down => "\277"; -- Meta-?, invokes completion querying in the Commander
ENDCASE.