home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Editor / FREDV19A.LHA / FrexxEd / fpl / Twist.FPL < prev    next >
Encoding:
Text File  |  1995-07-19  |  493 b   |  23 lines
  1. void export Twist() 
  2. {
  3.   int tkn1, tkn2, im;
  4.   Visible(0);
  5.   tkn1=GetChar();
  6.   if (ReadInfo("byte_position")) {
  7.     if (tkn1<0 || Isnewline(tkn1)) {
  8.       if (ReadInfo("byte_position")==1)
  9.         return;
  10.       CursorLeft();
  11.       tkn1=GetChar();
  12.     }
  13.     im=ReadInfo("insert_mode");
  14.     CursorLeft();
  15.     tkn2=GetChar();
  16.     SetInfo(-1, "insert_mode", 0);
  17.     Output(sprintf("%c%c", tkn1, tkn2));
  18.     SetInfo(-1, "insert_mode", im);
  19.     Visible(1);
  20.   }
  21. }
  22. AssignKey("Twist();", "Control t");
  23.