!
! Transpose the two characters immediately preceding the cursor
!
PROCEDURE lsi_transpose
LOCAL	xchar, 
	old_mode;
IF current_offset > 1
THEN
   MOVE_HORIZONTAL (-1);
   xchar := CURRENT_CHARACTER;
   MOVE_HORIZONTAL (-1);
   xchar := xchar + CURRENT_CHARACTER;
   old_mode := GET_INFO (CURRENT_BUFFER, "mode");
   SET (OVERSTRIKE, CURRENT_BUFFER);
   COPY_TEXT (xchar);
   SET (old_mode, CURRENT_BUFFER)
ENDIF
ENDPROCEDURE